Excel和DB2连接

我必须检查是否使用CLI / ODBC驱动程序build立了Excel和DB2之间的连接。

为此，我计划编写一个batch file，在这里我将调用Excel工作表，然后它将自动执行一个macros，这将从sysibm.sysdummy1表中引出一些虚拟数据。

我需要可以连接到我的数据库的代码，并检查连接是否已build立，如果连接已build立，则发出一些成功消息，如果连接未build立，则发出失败消息。 （可能有一些解释发生问题的地方）

Answer 1

您可以使用ADODB（ActiveX数据对象）在DB2服务器和Excel之间build立ODBC（或OleDB）连接。 请参阅此链接了解示例连接string。

此链接将显示与ADODB一起使用的示例VBA代码连接到数据库： 如何使用ADO与Excel数据从Visual Basic或VBA

编辑 ：这是一些快速和脏的示例代码。 将“.connectionstring =”部分replace为适合您的安装的连接string。

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