Como usar o select no delphi

01/04/2006

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&93;,0);
DBEdit1.SetFocus;
exit;
end;



Sansoftware

Respostas

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&93;,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&93;,0); 
DBEdit1.SetFocus; 
exit; 
end; 



Responder Citar