09-11-15, 07:10 PM
السلام عليكم وحياكم الله وبارك فيكم
إخوتي الكرام أصحاب الفضل علي
هذا الكود كتبته بهدف البحث عن بيانات اسم موجود في كمبو بوكس
وعرض بيانات الاسم في 3 تكست
برجاء انا مش عارف أحط البيانات الناتجة في تكست
إخوتي الكرام أصحاب الفضل علي
هذا الكود كتبته بهدف البحث عن بيانات اسم موجود في كمبو بوكس
وعرض بيانات الاسم في 3 تكست
كود :
Try
'Call conecDB() مازال الاتصال مفتوحاً من من فورم لود
'SQL = "SELECT * FROM Tab_Users Where G_ID =" & (Cmb_All_Users.SelectedIndex"
Dim Cindx As Integer
Cindx = Val(Cmb_All_Users.SelectedIndex) + 1
SQL = "Select * from Tab_Users where G_ID= '" & Cindx & "'"
MsgBox(Cmb_All_Users.SelectedIndex)
ad = New SqlDataAdapter(SQL, Conn)
'ds.Clear()
ad.Fill(ds)
'ممكن استخدام هذا الكود
'ad.Fill(ds, "Tab_Branches")
'Cmb_Srch_Branch_Name.DataSource = ds.Tables("Tab_Branches")
'ممكن استخدام هذا الكود
Txt_User_Name.Text = ds.Tables(0).Columns(1)
Txt_Pwd.Text = "G_ID"
'Cmb_User_Kind.Text = User_Kind
ad.Dispose()
closeDB()
Catch ex As Exception
MsgBox(ex.Message)
End
End Try
برجاء انا مش عارف أحط البيانات الناتجة في تكست