QTP Script for connecting to MySQL:

Back to Menu

QTP Script for connecting to MySQL:

Option Explicit
 Dim Con,RS

 SetC con=CreateObject("ADODB.Connection")
 Set RS=CreateObject("ADODB.Recordset")

Con.Open Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=myDB;User=Uname;Password=Pwd;Option=3;
RS.Open "select * from emp",con

 Do while not RS.EOF
VbWindow("Form1").VbEdit("val1").Set RS.fields("v1")
VbWindow("Form1").VbEdit("val2").Set RS.fields("v2")
VbWindow("Form1").VbButton("ADD").Click
RS.MoveNext
 Loop

 'Release objects
 Set RS= nothing
 Set Con= nothing

Back to Menu