To Retrieve Column Names From Database Table in QTP-VBScript To Get Column Names From Table Present in Database

VB Script to get column names from database table(MS Access).

We have table "EMP" in database "db"(Microsoft Access).

EMP Table has following data in it.

EMPNO EMPNAME EMPSAL
1 Lakshmi 30,000
2 Laxmi 25,000
3 Latha 15,000

Check This Blog For SQL Queries

Dim con,rs
Set con=createobject("adodb.connection")
Set rs=createobject("adodb.recordset")
con.provider="microsoft.jet.oledb.4.0"
con.open"d:\db.mdb"
rs.open"select*from EMP",con
For i = 0 To rs.Fields.Count - 1
column_name=rs.Fields(i).Name
Msgbox column_name
Next

Output:

EMPNO
EMPNAME
EMPSAL

SQL Queries Collection
QTP Script for Connecting to database
QTP Script to export database data to excel sheet
QTP Script to import database data to datatable
Connecting to MSAcess,Oracle,SQL Server Database
Hindi and Telugu Songs Lyrics