安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access vba动态创建查询

2017-11-15 17:25:00
tmtony8
原创
4198

在Access中,我?#19988;?#33324;都是通过菜单栏的创建=》查询=》查询设计来新建一个查询的。

但是有的时候。我们希望有VBA 动态创建一个查询,方便我们临时调用这个查询,比如导出这个新创建的查询的数据,然后删除之


详细函数:

Public Sub createqry(strsql As String, strName As String) 
    CurrentDb.CreateQueryDef strName, strsql                      'create querydef

End Sub


Public Sub deleteqry(strName As String) 
  CurrentProject.Application.DoCmd.DeleteObject acQuery, strName             'delete querydef
End Sub



在窗体放置两个按钮,一个“创建查询”,一个“删除查询”。

创建查询按钮的单击事件代码,效果如下图

Private Sub Command0_Click()
    Call createqry("select * from tbl1 where 水果='苹果'", "查询苹果")
End Sub




“删除查询按钮的单击事件代码,效果如下图

Private Sub Command1_Click()
    deleteqry "查询苹果"
End Sub


    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
    内存占用:7.75MB
    PHP 执行时间:0.17
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假