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 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...