Autor Tema: Saber Si Una Tabla Ya Existe (Leído 1389 veces)

Fernando_P · « **en:** Viernes 18 de Junio de 2004, 14:49 »

Hola!,
quiero saber si es posible consultar a una base de datos para saber si una tabla que quiero crear ya existe, y de ser asi, renombrar la nueva con el nombre de la anterior mas un nro, pej. test, test01, test02, etc
Estoy utilizando ADO para trabajar con la bd de access.

Gracias y ojala puedan ayudarme!

vradok

Lo que puedes hacer es abrir un esquema de la base de datos y comprobar si existe la tabla .Hay un metodo en ADO que se llama "OpenSchema" , busca en la documentación de visual que no es muy dificil de usar.

En cuanto a lo de renombrar la tabla no creo que te sea muy dificil si usas un "rename nombretabla as nombrenuevo" en una consulta SQL.

Un saludo Fernando_P

Juanolo

Hola Fernando:
No sé bien si con este código te distraigo o te puedo ayudar en algo, pero estoy recién entrando a Ado y no he tenido tiempo ni necesidad de actualizarme en esto de crear tablas.
El código siguiente funcionaba en Dao. Puede que sirva algo...

Código: Text

Public Sub CreaHistoriaCambios()
    Dim Td As TableDef
    Dim IdxDocum As Index
    Dim Fld As Field
    Dim i As Integer
    'Reviso la colección de tablas en busca de la tabla &#34;Historia Cambios&#34;
    'BaseGen es mi objeto Database
    For i = 0 To BaseGen.TableDefs.Count - 1
        'Si existe salgo del procedimiento.
        If BaseGen.TableDefs(i).Name = &#34;Historia Cambios&#34; Then Exit Sub
    Next i
    'Si recorrí la colección sin encontrar una coincidencia,
    'creo la tabla.
    Set Td = BaseGen.CreateTableDef(&#34;Historia Cambios&#34;)
    'Creo el único campo de mi tabla
    '(en este caso, es de texto)
    Set Fld = Td.CreateField(&#34;Cambio&#34;, dbText)
    Td.Fields.Append Fld
    'Agrego la tabla creada a la colección
    BaseGen.TableDefs.Append Td
    With Td
        ' Primero crea objeto Index, crea y agrega los
        ' objetos Field al objeto Index y después agrega
        ' el objeto Index a la colección Indexes de
        ' TableDef.
        Set IdxDocum = .CreateIndex(&#34;IndCambio&#34;)
        With IdxDocum
            .Fields.Append .CreateField(&#34;Cambio&#34;)
        End With
        .Indexes.Append IdxDocum
        .Indexes.Refresh
    End With
    
End Sub
 

Lo que hacía era buscara la tabla "Historia Cambios". Si no existía, creaba esta tabla que era muy sencilla, con un sólo campo, y un índice en ese mismo campo.

Ojalá te sirva algo.

Salu2.

SoloCodigo

Autor Tema: Saber Si Una Tabla Ya Existe (Leído 1389 veces)

Fernando_P

Saber Si Una Tabla Ya Existe

vradok

Re: Saber Si Una Tabla Ya Existe

Juanolo

Re: Saber Si Una Tabla Ya Existe