How to connect to Database using QTP or vbscripting

The following sample code (or some form of it) is readily available in most of the QTP or VBScript help forums, so don’t despair if I’m not giving you exactly what you need.


Dim objConn ' As an ADODB Connection object

Dim objRecSet ' As an ADODB Recordset object

Dim strConn ' As a connection string

Dim strQuery ' As a SQL query

' Create the connection and recordset objects

Set objConn = CreateObject("ADODB.Connection")

Set objRecSet = CreateObject("ADODB.Recordset")

' Create the connection string

strConn = "DRIVER={Oracle in instantclient10_2};DBQ=<YourTNSName>;UID=<YourUsername>;PWD=<YourPassword>"

' Define the SQL query

strQuery = "SELECT * FROM <YourDatabaseTable>"

' Open the connection

objConn.Open strConn

' Retrieve data using SQL query

objRecSet.Open strQuery, objConn

' Do something with the data here

' Close the connection (also closes the recordset and destroys both)

objConn.Close


Sample TNSNAMES.ORA Content:

YourTNSName =

(DESCRIPTION =

(ADDRESS_LIST =

(ADDRESS = (PROTOCOL = TCP)(HOST = <YourServerNameOrIP>)(PORT = <YourPortOrDefault1521>))

)

(CONNECT_DATA =

(SID = <YourDBSID>)

(SERVER = DEDICATED)

)

)