Topic: QTP Script to Update Database Data

VBScript to update data 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 "update EMP set EMPSAL=50000 ",con

msgbox("Updated")


Above script(code)will update database table(EMPSAL=50000).

Output:

EMPNO EMPNAME EMPSAL
1 Lakshmi 50000
2 Laxmi 50000
3 Latha 50000