Code: Select all
procedure TForm1.Button2Click(Sender: TObject);
var
yazi : string;
begin
yazi:=Edit1.Text;
dmcd.OraQuery1.Close;
dmcd.OraQuery1.SQL.Clear;
//dmcd.OraQuery1.SQL.Add('SELECT * FROM KIMLIK WHERE dosya_no= '+Edit1.Text ) ;
//dmcd.OraQuery1.SQL.add('SELECT * FROM KIMLIK WHERE ADI Like "'+Edit1.Text+'%"');
//dmcd.Oraquery1.SQL.Text:='SELECT * FROM KIMLIK WHERE lower(adi)='+ yazi;
//dmcd.Oraquery1.SQL.Text:='SELECT * FROM KIMLIK WHERE dosya_no='+ yazi; this is work
dmcd.Oraquery1.SQL.Text:='select * from KIMLIK where (name)=' +yazi;//this is not work
dmcd.OraQuery1.Open;
dmcd.OraQuery1.Active;
end;