Access - consulta creacion tabla por codigo

 
Vista:

consulta creacion tabla por codigo

Publicado por joanignas (21 intervenciones) el 04/04/2001 22:50:23
Pues eso, como puedo, ejecutar una consulta de creacion de tabla en otra BD con codigo.
O bien, enviar directamente una tabla a otra BD.

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

RE:consulta creacion tabla por codigo

Publicado por jesus (861 intervenciones) el 05/04/2001 01:27:31
Debes utilizar el metodo CreateTableDef.
Si quieres detalles, amplia un poco la informacion.
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

RE:consulta creacion tabla por codigo

Publicado por josev (14 intervenciones) el 05/04/2001 13:26:17
Te doy dos metodos para crear la base de datos. Solo tienes que decir que mdb quieres y poner la funcion a algun boton. Puedes hacerlo por dao o por ado (para access2000)

DAO
Sub DAOCreateTable()

Dim db As DAO.Database
Dim tbl As DAO.TableDef

'Open the database
Set db = DBEngine.OpenDatabase("C:\nwind.mdb")

' Create a new TableDef object.
Set tbl = db.CreateTableDef("Contacts")

With tbl
' Create fields and append them to the new TableDef object.
' This must be done before appending the TableDef object to
' the TableDefs collection of the Database.
.Fields.Append .CreateField("ContactName", dbText)
.Fields.Append .CreateField("ContactTitle", dbText)
.Fields.Append .CreateField("Phone", dbText)
.Fields.Append .CreateField("Notes", dbMemo)
.Fields("Notes").Required = False
End With

' Add the new table to the database.
db.TableDefs.Append tbl
db.Close
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

RE:consulta creacion tabla por codigo

Publicado por josev (14 intervenciones) el 05/04/2001 13:27:24
No me ha dejado mandarlo junto
Te doy dos metodos para crear la base de datos. Solo tienes que decir que mdb quieres y poner la funcion a algun boton. Puedes hacerlo por dao o por ado (para access2000)

ADOX
Sub ADOCreateTable()

Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table

\' Open the catalog
cat.ActiveConnection = \"Provider=Microsoft.Jet.OLEDB.4.0;\" & _
\"Data Source=C:\\nwind.mdb;\"

\' Create a new Table object.
With tbl
.Name = \"Contacts\"
\' Create fields and append them to the new Table
\' object. This must be done before appending the
\' Table object to the Tables collection of the
\' Catalog.
.Columns.Append \"ContactName\", adVarWChar
.Columns.Append \"ContactTitle\", adVarWChar
.Columns.Append \"Phone\", adVarWChar
.Columns.Append \"Notes\", adLongVarWChar
.Columns(\"Notes\").Attributes = adColNullable
End With
\' Add the new table to the database.
cat.Tables.Append tbl
Set cat = 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

solucionado

Publicado por joanignasi (21 intervenciones) el 06/04/2001 12:25:14
Me explique mal y poco. En realidad lo que queria era escoger una tabla a partir de un combo que me muestra todas las tablas y hacer una copia de seguridad en otra BD.

O sea que bastaba con algo asi:

docmd.copyobject "C:\..\copia.mdb",me.combo,actable,me.combo

Gracias por las molestias
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