Hi All,
I tried to connect my DB via QTP. I used the below Script in QTP for
connecting and querying DB. Iam gettign this below error in dialog
box
"[Oracle][ODBC][Ora]ORA-12560: TNS:protocol adapter error
Line (22): "conn1.Open".
Note: First I used one host in connection string. Still I got the same
error. I also set up "MYDB" datasource in "System DSN" tab on
Control Panel -> Administrative Tools ->Data Sources (ODBC) for
"Oracle in OraClient10g_home1" driver. I tested the connection after
setting up here and the connection was successful. I am able to
connect to MYDB through TOAD application.
Please advice me how to correct the script.
************Starting of Script******************
thisUser = username
thisPW = password
Environment("CURRENT_SERVICE_NAME") = "MYDB_APP.company.net"
sql = "select * from my_table';"
ConStr = "Driver={Oracle in OraClient10g_home1}; " & _
"CONNECTSTRING=(DESCRIPTION=" & _
"(ADDRESS = (PROTOCOL = TCP)" & _
"(host = abcn01p.company.net || host = def03v2.company.net)
(PORT=1521))" & _
"(CONNECT_DATA=(SERVICE_NAME = " & Environment("CURRENT_SERVICE_NAME")
& "))); uid=" & thisUser & ";pwd=" & thisPW & ";"
Set conn1 = CreateObject("ADODB.Connection")
Set thisObjRS = CreateObject("ADODB.recordset")
conn1.ConnectionString = ConStr
conn1.Open
Set thisObjRS = conn1.Execute(query,,adExecuteNoRecords)
varArray = thisObjRS.GetRows
**************End of Script******************
My TNS.Ora file is exactly same as below.
MYDB =
(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(host = abcn01p.company.net)(port =
1521))
(ADDRESS = (PROTOCOL = TCP)(host = def03v2.company.net)(port =
1521))
)
(CONNECT_DATA =
(service_name = MYDB_APP.company.net)
)
(source_route = yes)
)
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
