Ok, muito obrigado!
vlws
Em 11/04/06, Eduardo Alves <[EMAIL PROTECTED]> escreveu:
>
> Existe varias maneiras, uma delas:
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
>
> if procuracampo('nome do campo') then
> ShowMessage('Achei o campo.')
> else
> ShowMessage('Não achei o campo.');
>
> end;
>
> function TForm1.procuracampo(pCampo: String): Boolean;
> var
> i : Integer;
>
> begin
>
> Result := False;
> with ADOQuery1 do
> begin
> Close;
> SQL.Clear;
> SQL.Add(' select * from tabela ');
> Open;
> for i := 0 to Fields.Count - 1 do
> begin
> if Fields[i].DisplayName = pCampo then
> begin
> Result := True;
> Break;
> end;
> end;
> end;
>
> end;
>
>
>
> Eduardo Castro Alves
> Analista de Sistemas
>
> -----Original Message-----
> From: [email protected] [mailto:[EMAIL PROTECTED]
> On Behalf Of Gabriel Filho
> Sent: segunda-feira, 10 de abril de 2006 14:22
> To: [email protected]
> Subject: [delphi-br] OFF TOPIC - Verificar se um campo ja exeiste em
> Access
>
> Bom dia pessoall,
>
>
> Gostaria de saber se alguem tem ideia de algum comando para listas os
> campos
> de uma tabela access, ou alguma tabela de sistema que contenha esta
> informação??
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
