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: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of
Gabriel Filho
Sent: segunda-feira, 10 de abril de 2006 14:22
To: delphi-br@yahoogrupos.com.br
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 >>>>>
<*> 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
