Buenas a todos, soy nuevo por aqui.
Tenia un problemilla que no logro subsanar, tengo una base de datos en access e intento hacer un guardar como de las tablas, es decir coger una tabla y guardar esa misma tabla con otro nombre, para ello uso los objetos catalog,table y column de adox.
Lo que intento hacer es crear una tabla nueva e ir añadiendola los campos de esta copiandolos de la original
Dim cat As New ADOX.Catalog 'Creamos el catalogo de componentes
Dim tb1, tb2 As ADOX.Table
Dim col As ADOX.Column
Set cat.ActiveConnection = frminicio.cn
Set tb1 = cat.Tables(frminicio.combo1.Text) 'combo1.text=nombre tabla original
Set tb2 = New ADOX.Table
tb2.Name = txttabla'nombre con el k guardo la nueva tabla
For Each col In tb1.Columns
tb2.Columns.Append tb1.Columns 'columna 'tbl.Columns.Append tbl.Columns
Next
cat.Tables.Append tb1
Eso es lo que tengo y no me va, nose bien si se puede sacar el tipo de campo y su longitud con adox pq no me van bien las msdn.
Algun consejillo? gracais!
