by Rushabh (2 Submissions)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 4th August 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
to connect access with mssqlserver
API Declarations
dim rs as adodb.recordset
'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