copy table from a database to annother[RESOLVED]

[sacramento]

hi:

The paths are:

source path - c:\program files\exp\new.mdb

destination Path - c:\program files\dali\news.mdb

Table with all records to copy from the source path - india

table for destination path - india


note:The databases are equals...they have the same tables,everything is equal...the diference is the path!

Thanks

[dee-u]

Try this...

'reference microsoft ActiveX Data Objects
Dim adoConnection As ADODB.Connection
Set adoConnection = New ADODB.Connection
adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\program files\exp\new.mdb"
adoConnection.Execute "INSERT INTO india [IN 'c:\program files\dali\news.mdb'] SELECT india.* FROM india"

[sacramento]

hi:

thanks for your reply!

I have convert the code for my reality and I got this error:

Run time error '3134'
Syntax error in INSERT INTO statement

Dim db As Database
Set db = Workspaces(0).OpenDatabase("c:\program files\exp\new.mdb")
db.Execute "INSERT INTO india [IN 'c:\program files\dali\news.mdb'] SELECT india.* FROM india"

3

Thanks

[dee-u]

This should work...

Dim db As Database
Set db = Workspaces(0).OpenDatabase("c:\program files\exp\new.mdb")
db.Execute "INSERT INTO india IN 'c:\program files\dali\news.mdb' SELECT india.* FROM india"

[sacramento]

thanks for your help...now the code work very well

[dee-u]

Glad it worked now!

[David.Poundall]

This should work...

Dim db As Database
Set db = Workspaces(0).OpenDatabase("c:\program files\exp\new.mdb")
db.Execute "INSERT INTO india IN 'c:\program files\dali\news.mdb' SELECT india.* FROM india"

Dee-u do you have any idea what the syntax would be when both databases are password protected?