Fórum Ajuda saber se o texto de um edit é = a um registro da tabela #409885

28/11/2011

0

Boa tarde Caros.

Gostaria de saber como faço para perguntar em um IF se o edit1.text é = a qualquer algum registro já existente no banco de dados.
É possível fazer isto?
João Neto

João Neto

Responder

Posts

28/11/2011

Carlos Júnior

Amigo,

Se você usa os componentes DBExpress para se conectar ao banco, pode fazer assim:

procedure TForm3.Button1Click(Sender: TObject);
var
MyQuery : TSQLQuery;
begin
MyQuery := TSQLQuery.Create;
try
MyQuery.SQLConnection := SQLConnection1;
MyQuery.Close;
MyQuery.SQL.ADD(SELECT * FROM TABELA );
MyQuery.SQL.ADD(WHERE CAMPO = + UpperCase(QuotedStr(edt1.Text)));
MyQuery.Open;

if MyQuery.IsEmpty then
ShowMessage(Nenhum registro foi encontrado..) else
ShowMessage(Registro encontrado com sucesso..)
finally
FreeAndNil(MyQuery)
end;

end;
Responder

Gostei + 0

28/11/2011

Carlos Júnior

Mude apenas essa linha:

MyQuery := TSQLQuery.Create(Nil);
Responder

Gostei + 0

28/11/2011

João Neto

Boa tarde,

Bom eu uso o Zeos para fazer conexão com o banco de dados, seria parecido executar esses procedimentos no Zeos?
Responder

Gostei + 0

28/11/2011

Carlos Júnior

Sim, a ideia é a mesma, só vai mudar o componente de conexão...
Responder

Gostei + 0

29/11/2011

João Neto

vlwzão consegui ;D
Responder

Gostei + 0

15/12/2011

Wilson Junior

Não esqueça de finalizar o tópico.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar