Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Crear Base de datos con estructura de otra

0 views
Skip to first unread message

solobrio

unread,
Sep 29, 1999, 3:00:00 AM9/29/99
to
Hola
Me gustaría saber como crear una base de datos con la estructura de otra,
(solo la estructura o diseño),desde VB5, sin tener que utilizar el Access o
similar.

Es una pregunta corta pero creo que tiene una respuesta grande

Un saludo a todos y gracias anticipadas

Neftalí

unread,
Sep 30, 1999, 3:00:00 AM9/30/99
to
Se me ocurre lo siguiente. ..supongo que esforzándose un poco más saldrá
alguna otra forma, pero esta ya puede ser un comienzo, y creo que no es muy
complicada.

1) Copiar el fichero .MDB de la base de dats origen con FILECOPY
2) Limpiar todas las tablas de la BD. Podrías recorrerlas una a una y
utilizar SQL.
Dim dbs As Database
Set dbs = OpenDatabase("TuBD.mdb")
dbs.Execute "DELETE * FROM [Tabla]"

3) Compactar la BD con COMPACTDATABESE.

PROBLEMA: Estoy pensando que esto te dejaría las tablas, peo también el
resto de elementos que tenga la BD (consultas, listados,...) Bueno, no se, a
ver si a alguien se le ocurre como seguir o otra solución.

~~~~~~~~~~~o0o~~~~~~~~~~~~
Neftalí -- Germán Estévez
Nef...@mx3.redestb.es-NOSPAM
(quita el -NOSPAM)

<solo...@redestb.es> escribió en el mensaje de noticias
7stv4h$9l...@SGI3651ef0.iddeo.es...

solobrio

unread,
Sep 30, 1999, 3:00:00 AM9/30/99
to
Hola
Gracias por molestarte
Tu idea no es mala, ya se me ocurrió, el problema es que son bases muy
extensas y por lo tanto el proceso es muy largo ya que son 20 bases con al
menos 20000 fichas cada uno.

De todos modos insisto GRACIAS
Neftalí escribió en mensaje <7t0hf0$b2...@SGI3651ef0.iddeo.es>...

Jeppy

unread,
Oct 1, 1999, 3:00:00 AM10/1/99
to
En realidad, puedes explorar tu BD, y para cada tabla, recuperar la
definicion de cada campo, y con ello puedes crear las tablas en la nueva,
otra cosa interesante pueden ser los indices y las relaciones que yo ahora
mismo no se como hacerlo.

--
-----------------------oOo-------------------------------
http://www.lanzadera.com/vbparadise
http://www.geocities.com/SiliconValley/Hills/5918
http://personal2.iddeo.es/fustej
-----------------------oOo-------------------------------
solobrio <solo...@redestb.es> escribió en el mensaje de noticias

Alberto Rodríguez Calvo

unread,
Oct 3, 1999, 3:00:00 AM10/3/99
to
No funcionará si tienes relaciones definidas entre tablas, a menos que las borres en el orden correcto.
 
Lo único que se me ocurre es usar el objeto TableDefs para copiar las definiciones de las tablas.
Luego las relaciones, los querydefs, etc
 
Recuerdo haber visto hace algún tiempo una utilidad para hacer esto mismo.
Pero no se dode ni para que versión.
 
---------------------------------------------------------------------
 Alberto Rodríguez Calvo (Albe...@ole.com)

 
Pero antes abre una cuenta de correo en un servidor gratuito.
---------------------------------------------------------------------
Neftalí <nef...@mx3.redestb.es> escribió en el mensaje de noticias 7t0hf0$b2...@SGI3651ef0.iddeo.es...
    Se me ocurre lo siguiente. ..supongo que esforzándose un poco más saldrá
alguna otra forma, pero esta ya puede ser un comienzo, y creo que no es muy
complicada.

    1) Copiar el fichero .MDB de la  base de dats origen con FILECOPY
    2) Limpiar todas las tablas de la BD. Podrías recorrerlas una a una y
utilizar SQL.
    Dim dbs As Database
    Set dbs = OpenDatabase("TuBD.mdb")
    dbs.Execute "DELETE * FROM [Tabla]"

    3) Compactar la BD con COMPACTDATABESE.

    PROBLEMA: Estoy pensando que esto te dejaría las tablas, peo también el
resto de elementos que tenga la BD (consultas, listados,...) Bueno, no se, a
ver si a alguien se le  ocurre como seguir o otra solución.

~~~~~~~~~~~o0o~~~~~~~~~~~~
Neftalí  --  Germán Estévez
Nef...@mx3.redestb.es-NOSPAM
(quita el   -NOSPAM)

0 new messages