我正在嘗試通過 excel 宏連接我的資料庫。我嘗試了以下 VBA 代碼，但無法連接到 DB。請幫助我。
- 資料庫名稱：abcd
- 用戶名：普拉文
- 密碼：XYZ
- 主機：10.161.0.XX
- 港口：1519
- 服務名稱：PRODUCTDB
--------VBA代碼--------------
Dim con As ADODB.Connection
Dim rec As ADODB.Recordset
Set con = New ADODB.Connection`enter code here`
Set rec = New ADODB.Recordset
rec.CursorLocation = adUseClient
con.Open ("Provider=SQLOLEDB;Data Source=10.161.0.00;port=1519;Service name=PRODUCTDB;Initial Catalog=abcd;user ID=praveen; password=XYZ;")
uj5u.com熱心網友回復：
使用類似的東西來生成連接字串
Function ConnStr()
' For this to work we need a reference to
' Microsoft OLE DB Service Component 1.0 Type Library
'--------------
'Define variables and objects
'--------------
Dim DataLink As DataLinks
'--------------
'Create Objects
'--------------
Set DataLink = New DataLinks
'display the UDL dialog and put result in the cell
ConnStr = DataLink.PromptNew()
End Function
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/467230.html