[VBA ] 增加DB的资料指令

楼主: h888512 (速球胜负 + 45度角绝杀)   2019-06-11 16:51:13
大家好, 小弟最近利用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执行该指令是否需要改写哪部分
感恩~~
(其实没办法执行也没啥影响, 因为我的用途主要是用一些查询指令和汇整函数)
作者: zhixiangJ (仍然~有可能)   2019-06-13 13:56:00
' 改成 '' 试试

Links booklink

Contact Us: admin [ a t ] ucptt.com