Como copio toda una tabla y su contenido a otra BD
Quisiera saber como copio una tabla de una base de datos hecha en access a otra base de datos en Access.
Ejemplo BasedeDatosUno.mdb tiene una tabla de nombre DatosUno ahora quiero copiar la tabla DatosUno a otra base de datos de nombre BasedeDatosDos. Si ya existe una tabla con este nombre que la remplace.
Pero todo esto hacerlo en código desde visual basic. Existe una forma de hacerlo sin tener que especificar campo por campo, es que tengo muchos campos en la tabla.
¿Seria más fácil usando SQL?
Ejemplo BasedeDatosUno.mdb tiene una tabla de nombre DatosUno ahora quiero copiar la tabla DatosUno a otra base de datos de nombre BasedeDatosDos. Si ya existe una tabla con este nombre que la remplace.
Pero todo esto hacerlo en código desde visual basic. Existe una forma de hacerlo sin tener que especificar campo por campo, es que tengo muchos campos en la tabla.
¿Seria más fácil usando SQL?
1 Respuesta
Respuesta de kxxsoft1
No estoy mu puesto en visual basic, pero la lógica que debes seguir es la siguiente.
Para crear la tabla supongo que baste con pasarle la sentencia DDL al recordset:
CREATE TABLE DatosUno{
Campo1 INTEGER NOT NULL,
...
...
No recuerdo muy bien la sintaxis, pero algo de este estilo, en cualquier manual de SQL puedes encontrarlo.
Después, asegurándote de que la estructura de las tablas es idéntica, con 2 recordset, recorres mediante dos bucles todos los registros del recordset
Con los datos a copiar y asu vez vas igualando campo por campo.
Algo así, te lo escribo de manera algo genérica, que hace mucho tiempo que me olvidé del visual basic.
RSetOriginal. MoveFirst
While not RSOriginal.EOF
RSCopia.AddNew
for i=0 to RSetOriginal.FieldCount-1
'o como sea
RSetCopia.Fiels(i)= RSOriginal.Fields(i)
Next
RSCopia.Update
RSetOriginal. MoveNext
Wend
También lo puedes componiendo una consulta SQL con los campos del recorset original (INSERT INTO DatosUno ...), pero creo que menos engorroso así.
Esto es el razonamiento principal, luego ya esta en tu mano proteger bien cada parte del código en caso de error y todo eso...
Para crear la tabla supongo que baste con pasarle la sentencia DDL al recordset:
CREATE TABLE DatosUno{
Campo1 INTEGER NOT NULL,
...
...
No recuerdo muy bien la sintaxis, pero algo de este estilo, en cualquier manual de SQL puedes encontrarlo.
Después, asegurándote de que la estructura de las tablas es idéntica, con 2 recordset, recorres mediante dos bucles todos los registros del recordset
Con los datos a copiar y asu vez vas igualando campo por campo.
Algo así, te lo escribo de manera algo genérica, que hace mucho tiempo que me olvidé del visual basic.
RSetOriginal. MoveFirst
While not RSOriginal.EOF
RSCopia.AddNew
for i=0 to RSetOriginal.FieldCount-1
'o como sea
RSetCopia.Fiels(i)= RSOriginal.Fields(i)
Next
RSCopia.Update
RSetOriginal. MoveNext
Wend
También lo puedes componiendo una consulta SQL con los campos del recorset original (INSERT INTO DatosUno ...), pero creo que menos engorroso así.
Esto es el razonamiento principal, luego ya esta en tu mano proteger bien cada parte del código en caso de error y todo eso...
