procedure TForm1.lbledt1Change(Sender: TObject);
begin
if lbledt1.Text <> '' then
begin
with datamodule.DM.ibqry2 do
begin
Close;
SQL.Clear;
SQL.Add('Select * from ONEMLI where ISIM like ' +
QuotedStr('%' + lbledt1.Text + '%'));
Open;
end;
end
else
begin
if lbledt1.Text = '' then
begin
with datamodule.DM.ibqry2 do
begin
Close;
SQL.Clear;
SQL.Add('Select * from ONEMLI');
Open;
end;
end;
end;
end;
Bir telefon rehberi uygulaması yapmaya çalışıyorum. Kullandığım derleyici Delphi XE6. Interbase bileşenleri ile veritabanına bağlanıyorum. Firebird Sürümü 2.5.
Daha önce çalıştırdığım kodu şimdi çalıştıramıyorum. Sorgu sonucu dönmüyor. Daha doğrusu hiç bir tepki ya da hata vermiyor. ibquery'nin içerisine sorgumu yazdığımda ise sorgu sonucunu alabiliyorum. Nerede hata yapıyorum?