请高手帮看这段代码有什么问题,在access vba中运行不了:
Private Sub Command1_Click()
Dim sql As ADODB.Recordset
sql = SELECT DGZY.usename FROM DGZY WHERE (((DGZY.usename) Like "张三"));
End Sub
...全文
15628打赏收藏
Access VBA中如何使用 SQL 语句。
请高手帮看这段代码有什么问题,在access vba中运行不了: Private Sub Command1_Click() Dim sql As ADODB.Recordset sql = SELECT DGZY.usename FROM DGZY WHERE (((DGZY.usename) Like "张三")); End Sub
Dim cn As new ADODB.Connection
dim rs as new adodb.recordset
sql = "SELECT DGZY.usename FROM DGZY WHERE DGZY.usename Like '张三'"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=123.mdb"
rs.Open sql, cn, adOpenKeyset, adLockOptimistic
do while not rs.eof
...
rs.movenext
loop