QTP
Scripts for connecting to MS Access:
Option Explicit
Dim con,rs
Set con=createobject("adodb.connection")
Set rs=createobject("adodb.recordset")
con.open "Driver={Microsoft
Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;Uid=Admin;Pwd=;"
rs.open "select * from
emp",con
Do while not rs.eof
VbWindow("Form1").VbEdit("val1").Set
rs.fields("v1")
VbWindow("Form1").VbEdit("val2").Set
rs.fields("v2")
VbWindow("Form1").VbButton("ADD").Click
rs.movenext
Loop
'Release objects'Release
objects
Set rs= nothing
Set con= nothing
Note: The database we are using here is MS Access.Before running this
script create a table in MS Acess.In the above script I used table called
"emp" and column 'names as "v1" and "v2".
"d:testdata.mdb" is path of the table which we created. The main use
of this script is to use testdata of table(which is in ' database) in the
application. In the above script we are passing values from database to
Textboxes in Windows Application.
⇒QTP Script for connecting to sqlserver:
Option Explicit
Dim con,rs
Set con=createobject("adodb.connection")
Set rs=createobject("adodb.recordset")
con.open"Driver={SQL
Server};server=MySqlServer;uid=MyUserName;pwd=MyPassword;database=pubs"
rs.open "select * from
emp",con
Do while not rs.eof
VbWindow("Form1").VbEdit("val1").Set
rs.fields("v1")
VbWindow("Form1").VbEdit("val2").Set
rs.fields("v2")
VbWindow("Form1").VbButton("ADD").Click
rs.movenext
Loop
'Release objects'Release
objects
Set rs= nothing
Set con= nothing
⇒QTP Script for connecting to oracle:
Option Explicit
Dim con,rs
Set con=createobject("adodb.connection")
Set rs=createobject("adodb.recordset")
con.open "Driver={Microsoft
ODBC for Oracle};Server=QTPWorld; Uid=your_username;Pwd=your_password;"
rs.open "select * from
emp",con
Do while not rs.eof
VbWindow("Form1").VbEdit("val1").Set
rs.fields("v1")
VbWindow("Form1").VbEdit("val2").Set
rs.fields("v2")
VbWindow("Form1").VbButton("ADD").Click
rs.movenext
Loop
'Release objects
Set rs= nothing
Set con= nothing
⇒QTP Script for connecting to MySQL:
Option Explicit
Dim con,rs
Set con=createobject("adodb.connection")
Set rs=createobject("adodb.recordset")
con.open"Driver={MySQL
ODBC 3.51 Driver};Server=localhost;Database=myDB;User=Uname;Password=Pwd;Option=3;"
rs.open "select * from
emp",con
Do while not rs.eof
VbWindow("Form1").VbEdit("val1").Set
rs.fields("v1")
VbWindow("Form1").VbEdit("val2").Set
rs.fields("v2")
VbWindow("Form1").VbButton("ADD").Click
rs.movenext
Loop
'Release objects
Set rs= nothing
Set con= nothing
⇒QTP Script for connecting to Excel:
Option Explicit
Dim con,rs
Set con=createobject("adodb.connection")
Set rs=createobject("adodb.recordset")
con.open "DRIVER={Microsoft
Excel Driver (*.xls)};DBQ=C:\TestStatus.xls;Readonly=True"
rs.open "SELECT
count(*) FROM [Status$] where Status = 'Failed' ",con
Msgbox rs(0)
'Release objects
Set rs= nothing
Set con= nothing
⇒QTP Script for connecting to Sybase:
Option Explicit
Dim con,rs
Set con=createobject("adodb.connection")
Set rs=createobject("adodb.recordset")
' Open a session to the
database
con.open"Driver={SYBASE
SYSTEM 11};Srvr=myServerAddress;Uid=Uname;Pwd=Pwd;Database=myDataBase;"
rs.open "select * from
emp",con
Do while not rs.eof
VbWindow("Form1").VbEdit("val1").Set
rs.fields("v1")
VbWindow("Form1").VbEdit("val2").Set
rs.fields("v2")
VbWindow("Form1").VbButton("ADD").Click
rs.movenext
Loop
'Release objects
Set rs= nothing
Set con= nothing
