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
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
Post a Comment