VBA代码添加修改删除查询

来源:原创 点击数:7852 　 | 收藏 | 复制

时　间:2020-06-14 10:26:16
作　者:欧志华 ID：51519 城市：广州
摘　要:VBA代码添加修改删除查询。
正　文:

VBA代码添加修改删除查询

在使用access数据库的过程中，创建查询是一个必不可少的步骤，每次都要手工去创建查询又是一件比较枯燥的事情(主要是想偷懒)，经过一番东翻西找,疯狂的百度后，终于是找到了方法如何实现VBA代码去新增修改删除查询，做出一个例子分享一下自己的收获。

制作例子和原理表述的清晰就不搞的太复杂了，简单明了才是好例子。

*******************我是华丽的分割线
新增一个名为"myQuery"查询,代码如下:
Private Sub cmd新增查询_Click()
    On Error GoTo errorHandler
    Dim dbs As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim strSQL As String
    Set dbs = CurrentDb
    Set qdf = dbs.CreateQueryDef("myQuery")
    Application.RefreshDatabaseWindow
    strSQL = "Select * FROM [供应商信息表] "
    qdf.SQL = strSQL

    qdf.Close
    Set qdf = Nothing
    Set dbs = Nothing
    MsgBox "已添加名称为 [myQuery] 查询"

ExitHere:
    Exit Sub
errorHandler:
    MsgBox Err.Description
    Resume ExitHere
End Sub

修改"myQuery"查询,代码如下:
Private Sub cmd修改查询_Click()
    On Error GoTo errorHandler
    Dim strSQL As String
    strSQL = "Select * FROM [供应商信息表] Where [供应商名称]='华为'"
    CurrentDb.QueryDefs("myQuery").SQL = strSQL

ExitHere:
    Exit Sub
errorHandler:
    MsgBox Err.Description
    Resume ExitHere
End Sub

删除"myQuery"查询,代码如下:
Private Sub cmd删除查询_Click()

    Dim Query1 As QueryDef

    CurrentDb.QueryDefs.Refresh
    For Each Query1 In CurrentDb.QueryDefs
        If Query1.Name = "myQuery" Then
            CurrentDb.QueryDefs.Delete Query1.Name
            Exit For

        End If
    Next Query1
End Sub

*******************又是我, 我是华丽的分割线

附变量的设置:
数字型变量:"& 变量 & "
文本型变量:'"& 变量 &"'
日期型变量:#"& 变量 &"#

*********************还是我,我是华丽的分割线
通过这次学习，发现一般的一个表的查询如果使用代码创建还可以非常方便，算是减轻了工作量，优化了步骤,假如新增的时候，使用组合框显示表名称来创建查询就更加的方便了，这里把思路留给各位同好，或者留到下一次再去挖掘。

*************最后还是我,我是华丽的分割线
每一次的进步都是为了怎么把自己从繁琐枯燥的工作中解脱出来，让自己做的东西更加智能化。

附件:

点击下载此附件