急，关于SQL查询

Question

Dim conn As New ADODB.ConnectionPrivate Sub Command1_Click()
  Dim rscx As New ADODB.Recordset
  rscx.CursorLocation = adUseClient
  rscx.Open "select * from ckbm where ckmc='" & Trim(Text1.Text) & "'", conn, adOpenForwardOnly, adLockReadOnly, adCmdText
  Set DataGrid1.DataSource = rscx
End SubPrivate Sub Form_Load()
  conn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\yygl.mdb"
End Sub

Answer 1

Option Explicitsub form1_load()
dim cn As New ADODB.Connection
dim rs As New ADODB.Recordset
cn.ConnectionString = "dsn=数据源名;uid=用户名;pwd=密码"
cn.Open
rs.ActiveConnection = cn
end subPrivate Sub Command1_Click()
If text1.Text = "" Then
            MsgBox "请输入关键字!"
            Exit Sub
        Else
            rs.Open "select * from kf_table where dyzh='" & Trim(dyzh.Text) & "'"
            Set DataGrid.DataSource = rs
            rs.Close
        End If
End Sub

Answer 2

Option Explicitsub form1_load()
dim cn As New ADODB.Connection
dim rs As New ADODB.Recordset
cn.ConnectionString = "dsn=数据源名;uid=用户名;pwd=密码"
cn.Open
rs.ActiveConnection = cn
end subPrivate Sub Command1_Click()
If text1.Text = "" Then
            MsgBox "请输入关键字!"
            Exit Sub
        Else
            rs.Open "select * from 表名 where dyzh='" & Trim(text1.text) & "'"
            Set DataGrid.DataSource = rs
            rs.Close
        End If
End Sub

Answer 3

就是就是，你连ADO的ConnectionString都没有设就想查询啊，NB