+- 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.
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,adLockBatchOptimisticUsing CursorLocation = adUseClient means you can navigate the rsResults RecordSet using MoveNext, MoveFirst etc.