SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Omarrpat en Jueves 17 de Julio de 2003, 19:44
-
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:
-
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-
-
Excelene, muchas gracias, funciono correctamente, solo realice unas pequeñas modificaciones pero ya esta
:good:
-
De nada, para eso estamos.
-Un saludo-