Como usar select no delphi

[san software 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;

[marcio.theis 3]

Então no caso você deve de usar o sinal de "=" (igual) no lugar do like...

 

 

QTurma.Close;QTurma.SQL.Clear;QTurma.SQL.Add('Select * ');QTurma.SQL.Add('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;