Kayıt sildirirken hata?

[pelitt]

selamlar form üzerindeki butona tıkladığımda silme işlemi gerçelkeşiyor ikinci kez başka kayıt seçip sil dediğimde ise hata veriyor(list index aut of [1]) neden oluyor
formumda 1 tane zquerry ile hem update hem delete hem insert işlemi yapabilirmiyim yoksa yukardaki hata bundanmı kaynaklanır yada bu şekilde nasıl kullanırım

Kod: Tümünü seç

procedure TForm2.Button1Click(Sender: TObject);
var
  mesaj:Integer;
  idm:string;
begin
 mesaj:=Application.MessageBox('Seçtiğiniz Aya Ait kayıt Silinecek Eminmisiniz ?','Cevap bekleniyor...',MB_ICONSTOP+MB_YESNO);
 if mesaj=mrYes Then
    begin
 idm:=edit6.text;
zQuery1.Close;
zQuery1.SQL.Clear;
zQuery1.SQL.Add('delete from hesap Where hesap.id='+idm+'');
zQuery1.ExecSQL;
zQuery1.SQL.Clear;
zQuery1.Close;
ZQuery1.Active;
GridAyarla(DBGrid1);
      DBGrid1.DataSource.DataSet.Fieldbyname('id').Visible:=false;

    showmessage('Kayıt başarı ile silindi');

[pelitt]

Kod: Tümünü seç

idm:=edit6.text;
zQuery2.SQL.Clear;
zQuery2.SQL.Add('delete from hesap Where hesap.id='+idm+'');
zQuery2.ExecSQL;
ZQuery1.Close;
ZQuery1.Open;
GridAyarla(DBGrid1);
dBGrid1.DataSource.DataSet.Fieldbyname('id').Visible:=false;

sorunu başkabir zquery ekleyerek çözdüm
ancak aklıma takıldı zquery1 ile sime işleminide halledemezmiydim

[conari]

zQuery1.SQL.Clear;
zQuery1.SQL.Add('delete from hesap Where hesap.id='+idm+'');
zQuery1.ExecSQL;
zQuery1.SQL.Clear; //burada SQLi temizlemişsiniz. aktif etseniz ne olurki.

bundan sonra Add ile tekrar ekleme yapın.
Zquery kullanmadım ama Close veya Clear i aynı anda kullanmanın bir manası yok gibi.
çünkü clear ettiğinizde kapanması lazım.

Yenilemek içinde requery özelliği varmı onu kontrol edin.
Tek Query de olur.

[pelitt]

cevapiçin teşekkürler