How to connect to MS Access with script?

With the below  code, we can connect MS Access,

Dim con,rs

Set con=createobject("adodb.connection")

Set rs=createobject("adodb.recordset")

con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;Uid=Admin;Pwd=;"

rs.open "select * from emp",con

Do while not rs.eof

   strArrival = rs.Fields("Arrival")

    strDeparutre = rs.Fields("Departure")

    Reporter.ReportEvent micDone, strArrival & ":" & strDeparture, ""

   rs.MoveNext

Loop

Set rs= nothing

Set con= nothing

Comments

Popular posts from this blog

Is QA a easy job?

Latest Version of TestComplete

Successful tester