如何在vb中对ＳＱＬ ＳＥＲＶＥＲ进行条件查询并将结果显现在data grid的控件中

Question

如何在vb中对ＳＱＬ　ＳＥＲＶＥＲ进行条件查询并将条件查询的结果显现在data grid的控件中？？
比如在ＴＥＸＴ文本框中输入查询的条件，在将查询结果显现在data grid的控件中，这样行吗？

Answer 1

试试这个：
    Option Explicit 
     
    Dim ar As New ADODB.Recordset 
    Dim ac As New ADODB.Connection 
     
    Private Sub Form_Load() 
     ac.ConnectionString = "*****" 
     ac.CommandTimeout = *** 
     ac.Provider = "*******" 
     ac.Open 
     ar.Open Tablename, ac, adOpenDynamic, adLockOptimistic, adCmdTable 
    End Sub 
     
    Private Sub cmd_click_Click() 
    On Error GoTo err_proc 
     With ar 
     .Filter = "**********" 
     .MoveFirst 
     Do While Not .EOF 
     '/////进行统计，可以写统计代码，如统计合计数等 
     '------ 
     .MoveNext 
     Loop 
     End With 
     Set DataGrid1.DataSource = ar 
     Exit Sub 
    err_proc: 
     '//////出错处理 
    End Sub