a1b2uu
شنبه 08 آبان 1389, 12:53 عصر
سلام دوستان
سه سوال داشتم .
اول اینکه اگر بخام توی دیتا گرید ویو به سطر اول ,آخر,بعدی وقبلی برم باید چیکار کنم ؟(سرچم کردم ولی نتونستم انجامش بدم)
دوم اینکه اگر بخام با زدن مثلا F5 ر save کنه با F6 حذف کنه ..... چیکار کنم؟
سوم اینکه من دو تا combobox دارم که اطلاعات را از دیتا بیس میگیرن (اولی نام دارو , کد دارو)
حالا میخام براساس نام دارو که سرچ میکنم کد دارو را در کمبوباکس کد دارو بیاره اگر یک مورد پیدا کنه درست کار میکنه ولی زمانی که بیشتر از یک مورد میشه فقط 1 کد را قرار میده اگر بخام هر چند تا رو که پیدا کرد توی combobox بندازه چیکار کنم؟اینم کدی که نوشتم.
Try
Dim a As New SqlConnection
a.ConnectionString = "Data Source=localhost;Initial Catalog=MedicineStore;Integrated Security=True"
Dim b1 As New SqlCommand
Dim c1 As New SqlDataAdapter
c1.SelectCommand = b1
c1.SelectCommand.CommandType = CommandType.Text
c1.SelectCommand.CommandText = "use MedicineStore select ItemId,ProducerID from Item where (ItemName=N'" & UCase(Trim(CmbItemName.Text)) & "')"
c1.SelectCommand.Connection = a
Dim d1 As New DataSet
d1.Clear()
c1.Fill(d1)
If d1.Tables(0).Rows.Count > 0 Then
CmbItemID.Text = Trim(d1.Tables(0).Rows(0).Item("ItemID"))
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
سه سوال داشتم .
اول اینکه اگر بخام توی دیتا گرید ویو به سطر اول ,آخر,بعدی وقبلی برم باید چیکار کنم ؟(سرچم کردم ولی نتونستم انجامش بدم)
دوم اینکه اگر بخام با زدن مثلا F5 ر save کنه با F6 حذف کنه ..... چیکار کنم؟
سوم اینکه من دو تا combobox دارم که اطلاعات را از دیتا بیس میگیرن (اولی نام دارو , کد دارو)
حالا میخام براساس نام دارو که سرچ میکنم کد دارو را در کمبوباکس کد دارو بیاره اگر یک مورد پیدا کنه درست کار میکنه ولی زمانی که بیشتر از یک مورد میشه فقط 1 کد را قرار میده اگر بخام هر چند تا رو که پیدا کرد توی combobox بندازه چیکار کنم؟اینم کدی که نوشتم.
Try
Dim a As New SqlConnection
a.ConnectionString = "Data Source=localhost;Initial Catalog=MedicineStore;Integrated Security=True"
Dim b1 As New SqlCommand
Dim c1 As New SqlDataAdapter
c1.SelectCommand = b1
c1.SelectCommand.CommandType = CommandType.Text
c1.SelectCommand.CommandText = "use MedicineStore select ItemId,ProducerID from Item where (ItemName=N'" & UCase(Trim(CmbItemName.Text)) & "')"
c1.SelectCommand.Connection = a
Dim d1 As New DataSet
d1.Clear()
c1.Fill(d1)
If d1.Tables(0).Rows.Count > 0 Then
CmbItemID.Text = Trim(d1.Tables(0).Rows(0).Item("ItemID"))
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try