aloww,,,, ada yang pernah pake autocommit di zoes ga?

 try
  with dm do
  begin
    ZCon.Connected:=false;
    ZCon.Database:='sakila';
    ZCon.AutoCommit:=false;
    ZCon.Connected:=true;
    zcon.StartTransaction;
    Zproc.Script.Clear;
    zProc.Script.Add('drop procedure re;');
    zproc.Execute;
  //  zcon.Commit; ga aku commit
  end;
 except on e:exception do
  showMessage(e.Message);
 end;

padahal ga ak commit, tapi procedure re tetep ilang :shock:

setahu saya di Zeos pada komponen ZConnection ada property CloseAction atau semacamnya. property ini menunjukkan aksi apa yg dilakukan jika dataset, commands atau connection "tertutup". seingat saya isinya adalah commit, commitretaining & none ... dll... coba deh ente cek...

udah bisa, jadinya gini

 try
  with dm do
  begin
    ZCon.Connected:=false;
    ZCon.Database:=dm.dbSelect;
    ZCon.AutoCommit:=false;
    ZCon.Connected:=true;
    zcon.StartTransaction;
    zproc.Delimiter:=';';
    Zproc.Script.Clear;
    zProc.Script.Add('drop procedure re;');
    zProc.Script.Add('drop procedure rexsssss;');
    zproc.Execute;
    showMessage('berhasil');
    zcon.Commit;
  end;
 except on e:exception do
 begin
  dm.zcon.Rollback;
  showMessage(e.Message);
 end;
 end;

wah ga mau lagi, ya mas DelphiExpert, tak coba dulu.. semangat!!!