Example -
Below Code will connect to database in MS-access and fetch data from std table
Option Explicit
Dim con,rs
Set con=createobject("adodb.connection")
Set rs=createobject("adodb.recordset")
con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydb.mdb;Uid=Admin;Pwd=;"
rs.open "select * from std",con
Do while not rs.eof
print rs.fields("c1")
rs.movenext
Loop
'release memory
Set rs= nothing
Set con= nothing
Option Explicit
Dim con,rs
Set con=createobject("adodb.connection")
Set rs=createobject("adodb.recordset")
con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydb.mdb;Uid=Admin;Pwd=;"
rs.open "select * from std",con
Do while not rs.eof
print rs.fields("c1")
rs.movenext
Loop
'release memory
Set rs= nothing
Set con= nothing
No comments:
Post a Comment
Please Leave your reply. We value your feedback and inputs