Fórum Ajuda saber se o texto de um edit é = a um registro da tabela #409885
28/11/2011
0
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
Curtir tópico
+ 0Posts
28/11/2011
Carlos Júnior
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
28/11/2011
Carlos Júnior
MyQuery := TSQLQuery.Create(Nil);
Gostei + 0
28/11/2011
João Neto
Bom eu uso o Zeos para fazer conexão com o banco de dados, seria parecido executar esses procedimentos no Zeos?
Gostei + 0
28/11/2011
Carlos Júnior
Gostei + 0
29/11/2011
João Neto
Gostei + 0
15/12/2011
Wilson Junior
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)