DB2 Connect connection with IE 11

DB2 Connect connection with IE 11 - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Beginners (https://www.learnqtp.com/forums/Forum-UFT-QTP-Beginners)
+--- Thread: DB2 Connect connection with IE 11 (/Thread-DB2-Connect-connection-with-IE-11)

DB2 Connect connection with IE 11 - SRP - 12-17-2015

I am first timer. Rolleyes

I have this code to connect to an IBM mainframe via DB2 Connect. It worked with UFT 11.53 and EI 10, I tested with IE 11 and it failed at objConnection.Open strCon. I upgraded to UFT12 same problem. "[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified"

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")

Dim strCon, SQLStr

strCon = "driver={IBM DB2 ODBC DRIVER - DB2};Database=TestDB2;hostname=DB2CONNSRV1;port=50000;protocol=TCPIP; uid=" & signonuser & "; pwd=" & signonpass

objConnection.Open strCon

RE: DB2 Connect connection with IE 11 - vinod123 - 12-18-2015

Code:
Set cmd = Server.CreateObject("ADODB.Command")

cmd.ActiveConnection = ConnVar

cmd.CommandType = adCmdStoredProc

cmd.CommandText = "Test"

cmd.Parameters.Append(cmd.CreateParameter("@my_date", adVarChar, adParamInput,10))

cmd.Parameters("@my_date") = "10/12/2012"

Set rsResults = Server.CreateObject("ADODB.Recordset")

rsResults.CursorLocation = adUseClient

rsResults.Open cmd,,adOpenForwardOnly,adLockBatchOptimistic

Using CursorLocation = adUseClient means you can navigate the rsResults RecordSet using MoveNext, MoveFirst etc.