- 帖子
- 12
- 主題
- 4
- 精華
- 0
- 積分
- 12
- 點名
- 0
- 作業系統
- 7
- 軟體版本
- 7
- 閱讀權限
- 10
- 註冊時間
- 2012-9-13
- 最後登錄
- 2024-11-9
|
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 |
|
發表於 2014-7-10 16:36
| 
