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

fxbianxiu

在窗口中建立的查询，如何在VBA代码中获得查询中的SQL语句呢？

todaynew

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

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

fxbianxiu

非常感谢，以后有问题再请教

fxbianxiu

不是这种方式，想在代码中直接得到 SQL 语句，

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

fxbianxiu

todaynew 发表于 2011-6-27 11:32
呵呵，这样搞没什么意义吧？可以用自定义函数：

Function GetSql(sqlname as string) as string

嘿嘿，谢谢啦，

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

比如我想查指定日期范围的凭证明细表，只有在代码中才能确定系统登录的日期，从而查询指定日期的凭证

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

fxbianxiu

todaynew 发表于 2011-6-27 14:50
把上面的代码改一下就完事了嘛：
1、修改查询：
Function UpSql(sqlname as string,ssql as string)
...

谢谢版主，真厉害呀

QueryDef  这个得引用 DAO 运行库吧

顺便再问一下，调用函数执行代码与直接执行代码对速度有影响吗？如果有，影响大吗？

todaynew

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

QueryDef  这个得引用 DAO 运行库吧

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