Office中国论坛/Access中国论坛

标题: 执行查找和执行代码有差异？ [打印本页]

作者: huangyz_xy 时间: 2012-1-7 14:25
标题: 执行查找和执行代码有差异？
执行更新查询：UPDATE 年级成绩汇总 SET 年级成绩汇总.班级排名=dcount("[总分]"，"年级成绩汇总"，"班级=' " &[班级] & " ' and [总分]>" & [总分]) 1 能成功，但是用DOCMD.RUNSQL 语句就不行，为何？

作者: Henry D. Sy 时间: 2012-1-8 00:09
问题的原因有许多，
你这样提问谁也不清楚！

作者: huangyz_xy 时间: 2012-1-8 08:41
我上传原码，sorry

作者: roych 时间: 2012-1-8 20:26
原则上两者是可以互通的，转换成RunSQL执行时注意单引号和双引号的使用。

作者: huangyz_xy 时间: 2012-1-8 21:05
如果有引号问题的话肯定会提示错误的，执行了但是没有结果：源码如下

作者: JosephTan 时间: 2012-1-8 22:53
Private Sub Command0_Click()
Dim db As dao.Database
Dim qdef As dao.QueryDef
Set db = CurrentDb
Set qdef = db.QueryDefs("班级排名")
qdef.Execute
qdef.Close
db.Close
Set qdef = Nothing
Set db = Nothing
End Sub

作者: JosephTan 时间: 2012-1-8 22:56
既然那个能用，还折腾什么。。。

作者: Henry D. Sy 时间: 2012-1-8 22:59
还是高版本

作者: JosephTan 时间: 2012-1-8 23:09
高版本是主流吧

作者: Henry D. Sy 时间: 2012-1-8 23:11

JosephTan 发表于 2012-1-8 23:09
高版本是主流吧

哦，是吗？

作者: huangyz_xy 时间: 2012-1-9 00:14

JosephTan 发表于 2012-1-8 22:56
既然那个能用，还折腾什么。。。

不是折腾，大哥！我的这个程序总共就没有一个查询在里面，如果仅仅只有这一个，岂不是很扎眼？

作者: huangyz_xy 时间: 2012-1-9 00:22

JosephTan 发表于 2012-1-8 22:53
Private Sub Command0_Click()
Dim db As dao.Database
Dim qdef As dao.QueryDef

谢了, 大哥

作者: JosephTan 时间: 2012-1-9 09:25
不客气

作者: JosephTan 时间: 2012-1-9 20:44
本帖最后由 JosephTan 于 2012-1-9 20:47 编辑

JosephTan 发表于 2012-1-8 23:09
高版本是主流吧

那个我看不到。如果仅仅是好看了，那它就不会是主流了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)