[firebase-br] IF Exists - FireBird

[Mateus Bahis Vieira]

Obrigado Amigo, era o que eu precisava...

--- Claudir Pereira dos Santos
<claupers_dbrays em yahoo.com.br> escreveu:

> Colega, não sei quais objetos você usa para
> programar, mas se for delphi e a
> paleta interbase, pode ser assim:
> 
> procedure TF_Dtml.DataModuleCreate(Sender: TObject);
> var
>   campos:TStringList;
>   Tabelas: TStringList;
> begin
>   Tabelas := TStringList.Create;
>   campos:=TStringList.Create;
>   db.Connected:=True;
>   Trans.Active:=True;
>   db.GetFieldNames('NOME_DA_SUA_TABELA', campos); //
> Voce pode usar
> DB.GetTableNames(Tabelas) para checar se a tabela
> existe.
>   Try
>     if (campos.IndexOf('NOME_DO_CANPO')=-1) then //
> Vai retornar -1 se o
> campo não existir
>       begin
>         showMessage('O campo "bla bla bla" não
> existe e será criado
> alterando a tabela bla bla bla.'+#13+'Se esta não
> for a primeira vez que
> você recebe esta mensagem, entre em contato com o
> suporte técnico.');
>         Cod_Sql.SQL.Clear;
>         Cod_sql.SQL.Add('Alter Table
> NOME_DA_SUA_TABELA add NOME_DO_CAMPO
> MAIS PARAMETROS');
>         Cod_Sql.ExecQuery;
>         Trans.CommitRetaining;
>       end;
> Espero que tenha ajudado
> 
> Cordialmente;
> 
> 
> Claudir Pereira dos Santos
> 
> 
> 
> 
> 
> > ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em
> www.locador.com.br
> Para editar sua configuração na lista, use o
> endereço
>
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas:
http://firebase.com.br/pesquisa


__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/