Like komutu çalışmadı

[vedatkaba]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select * From Database Where Adi like "'+Edit1.text+'%"');
Query1.Open;
End;

Arkadaşlar bu kod advantege vt. çalışmadı

Kod: Tümünü seç

Try
with Query1 do
  begin
    Close;
    UnPrepare;
    Sql.Clear;
    Sql.Add('Select * from customer');
    Sql.Add('Where Company Like :A');
    Prepare;
    Params[0].AsString:=Trim(Edit1.Text)+'%';
    Open;
  end;
Except
  On Exception Do raise;
end;

bu şekildede denedim ama yine olmadı birde parametrelerin genel kullanımı nasıldır benmi yanlış kullanıyorum..

trim fonksiyonunu silerek de denedim ama yine olmadı yapmak istediğim mesala edit a dedim a ile başlayanlarıo getir gibi.onun için like kullanmak istedim ama olmadı

[mussimsek]

parametre ile çalışabileceğini pek sanmıyorum, koda direk eklemen lazım.

Bu tarz durumlarda en güzel yöntem şudur :

1. önce veritabanı aracı ile (advantage veritabanı yöneticisi) kodu çalıştır.

2. Delphi tarafında mevcut kodu ekleyip çalıştır.

Kolay gelsin.

[rsimsek]

sanırım like tan sonra çift tırnak kullanmışsın. çift tırnakların yerine ikişer tek tırnak kullanmalısın

[vedatkaba]

Kod: Tümünü seç

procedure TForm7.RzToolButton3Click(Sender: TObject);
begin
try
form13:=Tform13.Create(self);
form13.Caption:='Arama Sonuçları';
form13.sor.Close;
form13.sor.SQL.Clear;
form13.sor.SQL.Add('select tarih,belgeno,hesapadi,aciklama,gelirb,giderb FROM KASA');
form13.sor.SQL.Add('where aciklama like '''+bilgi.Text+'%''');
form13.sor.Open;
form13.Show;
except
raise exception.Create('Yanlış Giriş Yaptınız');
end;
end;

VT yöneticisinde denedikten sonra tekrar yazdım çalıştı son hali