Excel和DB2連接

Question

我必須檢查是否使用CLI/ODBC驅動程序建立了Excel和DB2之間的連接。

對於我打算寫在哪裏將被調用excel工作表這反過來將自動執行的宏，其將從SYSIBM.SYSDUMMY1錶帶出一些僞數據的批處理文件。

我需要能夠與我的數據庫建立連接的代碼，並通過在建立連接時發出一些成功消息並在連接未建立時發出失敗消息來檢查連接是否已建立。 （可能在發生問題時有一些解釋）

Answer 1

您可以使用ADODB（ActiveX數據對象）在DB2服務器和Excel之間建立ODBC（或OleDB）連接。有關示例連接字符串，請參見this link。

此鏈接會顯示樣品VBA代碼ADODB用來連接到數據庫： How To Use ADO with Excel Data from Visual Basic or VBA

編輯：下面是一些快速和骯髒的示例代碼。將「.connectionstring =」部分替換爲適合您的設置的正確連接字符串。

Dim cn As ADODB.Connection 
Dim rsT As New ADODB.Recordset 
Dim strSQL As String 

strSQL = "SELECT * FROM sysibm.sysdummy1 FETCH FIRST 10 ROWS ONLY" 
Set cn = New ADODB.Connection 

With cn 
    .Provider = "Microsoft.Jet.OLEDB.4.0" 
    .ConnectionString = "Data Source=" & App.Path & _ 
"\ExcelSrc.xls;Extended Properties=Excel 8.0;" 
    .Open 
End With 

rsT.Open strSQL, cn 

rsT.MoveFirst 
Do Until rs.EOF 
    Debug.Print rs.Fields(0) 
    rsT.MoveNext 
Loop 

rsT.Close 
cn.Close 

Set rsT = Nothing 
Set cn = Nothing