Topic: QTP Script to Delete Database Data

VBScript to delete a single row in database table.

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

EMP Table has following data in it.


EMPNO EMPNAME EMPSAL
1 Lakshmi 30000
2 Laxmi 25000
3 Latha 15000

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 "delete from EMP where empsal=15000 ",con

msgbox("Deleted")

Above script(code)will delete a row in database table(empsal=15000).

Output:

EMPNO EMPNAME EMPSAL
1 Lakshmi 30000
2 Laxmi 25000


To Delete all rows in database table just modify sql query as shown below

rs.open "delete from EMP where empsal=15000 ",con

Replace with

rs.open "delete from EMP ",con in the above code and the output will be

Output:

EMPNO EMPNAME EMPSAL