请问如何在VBA代码中获得查询中的SQL语句呢？

todaynew

fxbianxiu 发表于 2011-6-27 09:27
在窗口中建立的查询，如何在VBA代码中获得查询中的SQL语句呢？

将查询的设计视图转为SQL视图，复制其SQL语句粘贴到VBa代码中即可。

todaynew

fxbianxiu 发表于 2011-6-27 11:18
不是这种方式，想在代码中直接得到 SQL 语句，

呵呵，这样搞没什么意义吧？可以用自定义函数：

Function GetSql(sqlname as string) as string
'功能：得到SQL语句
'示例：msgbox GetSql("统计查询")
Dim Qdef As QueryDef
Set Qdef = CurrentDb.QueryDefs(sqlname)
GetSql = Qdef.SQL
Qdef.Close
Set Qdef = Nothing
End Function

todaynew

fxbianxiu 发表于 2011-6-27 13:48
嘿嘿，谢谢啦，

还有一个问题，我想在窗口的查询中建立一个带参数的查询，在代码中如何能自动加上参数 ...

把上面的代码改一下就完事了嘛：
1、修改查询：
Function UpSql(sqlname as string,ssql as string)
'功能：修改SQL语句
'示例：call UpSql("名单查询","select * from 部门ID=" & me.部门ID.value)
Dim Qdef As QueryDef
Set Qdef = CurrentDb.QueryDefs(sqlname)
Qdef.SQL=ssql
Qdef.Close
Set Qdef = Nothing
End Function

2、创建查询：
Function CrtSQL(strname As String, ssql As String)
'功能：创建SQL语句
'示例：call CrtSql("名单查询","select * from 部门ID=" & me.部门ID.value)
Dim Qdef As QueryDef
Set Qdef = CurrentDb.CreateQueryDef(strname)
Qdef.SQL = ssql
Qdef.Close
Set Qdef = Nothing
End Function

todaynew

fxbianxiu 发表于 2011-6-27 22:24
谢谢版主，真厉害呀

QueryDef  这个得引用 DAO 运行库吧

我理解调用既执行，执行既调用，应该没区别。