kod yardım

[loxka]

Kod: Tümünü seç

procedure TForm7.Edit1Change(Sender: TObject);
begin
 Form1.Query1.SQL.clear;
 if RadioButton1.Checked then
begin
  Form1.Query1.SQL.Add('select * from "C:\Ticari\Database\carikart" where TUnvan like'+
  ''''+Edit1.text+'%'+'''');
  end;
  if RadioButton2.Checked then
begin
   Form1.Query1.SQL.Add('select * from "C:\Ticari\Database\carikart" where Adi like'+
  ''''+Edit1.text+'%'+'''');
  Form1.Query1.ExecSQL;
  Form1.Query1.active:=true;
  //DBGrid1.setfocus;
end;
end;

gibi bir kod yazdım radiobutton2 çalışıyor ama radiobutton1 işlem yapmıyor yardımlarınızı bekliyorum

[husonet]

Kod: Tümünü seç

procedure TForm7.Edit1Change(Sender: TObject); 
begin 
   Form1.Query1.Close;
   Form1.Query1.SQL.clear; 
   if RadioButton1.Checked then 
   begin 
        Form1.Query1.SQL.Add('select * from "C:\Ticari\Database\carikart" where TUnvan like'+ ''''+Edit1.text+'%'+''''); 
        Form1.Query1.open;
    end
    else // Burada amaç eğer radio 1 işaretli ise 2 nci if bölümünü sorgulamaz kod daha performanslı çalışır.
    if RadioButton2.Checked then 
    begin 
         Form1.Query1.SQL.Add('select * from "C:\Ticari\Database\carikart" where Adi like'+ ''''+Edit1.text+'%'+''''); 
         Form1.Query1.open;
        //DBGrid1.setfocus; 
    end; 
end; 

İyi Çalışmalar.

[mussimsek]

Merhaba,

1. Tablo ismi vermemişsiniz. Bence en güzeli bir database veya Connection nesnesi koyup, tüm Query ve Table gibi datasetleri buna bağlamak.

2. ...Query1.ExecSQL satırından sonraki ...Query1.Active := True satırına gerek yok. Kaldır onu.

Kolay gelsin.

[loxka]

teşekkür ederim

[hakkus]

Form1.Query1.ExecSQL;
Form1.Query1.active:=true;
bu satırlar
radio2 nin begin end di arasında kalıyor...
bu iki satırı rad1 ve radio2 begin end 'i dışına taşırsan senin kodunda çalışacaktır..
kolay gelsin

[freeman35]

ExecSQL; Yazılan SQL cümlesi bir result döndürmiyecekse kullanılır, yani delete işlemi yapıyorsa yazılan SQL cümlesi, ozaman kullanabilirsiniz. Aynı işlemi Open ile de yapabilirsiniz, .Active := True; ile .Open; arasında işlevsel bir fark yoktur.
Yazdığın ExecSQL ve arkasında Active:= True; compiler hata vermeyebilir hatta RunTime'da da hata vermeyebilir, ama bu bir mantık hatası sayılır.
Kolay gele[/b]