Access VBA中如何使用 SQL 语句。

蓝色幻想2015 2013-05-13 09:23:11

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

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

End Sub

...全文

1590 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

ACMAIN_CHM 2013-05-13

打赏
举报

引用 6 楼 u010669297 的回复:

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

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

蓝色幻想2015 2013-05-13

打赏
举报

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

ACMAIN_CHM 2013-05-13

打赏
举报

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

ACMAIN_CHM 2013-05-13

打赏
举报

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

WWWWA 2013-05-13

打赏
举报

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

蓝色幻想2015 2013-05-13

打赏
举报

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

WWWWA 2013-05-13

打赏
举报

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

WWWWA 2013-05-13