How to fetch data from database in QTP

How to fetch data from database in QTP

Code below can be used to read data from database in QTP.



Set db = createobject("ADODB.Connection")
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\priyanka\vb6\admission_project.mdb;Persist Security Info=False"

Set rst = createobject("ADODB.Recordset")

rst.Open "select * from Course ", db,3

id = rst.RecordCount

For i=0 to id-1
print rst.fields(0) & rst.fields(1) & rst.fields(2) & rst.fields(3)
rst.Movenext
Next