How to Import Data from Database Table to Datatable in QTP

Here is the example script for importing the data from a specific column of MS Access Database Table to Datatable's GlobalSheet.

Example  :

Dim db

Set db=CreateObject("ADODB.Connection")

db.connectionString="DBQ=C:\PROGRAM FILES\HP\QuickTest Professional\samples\flight\app\flight32.mdb;DefaultDir=C:\PROGRAM FILES\HP\QuickTest Professional\samples\flight\app;Driver={Microsoft Access Driver (*.mdb)};DriverId=281;FIL=MS Access;FILEDSN=C:\Program Files\Common Files\ODBC\Data Sources\flight32.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"

db.Open

Set RecordSet=db.Execute("Select * from Orders")

i=1

While (NOT recordset.EOF)

Datatable.SetCurrentRow(i)

Datatable("CustomerName",dtGlobalSheet)=Recordset.Fields("Customer_Name")

msgbox Datatable("CustomerName",dtGlobalSheet)

Recordset.MoveNext

i=i+1

Wend

db.Close

Set db=Nothing