منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - أين الخطأ في كود بحث بواسطة كمبولست اندكس وعرض النتائج في 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

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

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

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 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Abdh111

محمد العبيدي