منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تطبيق كود استعلام علي نتيجة بحث - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : تطبيق كود استعلام علي نتيجة بحث (/showthread.php?tid=2097)



تطبيق كود استعلام علي نتيجة بحث - superwoofer - 02-03-14

كان عندي استفسار
كنت عايز اطبق كود استعلام

If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient

rs.Open "select * FROM XX WHERE XX like '" & Combo1.Text & "'", Adodc1.ConnectionString, 1, 3

علي نتيجة بحث الاتي

If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient

rs.Open "SELECT XX, XX, XX, XX, XXl,XX, XX,XX, XX, XX, XX FROM table1 ORDER BY XX, XX, XX, X, XX, XX, XX,XX, XX, XX, XX ", Adodc1.ConnectionString, 1, 3

Set DataGrid1.DataSource = rs


RE: تطبيق كود استعلام علي نتيجة بحث - نظريه - 02-03-14

لو ترفق مثال به ماتيرد افضل