Matin_t
دوشنبه 21 دی 1383, 02:39 صبح
با سلام
سوالی داشتم که اگر منو راهنمایی کنید خیلی ممنون می شم
چگونه می توان روی رکورد های یک جدول بر اساس مشترک بودن مقداریک فیلد آنها حرکت کرد.
مثلا در کد زیر که مربوط به مشاهده ی موجودی جنس در انبار است با فرض داشتن چند جنس با کد 18 من فقط می تونم اولین کد 18 که در جدول وجود دارد رو ببینم در صورتی که می خوام باهر بار زدن هر چند تا کد هجده ای که وجود دارد رو ببینم .البته می دونم که باید ازیک حلقه استفاده کرد ولی نمی دونم دقیقا چطوری .
امیدوارم منظورم رو واضح گفته باشم
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim comm As sql.SqlCommand = New sql.SqlCommand
comm.Connection = SqlConnection1
comm.CommandText = "select * from mojudi_tajhizat where code='" + TextBox1.Text
()SqlConnection1.Open
Dim dr As sql.SqlDataReader = comm.ExecuteReader
If dr.Read Then
("TextBox2.Text = dr("name
(" TextBox3.Text = dr("made
("TextBox4.Text = dr("quantity
("TextBox5.Text = dr("unitprice
(" TextBox6.Text = dr("totalprice
(" TextBox7.Text = dr("data
(" TextBox8.Text = dr("invoicenum
End If
()dr.Close
() SqlConnection1.Close
End Sub
سوالی داشتم که اگر منو راهنمایی کنید خیلی ممنون می شم
چگونه می توان روی رکورد های یک جدول بر اساس مشترک بودن مقداریک فیلد آنها حرکت کرد.
مثلا در کد زیر که مربوط به مشاهده ی موجودی جنس در انبار است با فرض داشتن چند جنس با کد 18 من فقط می تونم اولین کد 18 که در جدول وجود دارد رو ببینم در صورتی که می خوام باهر بار زدن هر چند تا کد هجده ای که وجود دارد رو ببینم .البته می دونم که باید ازیک حلقه استفاده کرد ولی نمی دونم دقیقا چطوری .
امیدوارم منظورم رو واضح گفته باشم
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim comm As sql.SqlCommand = New sql.SqlCommand
comm.Connection = SqlConnection1
comm.CommandText = "select * from mojudi_tajhizat where code='" + TextBox1.Text
()SqlConnection1.Open
Dim dr As sql.SqlDataReader = comm.ExecuteReader
If dr.Read Then
("TextBox2.Text = dr("name
(" TextBox3.Text = dr("made
("TextBox4.Text = dr("quantity
("TextBox5.Text = dr("unitprice
(" TextBox6.Text = dr("totalprice
(" TextBox7.Text = dr("data
(" TextBox8.Text = dr("invoicenum
End If
()dr.Close
() SqlConnection1.Close
End Sub