Print Page | Close Window

QTP Script to Delete Database Data

Printed From: One Stop Testing
Category: Testing Tools @ OneStopTesting
Forum Name: QuickTest Pro @ OneStopTesting
Forum Discription: QuickTest Pro is a fresh approach to automated software and application testing that addresses testing needs of both business analysts and Quality Assurance professionals.
URL: http://forum.onestoptesting.com/forum_posts.asp?TID=7376
Printed Date: 18Nov2024 at 10:48pm


Topic: QTP Script to Delete Database Data
Posted By: Mithi25
Subject: QTP Script to Delete Database Data
Date Posted: 25Nov2009 at 10:41pm
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
http://sqlqueriescollection.blogspot.com/ -
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

-------------
http://www.quick2sms.com - Send Unlimited FREE SMS to Any Mobile Anywhere in INDIA,
Click Here



Print Page | Close Window