<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. Access培訓
      網站公告
      ·Access快速平臺QQ群號:84825014    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
      您的位置: 首頁 > 技術文章 > Access數據庫-查詢/SQL語句

      RunSQL方法-執行access操作查詢

      時 間:2012-07-12 11:55:08
      作 者:竹笛   ID:8  城市:上海  QQ:2851379730點擊這里給張志發消息
      摘 要:操作查詢共有四種類型:刪除、更新、追加與生成表,通過建立操作查詢,可以實現數據的刪除、更新、追加與生成新的表,建立操作查詢有一個不利的地方,就是數據庫中的查詢對象太多,而如果用VBA代碼來實現,則可以少去很多查詢對象,下面以刪除查詢為例進行學習。
      正 文:

             請下載示例“3.2.8 用VBA代碼執行刪除查詢.mdb”,在這個示例的基礎進行本文檔的學習。點擊下載此附件

            刪除查詢可以從一個或多個表中刪除一組記錄。首先打開隨書示例“3.2.8用VBA代碼執行刪除查詢.mdb”,運行表tblSalelist,數據如圖3.116所示:


            
          圖3.116銷售明細

            假定廣州分公司的數據不全,需要重新導入時,就需要將廣州分公司的銷售數據全部刪除,這時,就可以使用以下代碼來刪除所有廣州分公司的銷售數據:


      Sub DelQry()
          Dim strSQL As String
          strSQL = "Delete tblSalelist.* " _
                 & "FROM tblSalelist " _
                 & "Where (((tblSalelist.comSale)='廣州分公司'));"
          DoCmd.RunSQL strSQL
      End Sub


            如何去用VBA代碼來執行查詢代碼,通過上面的代碼我們學習了一下,也可以說是掌握了,但是,上面的SQL代碼是如何寫出來的,這個是關鍵,下面來學習如何寫出刪除查詢的SQL代碼。
            單擊對象中的【查詢】,再單擊上方的【新建】,如圖3.117所示:


             
            圖3.117寫刪除查詢SQL代碼(1)

            這時,會出現新建查詢對話框,如圖3.118所示:


             
           圖3.118寫刪除查詢SQL代碼(2)

            選擇設計視圖,單擊【確定】按鈕后,出現顯示表,如圖3.119所示:


             
            圖3.119寫刪除查詢SQL代碼(3)

            選擇表tblSalelist,單擊【添加(A)】按鈕,再單擊【關閉(C)】按鈕后,畫面如圖3.120所示:


             
            圖3.120寫刪除查詢SQL代碼(4)

            選擇*和comSale字段,如圖3.121所示:


             
            圖3.121寫刪除查詢SQL代碼(5)

            在菜單欄上選擇【查詢(Q)】,單擊子菜單 ,如圖3.122所示:


             
            圖3.122寫刪除查詢SQL代碼(6)

            然后,在條件欄中輸入”廣州分公司”,如圖3.123所示:


             
            圖3.123寫刪除查詢SQL代碼(7)

            保存查詢,將名稱設置為qryDel,這樣,刪除查詢就建立完畢了,結果如圖3.124所示:


             
            圖3.124寫刪除查詢SQL代碼(8)

            選中qryDel,單擊 進入查詢qryDel的設計界面,如圖3.125所示:


             
            圖3.125寫刪除查詢SQL代碼(9)

            在菜單欄選擇【視圖(V)】中的子菜單 ,如圖3.126所示:

            
            圖3.126寫刪除查詢SQL代碼(10)

            這時,就出現了這個查詢的SQL代碼,如圖3.127所示:


             
            圖3.127寫刪除查詢SQL代碼(11)

            新建一個窗體frmTest,在frmTest窗體上新建一個命令按鈕btnTest,在btnTest的單擊事件中,將上面的SQL復制到VBA代碼中,稍加修改就可以在VBA代碼中使用了,對比一下本節前面所寫的SQL代碼:


      Private Sub btnTest_Click()
          Dim strSQL As String
          strSQL = "Delete tblSalelist.* " _
                 & "FROM tblSalelist " _
                 & "Where (((tblSalelist.comSale)='廣州分公司'));"
          DoCmd.RunSQL strSQL
      End Sub


            說明:在上面的代碼中," _ 放在上一行的末尾和&放在下一行的開頭,用途是將兩行連接起來。廣州分公司前后的雙引號改成了單引號。

            同理,更新、追加與生成表查詢都可以采用上述方法來復制到SQL代碼,應用到VBA代碼中。




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

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

      2015/11/11 15:33:41悍將
      頂!

      2013/12/12 14:33:19麥田
      精彩

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

      用戶名:
      密 碼:
      內 容:
       

      常見問答

      技術分類

      相關資源

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