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

نسخة كاملة : تطبيق كود استعلام علي نتيجة بحث
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
كان عندي استفسار
كنت عايز اطبق كود استعلام

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
لو ترفق مثال به ماتيرد افضل