大家好, 小弟最近利用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执行该指令是否需要改写哪部分
感恩~~
(其实没办法执行也没啥影响, 因为我的用途主要是用一些查询指令和汇整函数)