BECERRA
03-01-2005, 11:47:42
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.
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.