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
...全文
1563 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用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
  • 打赏
  • 举报
回复
id dlookup("usename","DGZY","usename='张三'") is null then 没有“张三” end if

7,732

社区成员

发帖
与我相关
我的任务
社区描述
Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点。
社区管理员
  • Access
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧