FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Comprobar si una tabla existe.
Estimados compañeros:
Alguno de vsosotros podría decirme como implementar un procedimiento en delphi, que me permita comprobar si existe una tabla determinada en una BD de Interbase. Actualmente he creado un procedimiento similar pero que comprueba si extiste un campo y si no es así lo creo, el procedimiento es el siguiente: if Fdatos.Articulos.FindField('PRODUCTOPRO')=nil then begin ibsql1.Close; ibsql1.SQL.Clear; ibsql1.SQL.Add('ALTER TABLE ARTICULOS ADD "PRODUCTOPRO" VARCHAR(50)'); ibsql1.ExecQuery; FDatos.Ttienda.CommitRetaining; messagebox(self.Handle,pchar('Se ha creado el campo "PRODUCTOPRO" de la tabla "Artículos"'),'Información',MB_OK); end; He intentado hacer algo similar con un Ibquery pero no he sido capaz, podría decirme alguien como puedo hacerlo, tambien he pensado en crear una excepción en el activate del query pero esa solución no me convence. Gracias de antemano y feliz 2005 a todos.
__________________
Iván Becerra Prado ibecerra@tecam.es |
#2
|
||||
|
||||
No lo he probado, pero segun la ayuda de Delphi, el componente TIBTable posee una propiedad llamada TableNames cuya descripción es ésta:
----------------------------------------------------------- Description The TableNames property is an internal property used to display a list of the table and view names in the database. ----------------------------------------------------------- Por probarla no creo que pase nada.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
|||
|
|||
Muchas gracias Neftali, eso ya me sirve.
__________________
Iván Becerra Prado ibecerra@tecam.es |
|
|
|