请高手帮看这段代码有什么问题,在access vba中运行不了:Private Sub Command1_Click()Dim sql As ADODB.Recordsetsql = SELECT DGZY.usename FROM DGZY WHERE (((DGZY.usename) Like "张三")); End Sub
提问里是一段打开ADO记录集对象的代码,并不完整且含有错误。下面提供一个完整一点的代码供参考:
Private Sub Command111_Click()创建查询
右键-sql视图
写入sql语句
保存(命名)
参考:Office中国论坛