VBA在mysql上的查询

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

我是mysql的新手。我试图通过宏记录在mysql数据库中查询一些数据,但不知何故,我想编辑commandtext,添加一些“JOIN,WHERE等”。下面是录制的宏,它工作正常。谢谢

亚宏观1()


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