Ajuda saber se o texto de um edit é = a um registro da tabela
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?
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
Curtidas 0
Respostas
Carlos Júnior
28/11/2011
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;
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;
GOSTEI 0
Carlos Júnior
28/11/2011
Mude apenas essa linha:
MyQuery := TSQLQuery.Create(Nil);
MyQuery := TSQLQuery.Create(Nil);
GOSTEI 0
João Neto
28/11/2011
Boa tarde,
Bom eu uso o Zeos para fazer conexão com o banco de dados, seria parecido executar esses procedimentos no Zeos?
Bom eu uso o Zeos para fazer conexão com o banco de dados, seria parecido executar esses procedimentos no Zeos?
GOSTEI 0
Carlos Júnior
28/11/2011
Sim, a ideia é a mesma, só vai mudar o componente de conexão...
GOSTEI 0
João Neto
28/11/2011
vlwzão consegui ;D
GOSTEI 0
Wilson Junior
28/11/2011
Não esqueça de finalizar o tópico.
GOSTEI 0