Pasar de una BD a otra

Se pueden abrir 2 conecciones a la vez, entonces usas un 'Select' statement
para obtener los datos de la access db, pero abres la recordset en modo
editable, o sea:

Set mdbconn = Server.CreateObject("ADODB.CONNECTION")
mdbconn.Open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\path..mdb"
Set rsaccess = Server.CreateObject("ADODB.Recordset")
rsaccess.LockType = 3
sqlaccess = "select blah from blah where blah = 'blah'"
rsaccess.Open sqlaccess, mdbconn

'ahora eata abierta la coneccion a la access db y abres la coneccion a la
foxpro

Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=your_DSN","UID=username","Pwd=password;"

'pasas los valores de la access recordset a variables

nombre = rsaccess.fields("nombre") 'etc

'cuando tienes todos los valores que necesitas, usas un insert statement
para meterlos a la foxpro

sqlfoxpro = "insert into tabla(nombre, etc) " &_
"values('"&nombre&"', '"&etc&"')

'ahora borras el record de access

rsaccess.Delete

'cierrass las coneccionnes

rsaccess.Close
Set rsaccess = Nothing
mdbconn.Close
Set mdbconn = Nothing
conn.Close
Set conn = Nothing

'de esta manera si no funciona el insert, no se borra el record de la access
db.

Sergio.

"Rookie" wrote in message
news:

Hola,... desarrolle una aplicacion para pedidos en linea (Access) necesito
que una vez se confirme el pedido, este sea copiado a una BD en FoxPro.

Las

tablas tienen la misma estructura, como puedo lograr pasar los datos de la
tabla en access a los campos que tengan el mismo nombre en la tabla dentro

de

la BD de FoxPro; una vez copiados, los datos deben borrarce de la tabla de
access (solo los de "este" pedido)

Me conecto a FoxPro por medio de DSN y a Access por medio de la ruta del
archivo .mdb