Array
(
)

Como usar o select no delphi

Sansoftware
   - 01 abr 2006

BOM DIA AMIGOS!
Estou com o seguinte problema:
#Código

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

#Código

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;



Martins
   - 01 abr 2006


Citação:
BOM DIA AMIGOS!
Estou com o seguinte problema:
#Código

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

#Código

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?

#Código

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;