Visual Basic - Importar tablas con ADO

Life is soft - evento anual de software empresarial
 
Vista:

Importar tablas con ADO

Publicado por Nicolás (164 intervenciones) el 21/08/2002 20:50:56
Saludos...
Alguien me podría brindar información de como importar una tabla de una base de datos ACCESS 97 a otra base de datos igual, mediante ADO?
Intenté creando una tabla y pasando los datos de a uno, pero luego de crear la tabla si hago referencia a ella me dice que la tabla no existe. Adjunto el código para que se guien de que estoy hablando:

Public Sub CREARTABLA(nomTabla As String)
Dim tbl As ADOX.Table
Dim indice As ADOX.Index
Set tbl = New ADOX.Table
' Crear la nueva tabla
With tbl
.Name = nomTabla
' Crear los campos y añadirlos a la tabla.
' Esto hay que hacerlo antes de añadir la tabla a la colección de tablas
.Columns.Append "nroRegistro", adDouble
.Columns.Append "aCargoOS", adDouble ' Una cadena de 50 caracteres
.Columns.Append "precio", adCurrency
'.Columns("nroRegistro").Attributes = adColFixed ' Permite contener nulos
.Columns("aCargoOS").Attributes = adColNullable
.Columns("precio").Attributes = adColNullable
End With
' Añadir la nueva tabla a la base de datos
adoxVieja.Tables.Append tbl
Set indice = New ADOX.Index
indice.Name = "Indice"
indice.PrimaryKey = True
indice.Columns.Append "nroRegistro"
tbl.Indexes.Append indice
Set tbl = Nothing
Set indice = Nothing
End Sub

Desde yá, Muchas Gracias
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