[Abdh111]

السلام عليكم وحياكم الله وبارك فيكم
إخوتي الكرام أصحاب الفضل علي 
هذا الكود كتبته بهدف البحث عن بيانات اسم موجود في كمبو بوكس
وعرض بيانات الاسم في 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

برجاء انا مش عارف أحط البيانات الناتجة في تكست

[محمد العبيدي]

اخي جرب هذا الكود واعطيني النتيجة واذا اتحب ارفع مثال لنقوم بالتعديل

PHP كود :

Try
   SQL = "Select * from Tab_Users where G_ID= " & Val(Cmb_All_Users.SelectedValue) 
   MsgBox(Cmb_All_Users.SelectedValue)
   ad = New SqlDataAdapter(SQL, Conn)
   ad.Fill(ds)
   
   'ممكن استخدام هذا الكود
   Txt_User_Name.Text = ds.Rows(0).item(1)
   Txt_Pwd.Text = "G_ID"
   ad.Dispose()
   closeDB()
Catch ex As Exception
   MsgBox(ex.Message)
   End
End Try