標題: VBA 連線 MySQL [打印本頁]

---

作者: character    時間: 2014-7-10 16:36     標題: VBA 連線 MySQL

在網路上找的很多連線資料都是要先安裝MYSQL的DRIVER

因為小弟要做的TOOL是要給很多人使用，沒辦法確保每位ｕｓｅｒ都會設定

有沒有辦法在不設定引用項目的前提之下，設定與mysql連線呢？

即是使用連線字串、設定物件的方式等...

這邊拋磚引玉一下，我提供MSSQL的設定，我用這種方式的話，ＵＳＥＲ就不用設定引用選項那些，直接執行就會連線去DB撈資料了
ActiveWorkbook.Worksheets.Add
ActiveSheet.Name = Sheets("Config").Range("B" & i)
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array("OLEDB;Provider=SQLOLEDB.1;Password=xxx;User ID=xxx;Trusted_Connection=False;Persist Security Info=True;Data Source=projdb;Use Procedure for Prepare=1;Auto Tran" _
    , _
    "slate=True;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=Mantis_Mirror"), Destination:=Range("$A$1")).QueryTable
    .CommandType = xlCmdSql
    .CommandText = Array("SELECT * FROM xxx " & Query_Mysql & Query_Date_Start & Query_Date_End)
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = False
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = True
    .SaveData = True
    .AdjustColumnWidth = False
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
    .ListObject.DisplayName = Sheets("Config").Range("B" & i)
    .Refresh BackgroundQuery:=False
End With

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)