+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : أين الخطأ في كود بحث بواسطة كمبولست اندكس وعرض النتائج في 3 تكست؟ (/showthread.php?tid=13765)
أين الخطأ في كود بحث بواسطة كمبولست اندكس وعرض النتائج في 3 تكست؟ - Abdh111 - 09-11-15
السلام عليكم وحياكم الله وبارك فيكم
إخوتي الكرام أصحاب الفضل علي
هذا الكود كتبته بهدف البحث عن بيانات اسم موجود في كمبو بوكس
وعرض بيانات الاسم في 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برجاء انا مش عارف أحط البيانات الناتجة في تكست
RE: أين الخطأ في كود بحث بواسطة كمبولست اندكس وعرض النتائج في 3 تكست؟ - محمد العبيدي - 09-11-15
اخي جرب هذا الكود واعطيني النتيجة واذا اتحب ارفع مثال لنقوم بالتعديل
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