Como usar o select no delphi
01/04/2006
0
BOM DIA AMIGOS!
Estou com o seguinte problema:
Estou com o seguinte problema:
Preciso fazer uma pesquisa exata no campo id_turma: estou usando o código abaixo no entanto esse codigo não distingue 002n3 de 2n3 ele me traz como resultado os dois valore e eu só quero que ele me retorne 2n3
QTurma.Close; QTurma.SQL.Clear; QTurma.SQL.Add(´Select * from san_tbl_turma´); QTurma.SQL.Add(´Where id_turma like "´+DBEdit1.Text+´"´); QTurma.Open; if QTurma.RecordCount <> 0 then begin MessageDlg(´Já cadastrado a matrícula!´,mtWarning,[mbOK],0); DBEdit1.SetFocus; exit; end;
Sansoftware
Curtir tópico
+ 0
Responder
Posts
01/04/2006
Martins
BOM DIA AMIGOS!
Estou com o seguinte problema:
Preciso fazer uma pesquisa exata no campo id_turma: estou usando o código abaixo no entanto esse codigo não distingue 002n3 de 2n3 ele me traz como resultado os dois valore e eu só quero que ele me retorne 2n3
QTurma.Close; QTurma.SQL.Clear; QTurma.SQL.Add(´Select * from san_tbl_turma´); QTurma.SQL.Add(´Where id_turma like "´+DBEdit1.Text+´"´); QTurma.Open; if QTurma.RecordCount <> 0 then begin MessageDlg(´Já cadastrado a matrícula!´,mtWarning,[mbOK],0); DBEdit1.SetFocus; exit; end;
Esse seu Campo ID_TURMA é VarChar ou Integer?
QTurma.Close; QTurma.SQL.Clear; QTurma.SQL.Add(´Select * from san_tbl_turma´); QTurma.SQL.Add(´Where id_turma = "´+DBEdit1.Text+´"´); QTurma.Open; if QTurma.RecordCount <> 0 then begin MessageDlg(´Já cadastrado a matrícula!´,mtWarning,[mbOK],0); DBEdit1.SetFocus; exit; end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)