Transfer table from secured database into new database

[WillemdeNie]

I use the following code to retrieve data from a usrr level secured database:
Dim dbe As DAO.PrivDBEngine
Dim wrk As DAO.Workspace
Dim dbs As DAO.Database
Dim rst As DAO.Recordset

Set dbe = New PrivDBEngine
dbe.SystemDB = "C:\XXX.mdw"
dbe.DefaultUser = "Username"
dbe.DefaultPassword = "Password"
Set wrk = dbe.Workspaces(0)
' Open the secured database.
Set dbs = wrk.OpenDatabase("C:\YYYYY.mdb")


Set rst = dbs.OpenRecordset("Select * from Tbl_Leden")
So far it works!

What code should I use to append these records (the data from Tbl_Leden) to a table in the database from which this codes works (so not the secured one)

Willem

 

[PHV]

Use another recordset based on your local table and play with the .AddNew and .Update method

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244