Visual Basic - Duplicar tabla (con otro nombre) en una base?

Life is soft - evento anual de software empresarial
 
Vista:

Duplicar tabla (con otro nombre) en una base?

Publicado por Noelia (1 intervención) el 29/08/2004 18:19:15
Hola,

tengo que hacer lo siguiente: de una base de datos XX, copiar una tabla a una nueva base de datos (digamos ZZ), y hacer un backup de esa tabla (ej. Movimientos) cada cierta cantidad de tiempo.

Lo que queria era crear una nueva base (ZZ) y ahi ir copiando la tabla Movimientos tantas veces como se haga el backup con nombres como Movimientos_1, Movimientos_2, etc...

¿cómo puedo hacer eso? ¿algún alma caritativa me puede ayudar?

Muchísimas gracias!!

Saludos,

Noelia
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Duplicar tabla (con otro nombre) en una base?

Publicado por Semper (74 intervenciones) el 30/08/2004 23:50:16
Algo como esto te servira... Necesitas incluir en referencias de tu proyecto el Microsoft Access XX.XX Object LIbrary ...

Private Sub cmdBackup_Click()
Dim oDatabase As Database

Dim cDatabase As String
Dim cDBRespaldo As String

Dim oAccess As Access.Application

Dim cTablaExportar As String
Dim cTablaRespaldo As String

cDBRespaldo = "C:\ZZ.mdb"
cTablaExportar = "Movimientos"
cTablaEnRespaldo = "Movimientos"

If Dir(cDBRespaldo) = "" Then
Set oDatabase = CreateDatabase(cDBRespaldo, dbLangGeneral)
oDatabase.Close
Set oDatabase = Nothing
End If

cDatabase = "C:\XX.mdb"
Set oAccess = New Access.Application

Set oDatabase = oAccess.DBEngine.OpenDatabase(cDatabase, False, False, ";pwd=PASSWORD")
With oAccess
.Visible = True
.OpenCurrentDatabase cDatabase, False
.DoCmd.TransferDatabase acExport, "Microsoft Access", cDBRespaldo, acTable, cTablaExportar, cTablaEnRespaldo, False, True
.CloseCurrentDatabase
.Visible = False
End With
oDatabase.Close
Set oDatabase = Nothing

oAccess.Quit acQuitSaveNone

Set oAccess = Nothing

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar