Como usar o select no delphi

01/04/2006

0

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;



Sansoftware

Sansoftware

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

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

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

Aceitar