楼上的各位,我也同样遇到了这个问题,代码如下: Private Sub Text1_KeyDown(…………) if KeyCode = vbKeyReturn Then Call Search end if End Sub Private Sub Search() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= DB1.mdb;Persist Security Info=False" Adodc1.RecordSource = "select * from Table1 where 字段名 = " + _ 定义的一个由用户输入的Text1.text赋值的变量 End Sub 运行该程序,不会出错,但也不会实现查询,这是为什么?
set datagrid.datasource=adodc1.recordset
Private Sub Text1_KeyDown(…………)
if KeyCode = vbKeyReturn Then
Call Search
end if
End Sub
Private Sub Search()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;
Data Source= DB1.mdb;Persist Security
Info=False"
Adodc1.RecordSource = "select * from Table1 where 字段名 = " + _
定义的一个由用户输入的Text1.text赋值的变量
End Sub
运行该程序,不会出错,但也不会实现查询,这是为什么?