Hello,
I got the solution. I did it. This is the code...
on error resume next
dim conn,rs,str1
set conn=createobject("adodb.connection")
conn.provider="Microsoft.Jet.Oledb.4.0"
conn.open "\\server\donfranco\production\attendance\emp. mdb"
conn.beginTrans
str1="delete from attendance"
conn.execute str1
str1="insert into attendance(eventdate,eventtime,cardnumber) select eventdate,eventtime,cardno from EventListTable in '\\rajani\database\CipherAccess.mdb' where len(cardno)>0"
conn.execute str1
if Err.number <> 0 then
conn.rollbackTrans
else
conn.commitTrans
end if
conn.close
set conn=nothing
|