Rasape
07 de Marzo del 2006

Hola a tod@s.

Necesito que alguien me indique como saber en tiempo de ejecucion

si una tabla perteneciente a una base de datos de access existe o no,

y en caso de no existir como crearla definiendo sus atributos etc.

Utilizando DAO.

Gracias.

mvallejos
07 de Marzo del 2006

En Access, no se pueden consultar las tablas de catálogo como en SQL Server u otros motores.
Hay 2 caminos

1 ) Incluir en tu proyecto la referencia ADOX para utilizar el objeto Catalog

2) Hacer tu propia funcion para eso

Function ExisteTabla(Mcn as ADODB.Connection,Tabla as string) as Boolean
Dim Sql as String
Err.Clear
On error goto salida

Sql = "Select Top 1 * From " & Tabla &
R.CursorLocation = AdUseClient
R.Open Sql, Mcn, AdOpenStatic
R.Close
ExisteTabla = True

Exit Function
Salida:
Err.Clear
End Function

Si la consulta se abre satisfactoriamente, quiere decir que la tabla existe, de otro modo, da error, la función retorna false y termina.

Saludos

PD : Podrías haberla pensado un poquito no?

Rasape
07 de Marzo del 2006

Gracias por tu ayuda.

No lo he pensado xq soy nuevo, muy nuevo programando en visual. (de todas maneras esto es un foro, no? )
Gracias