Ver Mensaje Individual
  #1  
Antiguo 03-01-2005
BECERRA BECERRA is offline
Miembro
 
Registrado: may 2003
Posts: 30
Reputación: 0
BECERRA Va por buen camino
Smile 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
Responder Con Cita