Ado Query ile sql kayıt düzenleme komut hatası

[sadeceen]

Arkadaşlar;

Aşağıdaki kod hiçbir veri döndürmüyor. Günlerdir uğraşıyorum bulamadım bir türlü. Ado query için sql kayıt düzenleme komutu yazmaya çalışıyorum. Sizce hata nedir? Yardımcı olursanız sevinirim.

Düzenle Butonu

Kod: Tümünü seç

procedure TForm5.SpeedButton4Click(Sender: TObject);
var
kaytid: integer;

begin
dgstrbtn.Visible:= true;
kaytid:= adotable4.RecNo;
kayitno.Text:=inttostr(kaytid);

dgstr_q.Close;
dgstr_q.SQL.clear;
dgstr_q.SQL.Add('select yaziciadi,toneradi,departman,tarih,sayfa from toplam');
dgstr_q.SQL.Add('where topid=:kaytid');
dgstr_q.Parameters.ParamByName('kaytid').Value := adotable4.RecNo;
dgstr_q.Open;
combobox1.text:=dgstr_q.FieldByName('departman').AsString;
combobox2.text:=dgstr_q.FieldByName('yaziciadi').AsString;
combobox3.text:=dgstr_q.FieldByName('toneradi').AsString;
edit2.text:=dgstr_q.FieldByName('tarih').AsString;
edit1.text:=dgstr_q.FieldByName('sayfa').AsString;



end;

Bu butona bastığımda istediğim gibi comboboxlara ve editlere tabledan seçtiğim kayıtı idsine göre atıyor.

Bu da düzenle kaydet butonu

Kod: Tümünü seç

procedure TForm5.dgstrbtnClick(Sender: TObject);
var
a: integer;
begin
a:= strtoint(kayitno.Text);
with dgstrkyt do
begin
 With SQL Do
      Begin
      close;
      Clear;

      Add('UPDATE toplam  SET  departman=''' + combobox1.Text + '''  ,yaziciadi=''' + combobox2.Text + '''  ,toneradi=''' + combobox3.Text + '''  ,   tarih=''' + edit2.Text + ''', sayfa=''' +edit1.Text  + '''   ');
      Add('Where topid=:kyt ');
      ExecSQL;
     dgstrkyt.Parameters.ParamByName('kyt').Value :=strtoint(kayitno.text);
     end;
     end;

edit1.Text:='';
edit2.Text:='';
combobox1.text:='';
combobox2.text:='';
combobox3.text:='';

adotable4.Requery;
end;

Bu yukaridaki komut hiç bir sonuç döndürmüyor...