Programación General > Visual Basic 6.0 e inferiores

 Re: Verificacion de una tabla en una mdb

(1/1)

Omarrpat:
Compañeros de martirio, como es posible verificar si existe una tabala dentro de una base de datos con formato mdb
por su tiempo gracias
:beer:

acalanto:
Debes de escribir el siguiente código (o algo parecido).

public function ExistTable(Nombretabla as string, dbname as string) as boolean

dim db as dao.database
dim tb as tabledef

on local error <aqui lo que desees para capturar errores>

'se supone que dbname lleva la ruta completa <path+fichero.mdb>
set db=worspaces(0).opendatabase(dbname)

for each tb in db.tabledefs
if lcase(trim(tb.name))=lcase(trim(nombretable)) then
existtable = true:exit function
next tb

'el nombre de la tabla no se ha encontrado en la colección Tabledefs de la base de datos.
existtable=false

end function


espero que te resulte útil (ya me lo dirás)

Un saludo -acalanto-

Omarrpat:
Excelene, muchas gracias, funciono correctamente, solo realice unas pequeñas modificaciones pero ya esta

:good:

acalanto:
De nada, para eso estamos.

-Un saludo-

Navegación

[0] Índice de Mensajes