adotable ile kayıt güncelleme yaptırmak

[ufb1453]

oluşturduğum projede; arama Sonucunun her değerini bir editin içine attım (adı edit1te,soyadı edit2de vb.) örneğin adını değiştirmek istediğimde ilk sıradaki kaydın ilgili değerini güncelliyor,not olarak; yazdığım sql filtre filan değildir kullanıcı
mağaza adını görmek istediği için id yi mağaza adına çevirmek için kullandım

yazdığım kodda aşağıda görünmekte nerede hata yapıyorum acaba?
şimdiden ilgilenen arkadaşlara teşekkür ederim

Kod: Tümünü seç

var
a: integer;
b:string;
begin
  if radiobutton1.Checked=true then
    begin
    b:=combobox1.Text;
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('select magazaID from Magaza where Magaza_Adi=:b');
     adoquery1.Parameters.ParamByName('b').Value:=b;
     adoquery1.Open;
     a:= adoquery1.FieldByName('MagazaID').AsInteger;
     adotable1.Close;
     adotable1.Open;
     //adotable1.Locate('MagazaID,Adi;Soyadi;Kullanici_Adi;Sifre;Mail_Adresi',vararrayof([a,edit2.Text,edit3.Text,edit4.Text,edit5.Text,edit6.Text]),[]);
     adotable1.edit;
     adotable1.FieldByName('MagazaID').Value:=a;
     ADOTABLE1.FieldByName('Adi').Value:=edit2.Text;
     adotable1.FieldByName('SoyAdi').Value:=edit3.Text;
     adotable1.FieldByName('Kullanici_Adi').Value:=edit4.Text;
     adotable1.FieldByName('Sifre').Value:=edit5.Text;
     adotable1.FieldByName('Mail_Adresi').Value:=edit6.Text;
    end

[ufb1453]

bu şekilde sorunum çözüldü sadece filter yapmam gerekiyormuş tabloda denedim çalıştı
belki başka arkadaşlara yardımı olur

Kod: Tümünü seç

procedure TForm4.BitBtn1Click(Sender: TObject);
var
a: integer;
b:string;
begin
  if radiobutton1.Checked=true then
    begin
    label8.Caption:= dbgrid1.DataSource.DataSet.FieldValues[('MkullaniciID')];
    b:=combobox1.Text;
    adoquery3.Close;
    adoquery3.SQL.Clear;
    adoquery3.SQL.Add('select magazaID from Magaza where Magaza_Adi=:b');
     adoquery3.Parameters.ParamByName('b').Value:=b;
     adoquery3.Open;
     a:= adoquery3.FieldByName('MagazaID').AsInteger;
     adotable1.Close;
     adotable1.Open;
     adoquery1.Close;
     adoquery3.SQL.Clear;
     adoquery3.SQL.Add('select * from Mkullanicilar where MkullaniciID=:a');
     adotable1.Filter:='MkullaniciID='+quotedstr(label8.Caption);
     adotable1.Filtered:=true;
     adotable1.edit;
     adotable1.FieldByName('MagazaID').Value:=a;
     ADOTABLE1.FieldByName('Adi').Value:=edit2.Text;
     adotable1.FieldByName('SoyAdi').Value:=edit3.Text;
     adotable1.FieldByName('Kullanici_Adi').Value:=edit4.Text;
     adotable1.FieldByName('Sifre').Value:=edit5.Text;
     adotable1.FieldByName('Mail_Adresi').Value:=edit6.Text;
     adotable1.Filtered:=false;
    end