大家好, 小弟最近利用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執行該指令是否需要改寫哪部分
感恩~~
(其實沒辦法執行也沒啥影響, 因為我的用途主要是用一些查詢指令和彙整函數)