No image available

skrip QTP untuk koneksi ke database

skrip QTP untuk koneksi ke MS Access.

Opsi eksplisit

Dim kon, rs

Tetapkan con = createobject ("adodb.connection")

Set rs = createobject ("adodb.recordset")

con.provider = "microsoft. js.oledb.4.0 "

con.open" d: testdata.mdb "

rs.open" select * from emp ", con

Lakukan sementara saat rs.eof

(V1) VbWindow ( "Form1"). VbEdit ("val1"). Set rs.fields ("v1")

Set Vs.Wb ("Form1"). VbEdit ("val2"). Set rs.fields ("v2")

VbWindow ("Form1"). VbButton ("ADD")

rs.movenext

Loop

Database yang kami gunakan di sini adalah MS Access. Sebelum Anda menjalankan skrip ini, buat tabel di MS Acess.

Dalam skrip di atas, saya menggunakan tabel bernama "emp" dan nama kolom seperti "v1" dan "v2".

"d: testdata.mdb" adalah jalur dari tabel yang telah kita buat.

Penggunaan paling penting dari skrip ini adalah menggunakan data uji dari tabel (yang ada dalam database) dalam aplikasi.

Dalam skrip di atas kami meneruskan nilai dari database ke kotak teks di aplikasi Windows.

Skrip serupa untuk menghubungkan ke 2 database lain adalah

skrip QTP untuk koneksi ke sqlserver.

Opsi eksplisit

Dim kon, rs

Tetapkan con = createobject ("adodb.connection")

Tetapkan rs = createobject ("adodb.recordset")

con.open "provider = sqloledb "

rs.open" select * from emp ", con

Lakukan sementara bukan rs.eof

(V1) VbWindow (" Form1 "). VbEdit ("val1"). Set rs.fields ("v1")

Set Vs.Wb ("Form1"). VbEdit ("val2"). Set rs.fields ("v2")

VbWindow ("Form1"). VbButton ("ADD")

rs.movenext

Lingkaran

Skrip untuk terhubung ke oracle

Opsi Ekspres

Dim kon, rs

Set rs = createobject (" adodb.recordset ")

con.open" provider = oraoledb.1; server = localhost;

uid = scott; pwd = tiger; database = data uji "

rs .open" pilih * dari emp ", con

Lakukan sementara saat rs.eof

(V1) VbWindow ("Form1"). VbEdit ("val1"). Set rs.fields ("v1")

Tetapkan Vs.Wb ("Form1"). VbEdit ("val2"). Set rs.fields ("v2")

VbWindow ("Form1"). VbButton ("ADD")

rs.movenext

Loop

Ini adalah bagaimana Anda terhubung ke database di QTP dan mengekstrak nilai dari database.



Source by Snigdha Lak