Like Komutunu kullanmak

[AReS]

S.A Sayın hocalarım arkadaşlarım size sormak istediğim bir şeyler var diyeceksiniz ki bunları zaten sordular valla forumda vardır dogrudur ama buna benzer bir şeyi bulamadım. Her neyse Bir takım Sql komutlarını delphi de sorunsuz olarak kullanıyorum şu bulma ve dbgrid e çektirme dışında. Sql komutuyla

Kod: Tümünü seç

Select * from personel where ad like '+'''+Edit1.Text+''%'' 

dedim ve bu olayı Edit1 in onchange olayına yazdım veya Bul die adlandırdıgım bir butonun begin end aralıgına girdim. Komut süper güzel çalışıyo (Showmessage la komutu kontrol ettirdim )ama bir türlü dbgrid e getirmiyo. Hocam yaptıklarım da bir terslik mi var yardımcı olursanız sevinirim.(Kullandıgım normal dbgrid AdoConnection AdoDataset ve Adoquery kullanarak bunları yapmaya çalışıyorum)Yapamadıgım ne nerde yanlış yapıyorum valla kusura bakmayı bunları yazdım çünkü tam 1 aydır formdaki ornekler ve kodlarla ve açıklamalar la bu işi yapmaya çalıştım ama bir trürlü bu search olayını başaramadım locate le oluyo ama ben bunu sql le yapmak istiyorum.Yardımlarınız ve kızgınlıklarıız için teşekkürler.

[pro_imaj]

Seninde belirtiğinb gibi bu konu forumda onlarca var.

ama yinede cevaplandıralım.

Aslında buraya kod dışında showmessage ile ne msj aldığını yazsaydın kesin cevap olurdu.

ama senin kodundaki hata

Kod: Tümünü seç

Select * from personel where ad like '+'''+Edit1.Text+''%''  

yerine

Kod: Tümünü seç

Select * from personel where ad like '''+Edit1.Text+''%''
 

böyle yaparsan sonu çözelmüş olacak.

seninde belirtiğin gibi showmessage ile Sql cümlesine bak muhakki hata vardır ve gözünden kaçmıştır.

Saygılarımla
Çalışmalarınızda başarılar.

[AReS]

Hocam pardon sorun o değil haklısın kodu yazarken hızlı hızlı elle yeniden yazdım cop paste deil tüm komudu yazayım showmessage la komutu goruyorum komut çalışıyo ama neden aktif olan kayda gidemiyorum veya soruladıgım kaydı bir gridde (Bağlantısı kesik komutla baglanan ) göremiyorum gride niye ak taramıyorum hocam valla artık bi şarkıcı vardı ben aptalmıyım diyip duruyodu ben artık oyle demeye başlıcam

Kod: Tümünü seç

begin
With Query1 do
   begin
      close;
      SQL.Clear;
      SQL.Add('select * from Personel where Ad='''+Edit1.Text+''' ');
      oPEN;
   end;
end;

veyahut like yapayım anlatmak istediğim komut çalışmıyo değil komut çalışıyor.Tamam ama anlatmak istediğim formda bir çok kişinin sordugu aynı şey aktif olan kayıt(sorgulanan)neden dbgrid e gelmiyo veya aktif olarak işaretlemiyo. İnşallah anlatabilmişimdir.

[kadirkurtoglu]

merhaba yapmaya çalıştığın tam nedir biraz açarsan. belki yardımcı olabilriz. bende aynı işlemi yapıyorum. stok hareketlerine stok kartından bilgi aktarıyorum hiçbir problem yok. DBGrid listelenirken bulunan kayıtlar 1 den fazla ise aktif kayıt 1. kayıttır. sen yazmaya devam edersen aktif kayda direk ulaşırsın veya arama yaptığın editin onkeypress olayına yukarı ok tuşunu atayıp DBGrid içerisine dahil olabilirsin sonrası kaydı aktifleştirip DBGridin onkeypress olayına veya onclick veya ondoubleclick olaylarına kodunu yazabilirsin. kolay gelsin.....

[miskin]

Edit1.Text'e program calisirken verecegin degeri Code'un icinde yaz ver hala calismiyorsa. Hata stringde veya komutta degildir.
Kesin bilmemekle beraber bir yerlerde (Grid) refresh yapman gerekli olabilir

miskin

[gkimirti]

Select ... Like komutu kritere uyan kayıtları getirir aktif kayıt falan filan soz konusu degildir. eger kriter sonucu bir kayıt gelirse bu aktif kayıt olmus oluyor.

[AReS]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
{AdoDataset1.Active:=False;
AdoDataset1.CommandText:='Select * from personel where ad='+''''+Edit1.text+''''+' and  '+'Soyad='+''''+Edit2.text+'''';
AdoDataset1.Open;



2.
AdoQuery1.Active:=False;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('Select * from personel where ad='+''''+Edit1.text+''''+' and  '+'Soyad='+''''+Edit2.text+'''');
AdoQuery1.Open;


end;

hocam olayı bu şekilde çözdüm komutlar tamam çalıştı ve de aradıgım kaydı dbgrid de gösterdi teşekkür ederim yardımlarınız için .
Bir takım bir şeyleri deneye deneye yapmak daha iyi oluyo pekişiyo. Kodlar belki bir gün bir arkadaşa lazım olur.(= yerine Like da kullanılabilir ihtiyaca göre ) Saygılarımla