Creating Connection string for DB2

[sqadri]

Hi,

I am trying to craete a cnnection string for DB2 but cannot it working. Here are the functions I am suing. Could someone please tell me what is wrong. I believe it is the data Source but dont know what that is.

Code:

Function getConnection ()
    On Error Resume Next
    Dim oConnection,ConnectionString
    ConnectionString ="jdbc:db2://ny-c-012:50000/hztest" '"Provider=Microsoft.Jet.OLEDB.4.0"
    Data Source="DB2LUW"'"hztest"'C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight32.mdb"
    User Id="db2admin", Password="Ibmtest1"
    Set oConnection = CreateObject("ADODB.Connection")
    oConnection.Open ConnectionString
    Set getConnection = oConnection
End Function

Function CheckConnection
   Dim MyConnString, MyConnection
   Set MyConnection = getConnection
   If MyConnection.Errors.Count = 0 Then
       Print "Database Connected"
    else
        Print "Database Failed"
   End If
End Function

Thanks,
Sqadri

[sshukla12]

Hi,

Could u please try this:

Code:

Function GetDataFromBase(DNS,UID,PWD,QUERY)

    Set MyConnection = CreateObject("ADODB.Connection")
    Set myrecordset = CreateObject("ADODB.recordset")

    MyConnection.ConnectionString ="DSN=" & DNS  & "; UID=" & UID & ";PWD=" & PWD

    MyConnection.Open
    Set myrecordset = MyConnection.Execute(QUERY)
    GetDataFromBase = myrecordset(0)
    MyConnection.Close

End Function

Let me know if its work's 4 u.

Regards,
Sankalp