Connect to IBM DB2

Tested in Excel 365 (16.8730.2046) 64-bit. All links open in new tab.

Prerequisites: IBM DB2 Data Server Driver, minimum requirement is the IBM Data Server Driver Package (DS Driver).
Here I used the GSDB sample database offered by IBM, installed as “sampledb”.

 
 
  2. Public Sub OpenDB2Recordset()
  3.     ' needs reference to Microsoft ActiveX Data Object...
  4.    Dim cn As ADODB.Connection
  5.     Dim rs As ADODB.Recordset
  6.     Dim SQL As String
  7.    
  8.     SQL = "select * from GOSALES.BRANCH"
  9.     Set cn = New ADODB.Connection
  10.     Set rs = New ADODB.Recordset
  11.    
  12.     cn.Open ("Provider=IBMOLEDB.IBMDBCL1;data source=sampledb;" & _
  13.         "location=localhost;Protocol=TCPIP;" & _
  14.         "Port=50000;Uid=USERNAME;Pwd=PASSWORD;")
  15.    
  16.     rs.Open SQL, cn
  17.     ' do something with the recordset
  18.    Debug.Print rs.Fields(1).Value
  19.     Set rs = Nothing
  20.     Set cn = Nothing
  21. End Sub
  23.  

Add a Comment

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.