作者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/cn.aspx?n=bbs/Visual_Basic/M.1560243077.A.DB5.html
1F：→ zhixiangJ: ' 改成 '' 试试 06/13 13:56