Access培訓
網站公告
·Access快速平臺QQ群號:84825014    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
您的位置: 首頁 > 技術文章 > Access數據庫-窗體/數據頁

VBA代碼添加修改刪除查詢

時 間: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
*******************又是我, 我是華麗的分割線
附變量的設置:
數字型變量:"& 變量 & "
文本型變量:'"& 變量 &"'
日期型變量:#"& 變量 &"#
*********************還是我,我是華麗的分割線
通過這次學習,發現一般的一個表的查詢如果使用代碼創建還可以非常方便,算是減輕了工作量,優化了步驟,假如新增的時候,使用組合框顯示表名稱來創建查詢就更加的方便了,這里把思路留給各位同好,或者留到下一次再去挖掘。

*************最后還是我,我是華麗的分割線
每一次的進步都是為了怎么把自己從繁瑣枯燥的工作中解脫出來,讓自己做的東西更加智能化。

附   件:

點擊下載此附件



Access軟件網官方交流QQ群 (群號:252407829)       access源碼網店

最新評論 查看更多評論(0)

發表評論您的評論將提升作者分享的動力!快來評論一下吧!

用戶名:
密 碼:
內 容:
 

常見問答

技術分類

相關資源

關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助