Sorgu

[vedatkaba]

Arkadaşlar Hepinize merhaba Benim sorum şu şekilde ..Benim Sorgu çeşitleri diye Menüm var ve bu menünün arananagit,benzerleriniara ve gelişmiş benzerleriniara diye 3 tane alt menüsü var.Ben bu sorunu daha oönce yamış ve şu şekilde cevap almıştım.benbu cevabı düzenliyor ama editin change olayından istediğim gibi yapamıyorum hata veriyor bana yardım edin.Menülerimin radioitem leri true Yani benim istediğim aranana git etkin ise editin change olayından sadece aranan kaydı bulmam lazım benzerlerini ara etkin ise sadece a ile veya b ile başlayanları bulmam gerekir.Editin change olayında bunu nasıl yaptırabilirm.


Procedure Form1.Secim;
Begin
Query1.close
Query1.SQl.Clear
if arananagit1.checked=true then
Query1.SQl.Add('Select * From Tablo Where Kelime='+QuotedStr(Edit1.Text))
Else
if benzerleriniara1.checked=true then
Query1.SQl.Add('Select * From Tablo Where Kelime Startingwith '+QuotedStr(Edit1.Text))
Else
if benzerinigelismisbul1.checked=true then
Query1.SQl.Add('Select * From Tablo Where Kelime Like '+QuotedStr(Edit1.Text+'%'));
Query1.Open;
End;

[fahrettin]

bu kodu editin onchance'ine yazdignizda istediginiz yapmiyor mu acaba?

[vedatkaba]

Arkadaşlar biraz rahatsızdım cevabıma bakmadım aynen öyle editi n change olayına yazdığım zaman çalışmıyor hatalar veriyor .Query yerine table kullansam bile hata ile karşılaşıyorum..

[mussimsek]

hata sözcüğü tek başına bir anlam ifade etmiyor. Lütfen aldığınız hata veya hataları, varsa numaralarıyla birlikte yazın.

Kolay gelsin.

[abdulkadir]

forma bir RadioGroup ekle
items leri ekle

DatabaseName = 'DBDEMOS'
DataSet = Query1

bu sekilde calısır sen kendine göre degiştir

Kod: Tümünü seç

procedure TFormDrag.Button1Click(Sender: TObject);
Begin

  with Query1 do  begin
   close ;
   SQl.Clear ;
   SQl.Add('SELECT * from  parts');

case RadioGroup1.ItemIndex of

   0:SQl.Add('WHERE  PartNo >100 ');

   1:SQl.Add('WHERE  PartNo >100 AND PartNo <10000');

   2:SQl.Add('WHERE  PartNo BETWEEN 100 AND 1000');

   3:SQl.Add('WHERE  PartNo >=1000 AND PartNo<=2000 ');

   4:SQl.Add('WHERE  Description LIKE ''%'+Edit1.Text+'%''');

   5:SQl.Add('ORDER BY Description ASC');

   6:SQl.Add('ORDER BY Description DESC');

    end;//case end
  Open;
end;//with end
End;//procedure end

umarım faydalı olur
sevgiler

[vedatkaba]

project1.exe raised exception class EDBenginie error with message invelid use of keyword. token:like line number:1 process stoped use step or run to continie.

hata mwesajnı alıyorum .

[abdulkadir]

benim yazdıgımı denedinmi ?
ben yazıgımı test ettim okeyledim

ayrıca hata mesajı
fazla veya eksik tırnak (') Karakterinden kaynaklanabilir.
like parametresi yanlıs olabilir

bu like kullanımı hata vermez

Kod: Tümünü seç

Add('WHERE  Description LIKE ''%'+Edit1.Text+'%'''); 
Add('WHERE  Description LIKE ''%A%'''); 

hala hata alırsan son sekliyle kodunu yaz test edeyim

basarılar