问大家一个简单的事?
我用ADODC控件和DATAGRID控件查询能用
Private Sub Check1_Click()
If Check1.Value = 1 Then
Adodc1.RecordSource = "select * from tb_stu where 学生姓名 like '" + Text1.Text + "'"
Adodc1.Refresh
Set DataGrid1.DataSource = rs
End If
End Sub
而我用数据对象这样的操作怎么不行
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Check1_Click()
If Check1.Value = 1 Then
rs.Open "select * from tb_stu where 学生姓名 like '" + Text1.Text + "'", cn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
End If
End Sub
Private Sub Form_Load()
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\VB±|μ \± êé′ú \10\283\db_ExpStu.mdb;Persist Security Info=False"
cn.Open
End Sub