02-03-14, 11:42 AM
كان عندي استفسار
كنت عايز اطبق كود استعلام
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
كنت عايز اطبق كود استعلام
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