來自excel宏的DB2連接

Question

我想從excel宏連接到DB2 ...這是我的代碼，但它不工作，它給出的錯誤爲'運行時錯誤'...任何人都可以幫助我...

Option Explicit 

Dim DBCONSRT, QRYSTR As String 

Dim DBCON, DBRS As Object 

Private Sub query() 
    DBCONSRT = "Driver=jdbc:db2://my_host;Database=PRTHD;hostname=NZ1;port=5355;protocol=TCPIP; uid=my_user;pwd=my_pass" 
    'CHANGE THE BELOW QUERY STRING ACCORDING TO YOUR NEED 
    QRYSTR = "select * from PRTHD.STRSK_OH_EOO" 
    Set DBCON = CreateObject("ADODB.Connection") 
    DBCON.ConnectionString = DBCONSRT 
    DBCON.Open 
    'BELOW CODE USED TO GET THE DATABASE CONECTION AND EXECUTE THE QUERY CHANGE ACCORDIGN TO YOUR NEED 
    Set DBRS = CreateObject("ADODB.Recordset") 
    With DBRS 
     .Source = QRYSTR 
     Set .ActiveConnection = DBCON 
     .Open 
    End With  
End Sub 

---

編輯：我已經改變了我的代碼以下，但我仍然得到一個錯誤。錯誤是「不能創建對象」。可以ayone幫助我..

Dim DBCONSRT, QRYSTR As String 

Dim DBCON As Object 

Sub query() 

    DBCONSRT = "Provider=MSDASQL.1;Persist Security Info=False;User ID=user;Data Source=NZ1;DSN=NZ1;UID=user;SDSN=;HST=ibslnpb1.sysplex.homedepot.com;PRT=4101;Initial Catalog=PRTHD;" 

    DBCON = CreateObject("OLEDB.Connection") 
    DBCON.ConnectionString = DBCONSRT 
    DBCON.Open() 
End Sub 

Answer 1

的JDBC功能我敢肯定不是通過VBA支持，我認爲你需要使用ODBC連接器連接，如果你到DB2正試圖將其整合到excel中。

Private Sub query() 
    DBCONSRT = "Provider=MSDASQL.1;Persist Security Info=False;User ID=user;Data Source=NZ1;DSN=NZ1;UID=user;SDSN=;HST=ibslnpb1.sysplex.homedepot.com;PRT=4101;In‌​itial Catalog=PRTHD;" 
    Using connection = New OleDbConnection(DBCONSRT) 
     connection.Open() 
     Dim cmd = connection.CreateCommand() 
     cmd.CommandText = QRYSTR //This is where your sql statement should go, or the variable that is equal to the query. 
     Using dr = cmd.ExecuteReader() 
      //Process your query results here 
     End Using 
    End Using 
End Sub 

Answer 2

開始改變

DBCON = CreateObject("OLEDB.Connection") 

到

Set DBCON = CreateObject("ADODB.Connection") 

如果仍然出現錯誤，double-check your connection string。