Scribd
Upload
77 views

Database Connections: What Is Adodb Connection ?

The document discusses how to connect to different database types from QTP scripts using ADO connections and recordsets. It provides code samples to connect to MS Access, SQL Server, Oracle, MySQL, Excel, and Sybase databases. The scripts create an ADO connection object and recordset object, open a connection to the database using connection string parameters, open a recordset to execute a query, retrieve field values and pass them to GUI elements, then close and release the objects.

Uploaded by

Venkataramana Sama
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
77 views

Database Connections: What Is Adodb Connection ?

The document discusses how to connect to different database types from QTP scripts using ADO connections and recordsets. It provides code samples to connect to MS Access, SQL Server, Oracle, MySQL, Excel, and Sybase databases. The scripts create an ADO connection object and recordset object, open a connection to the database using connection string parameters, open a recordset to execute a query, retrieve field values and pass them to GUI elements, then close and release the objects.

Uploaded by

Venkataramana Sama
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 4

Database Connections

What is adodb connection ?

The ADO(ActiveX Data Objects) Connection object is used to create a connection to a


data source. Through this connection, you can access and manipulate a database.

What is adodb recordset?

The ADO Recordset object is used to hold a set of records from a database table.To be
able to read database data, the data should be loaded into a recordset.

⇒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

You might also like