Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 03-01-2005
BECERRA BECERRA is offline
Miembro
 
Registrado: may 2003
Posts: 30
Poder: 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
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 02:48:37.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi