I have made a connection to Access database from QTP using ADODB connection,,,, and also declared a recordset for it....There are 2 rows in the database and i want to fetch the values from all the rows...But the problem is that when the first record is fetched , QTP runs the whole script and again starts for the first line of the QTP code for the second iteration....and in this process it again opens the same connection and fetches the same first row again..... Can anyone tell me how to fetch the values from next of database in the next iteration....I shall be thankful if anyone can provide me the code for the same ...tx.

shibu1
Profile Answers by shibu1 Questions by shibu1
Sep 24th, 2006
3
2760

Showing Answers 1 - 3 of 3 Answers

ramkumary
Profile Answers by ramkumary

Sep 29th, 2006

Hai
Let me know if it is wrong
1.Write 3 Fucntions which have different data base connection open and recordser declaration.
Func1()
For Ms access
Func2()
For Oracle
Func3()
For Sql Server
2.Declare 1 variable in the beginning and set value=1 while in the first iteration
After the end the each iteration update the value by1(i.e 2)
3.Write a one more function called Validate
funcValidate()
It should verify the current value if Step 2 varibale
If value of the varible=2
Call func2()
If value of the varible=3
Call func3()
My Mail id : ramyoganathan@aim.com
Warm Regards
Ram.

mkgeek7

May 29th, 2007

After creating a SQL Server 2005 database, I have problem connecting to the database using OBDC from QTP. Please can you post your script for SQL server database connection from QTP.

Thanks
Yared

meenakshi55in
Profile Answers by meenakshi55in

Jul 15th, 2008

Set Conn = CreateObject("ADODB.Connection" )
str="DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;DATABASE=employee;user id=root ; password=stc"
Conn.open str
Set Rs = CreateObject ("ADODB.Recordset" )
Set Rs1 = CreateObject ("ADODB.Recordset" )
sql = "select * from emp;"
sql1="select count(*) from emp;"
Rs.open sql,conn
Rs1.open sql1,conn
c=Rs1(0)
msgbox "no. of rows "&c
For i= 0 to cint(c)-1
MsgBox Rs(0)&" | "&Rs(1)
Rs.Movenext
next
Rs1.close
Set Rs1 = Nothing
Rs.close
Set Rs = Nothing
Conn.close
Set Conn = Nothing

tell me is it helpful for u or not
Raghu, stcthirdeye@yahoo.co.in