Access VBA中如何使用 SQL 语句。

[蓝色幻想2015]

请高手帮看这段代码有什么问题，在access vba中运行不了：
Private Sub Command1_Click()

Dim sql As ADODB.Recordset
sql = SELECT DGZY.usename FROM DGZY WHERE (((DGZY.usename) Like "张三"));

End Sub

[WWWWA]

id dlookup("usename","DGZY","usename='张三'") is null then 没有“张三” end if

[WWWWA]

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

[蓝色幻想2015]

高手呀，谢谢！没想到简单的一个查询会这么复杂啊，还要连接，还要打开文件，太不方便了。还有没有更好的办法呢。

[WWWWA]

呵呵，代码要少，就用DAO set rs=currentdb.openrecordset("SELECT DGZY.usename FROM DGZY WHERE DGZY.usename Like '张三'") do while not rs.eof ... rs.movenext loop

[ACMAIN_CHM]

dim rs as NEW ADODB.Recordset sql = "select ... rs.open sql,currentproject.connection

[ACMAIN_CHM]

关键看楼主想实现什么功能？ 简单的方法肯定有。

[蓝色幻想2015]

呵呵！惭愧，说起来我需要的功能很简单，只是判断表DGZY，是否是有“张三”这个人的记录而已，返回一个逻辑值就够了。

[ACMAIN_CHM]

引用 6 楼 u010669297 的回复:

呵呵！惭愧，说起来我需要的功能很简单，只是判断表DGZY，是否是有“张三”这个人的记录而已，返回一个逻辑值就够了。

如果仅仅是这个，最简单的方法是直接 IF DCOUNT( ...) >0 或者 IF DLOOKUP() ... 打开ACCESS，按F1，搜索 DCOUNT或者 DLOOKUP