• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• to connect access with mssqlserver

to connect access with mssqlserver

to connect access with mssqlserver

API Declarations


dim rs as adodb.recordset




Rate to connect access with mssqlserver

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'this will help to open this database
data1.databasename = app.path & "\temp.mdb"
data1.refresh
conn.open ""'here add connection string"
rs.open "select * from table",conn,adopenstatic,adlockreadonly
if not(rs.eof and rs.bof) then
      rs.movefirst
      while not rs.eof
           data1.recordset.addnew
               data1.recordset("field1")=rs("field")
               'Likewise enter all fields u want
           data1.recordset.update
      rs.movenext
end if
rs.close
conn.close
set conn=nothing