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