Office中国论坛/Access中国论坛

标题: [求助]SQL语句赋给变量调用！ [打印本页]

作者: bear9701 时间: 2006-6-30 23:01
标题: [求助]SQL语句赋给变量调用！
如果查询1为SELECT 厂商, 用户
FROM j001;

dcount()是借用了查询1作条件运行后面的语句，如何不用建立查询1，而将其SQL语句直接放到代码中或赋给变量来调用！那位大哥有例子给一个

If DCount("厂商", "查询1") > 1 Then
DoCmd.RunSQL "insert j002 (异动数量,厂商) select 数量,厂商 from j003,j001"

作者: wwwwa 时间: 2006-7-1 00:30
不行，只有用OPENRECORDSET、循环的方法来判断。

作者: bear9701 时间: 2006-7-1 01:09
有的高手说可以，下面一段代码不知如调用：

只要引入 QueryDef 物件，就可以用代码产生及储存一个选择查询，要用 DAO ，用 ADO 好象并不支持 QueryDef。
Dim Dbs As Database
Dim Qdf As QueryDef
Dim Str As String
Set Dbs = CurrentDB
Str = "Select......From......Where......;"
Set Qdf = DB.CreateQueryDef("选择查询名",Str)
查询集合里已产生一个新的选择查询，这个选择查询同用查询设计产生的选择查询不同的是，随时可清除，因为查询结构已被储存在程序里了。

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