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.