VBA在mysql上的查询
我是mysql的新手。我试图通过宏记录在mysql数据库中查询一些数据,但不知何故,我想编辑commandtext,添加一些“JOIN,WHERE等”。下面是录制的宏,它工作正常。谢谢 亚宏观1()VBA在mysql上的查询,mysql,vba,odbc,Mysql,Vba,Odbc,我是mysql的新手。我试图通过宏记录在mysql数据库中查询一些数据,但不知何故,我想编辑commandtext,添加一些“JOIN,WHERE等”。下面是录制的宏,它工作正常。谢谢 亚宏观1() End Sub不了解mysql/access,但认为您应该编辑这一行.CommandText=Array('Mfg.'kgbRun')谢谢patrick,但数组类型不起作用。我的意思是命令是在.CommandText中传递的。也许您需要改用ADODB.Connection。一些消息来源如 With
End Sub不了解mysql/access,但认为您应该编辑这一行
.CommandText=Array('Mfg.'kgbRun')
谢谢patrick,但数组类型不起作用。我的意思是命令是在.CommandText
中传递的。也许您需要改用ADODB.Connection。一些消息来源如
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
"OLEDB;Provider=MSDASQL.1;Persist Security Info=True;Data Source=MySQL Excel;Extended Properties=""DSN=MySQL Excel;"";Initial Catalog=Mfg" _
, ""), Destination:=Range("$A$1")).QueryTable
.CommandType = xlCmdTable
.CommandText = Array("`Mfg`.`kgbRun`")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = _
"C:\Users\atanacic\Documents\My Data Sources\Mfg.odc"
.ListObject.DisplayName = "Table_Mfg15"
.Refresh BackgroundQuery:=False
End With