作者h888512 (速球勝負 + 45度角絕殺)
看板Visual_Basic
標題[VBA ] 增加DB的資料指令
時間Tue Jun 11 16:51:13 2019
大家好, 小弟最近利用VBA進行一些DB資料更新的指令, 如下
Sub 巨集3()
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"ODBC;DSN=MySQLreal;", Destination:=Range("$A$1")).QueryTable
.CommandText = Array( _
"INSERT INTO shop.shohin VALUES ('0001','Good');COMMIT;")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "表格_來自_MySQLreal_的查詢"
.Refresh BackgroundQuery:=False
End With
End Sub
會出現警示訊息: SQL語法錯誤, 看起來主要是command text那邊的SQL指令的問題
不過將程式碼用MySQL執行是沒問題的, 不確定使用VBA執行該指令是否需要改寫哪部分
感恩~~
(其實沒辦法執行也沒啥影響, 因為我的用途主要是用一些查詢指令和彙整函數)
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.228.233.54 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1560243077.A.DB5.html
1F：→ zhixiangJ: ' 改成 '' 試試 06/13 13:56