分享：动态生成查询的VBA代码

olderdream2007@ · 发表于 2013-1-26 14:39:04

这个是动态生成查询的代码觉得比较用有贴出来

动态生成查询：

CurrentDb.QueryDefs("查询名称").SQL = "select * from table1"

Dim dbs As Database, strSQL1 As String, strSQL2 As String
      Dim qdf1 As QueryDef

      Set dbs = CurrentDb

      strSQL1 = "SELECT 职工表.* " & _
      "FROM 职工表 " & _
      "WHERE (((职工表.性别)" & GenderNo & ") " & _
      "AND ((职工表.是否已婚)" & Married & ") " & _
      "AND ((职工表.编制)" & PList & ")"

      strSQL2 = ");"       Set qdf1 = dbs.CreateQueryDef("~人员查询", strSQL1 + strSQL2)
      DoCmd.OpenQuery qdf1.Name


      dbs.Close

czlwb · 发表于 2013-1-26 16:51:41

这个是动态生成查询的代码觉得比较用

笑嘻嘻哦 · 发表于 2013-1-26 18:26:45

这种代码我还不会啊

yanwei82123300 · 发表于 2013-1-27 08:21:19

请看看刘晓军老师的例子最好

olderdream2007@ · 发表于 2013-1-27 13:06:09

yanwei82123300 发表于 2013-1-27 08:21
请看看刘晓军老师的例子最好

谢谢高人提示有链接么坛子里好像没有搜到谢谢

yanwei82123300 · 发表于 2013-1-27 18:48:44

刘小军这三个字即可搜索到

olderdream2007@ · 发表于 2013-1-27 22:32:27

谢谢高人搜到了学习中

roych · 发表于 2013-1-27 23:07:48

类似的例子很多：http://www.office-cn.net/thread-94266-1-1.html
温馨提醒一句，楼主注意不要舍本逐末。
不是说动态生成查询不好。有时候确实也是需要临时查询的，但大多数情况下，还是按设计视图做查询好些。一方面较直观，方便检查或者修改，另一方面，虽然，SQL注入式攻击往往只针对SQL Server，但是，如果不慎也容易被查到那些基础表，而进行恶意破坏也绝非不可能。
如果非要用临时查询，我的做法是先创建好一个查询，然后利用第一条代码，在后台编写执行。

olderdream2007@ · 发表于 2013-1-29 22:13:21

roych 发表于 2013-1-27 23:07
类似的例子很多：http://www.office-cn.net/thread-94266-1-1.html
温馨提醒一句，楼主注意不要舍本逐末。 ...

谢谢版主指点学习中学习中

Alashome · 发表于 2015-7-2 11:43:46

good

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[宏/菜单/工具栏] 分享：动态生成查询的VBA代码

群介绍
主题无相 (随机显示版	同地区群块其他地区)