kayıt güncelleme işlemi hatası hk.

[ufb1453]

Merhaba,



Projemde aşağıdaki gibi bir kod yazdım, daha önce çalışıyordu ancak şuan alakasız bir şekilde çalışmıyor,

başka bir unite kopyaladım kodları ondanmıdır bilemiyorum konu hakkında yardımcı olurmusunuz,

not: aynı kayıttan olsa da olmasa da raise deki mesajı hata olarak veriyor

Saygılarımla

Kod: Tümünü seç

begin

adotable1.First;

if not (adotable1.Locate('BirimID','%'+edit1.Text+'%',[])) or //çalışmayan bölüm burası

       (adotable1.Locate('BirimAdi','%'+edit2.Text+'%',[])) then  //çalışmayan bölüm burası

 begin

 raise exception.Create('Böyle Bir Kayıt Bulunmaktadır'#13'Kontrol Edip Tekrar Deneyiniz');

 end;

  if (radiobutton4.Checked=true) or (radiobutton5.Checked=true) then

  begin

    label4.Caption:= dbgrid1.DataSource.DataSet.FieldValues[('BirimID')];

     b:=Edit2.Text;

     adoquery2.Close;

     adoquery2.SQL.Clear;

     adoquery2.SQL.Add('select BirimID from Birim where BirimAdi=:b');

     adoquery2.Parameters.ParamByName('b').Value:=b;

     adoquery2.Open;

     a:= adoquery2.FieldByName('BirimID').AsInteger;

     adotable1.Close;

     adotable1.Open;

     adoquery2.Close;

     adoquery2.SQL.Clear;

     adoquery2.SQL.Add('select * from Birim where BirimID=:a');

     adoquery2.Open;

     adotable1.Filter:='BirimID='+quotedstr(label4.Caption);

     adotable1.Filtered:=true;

     adotable1.edit;

     ADOTABLE1.FieldByName('BirimAdi').Value:=Edit2.Text;

     Adotable1.Filtered:=False;

     Adoquery1.Close;

     Adoquery1.SQL.Clear;

     Adoquery1.SQL.Add('select * from Birim');

     Adoquery1.Open;

   end;

end; 

[speed60]

adotable1.First;

demişsin 1 kayıta konumlanıp kalmış hani bunun next i 1 kayıtta aradığın yoksa 2 ,3,4, diye dolaşması lazım

[ufb1453]

Merhaba,

Teşekkür ederim hocam
aşağıdaki şekilde çözdüm ben

Kod: Tümünü seç

procedure TForm7.BitBtn3Click(Sender: TObject);
var
//a: integer;
//b:string;
sonuc:boolean;
begin
   if Edit2.Text='' then
    begin
     showmessage('Boş Kayıt Güncellenemez');
     end;
      sonuc:=adotable1.Locate('BirimAdi',Edit2.Text,[]);
      if sonuc=true then
       begin
        showmessage('Böyle Bir Kayıt Bulunmaktadır'#13'Kontrol Edip Tekrar Deneyiniz');
        exit;
       end
      else
      begin
       adotable1.Open;
       adotable1.edit;
      ADOTABLE1.FieldByName('BirimAdi').Value:=Edit2.Text;
      adotable1.Post;
      adotable1.Refresh;
      Adoquery1.Close;
      Adoquery1.SQL.Clear;
      Adoquery1.SQL.Add('select * from Birim');
      Adoquery1.Open;

   end ;
end;