執行多個sql，
Private Sub Command1_Click()
Dim strSql as string
strSQL="XXXXX"
DoCmd.RunSql strSQL '運行第一個更新陳述句
strSQL="XXXX"
DoCmd.RunSql strSQL '運行第二個更新陳述句
End Sub
SQL就一行的很容易執行，直接復制進去替換XXXX就可以了，但目前遇到sql有多行，
如：select a.1,a.2 sum a.3 as 4 into b in'F:\YYYYYYYYY'
from a
group by a.1,a.2,a,3
having (a.1="W")；
求教如何執行，純小白，實在不懂。
uj5u.com熱心網友回復：
把sql陳述句放到一行，去掉換行，或者用+等把多行sql陳述句鏈接起來uj5u.com熱心網友回復：
弄個表單，放個文本框，把SQL放到里面，執行的時候SQL就取文本框內容uj5u.com熱心網友回復：
Private Sub Command1_Click()Dim strSql as string
strSQL="select a.1,a.2 sum a.3 as 4 into b in'F:\YYYYYYYYY'+from a+group by a.1,a.2,a,3+having (a.1="W")；"
DoCmd.RunSql strSQL '運行第一個更新陳述句
strSQL="XXXX"
DoCmd.RunSql strSQL '運行第二個更新陳述句
End Sub
是這樣嗎 增加+ 嘗試了 提示錯誤 去掉換行換成空格也不對
辛苦大神，幫忙研究研究
uj5u.com熱心網友回復：
strSQL="select a.1,a.2 sum a.3 as 4 into b in'F:\YYYYYYYYY'"+" from a "
+"group by a.1,a.2,a,3+having (a.1="W")；" 這樣呢
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/128574.html
標籤：應用實例
上一篇：不止哪里錯了，在線等答案。