Office中国论坛/Access中国论坛

标题: 请问如何在VBA代码中获得查询中的SQL语句呢？ [打印本页]

作者: fxbianxiu 时间: 2011-6-27 09:27
标题: 请问如何在VBA代码中获得查询中的SQL语句呢？
在窗口中建立的查询，如何在VBA代码中获得查询中的SQL语句呢？

作者: todaynew 时间: 2011-6-27 10:00

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

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

作者: fxbianxiu 时间: 2011-6-27 11:18
不是这种方式，想在代码中直接得到 SQL 语句，

作者: todaynew 时间: 2011-6-27 11:32

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 时间: 2011-6-27 13:48

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

Function GetSql(sqlname as string) as string

嘿嘿，谢谢啦，

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

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

作者: todaynew 时间: 2011-6-27 14:50
本帖最后由 todaynew 于 2011-6-27 14:54 编辑

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 时间: 2011-6-27 22:24
本帖最后由 fxbianxiu 于 2011-6-27 22:29 编辑

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

谢谢版主，真厉害呀

QueryDef 这个得引用 DAO 运行库吧

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

作者: todaynew 时间: 2011-6-28 08:17

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

QueryDef 这个得引用 DAO 运行库吧

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

作者: fxbianxiu 时间: 2011-6-28 09:39

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

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