Re: deleting detail record

Nothing... nothing ... nothing of all !!!!!!!!!! this is an ADODataSet bug
really !!!

If u want u can evaluate my example created with D2006 . I tryed in many
modes but NOT NOT NOT !!

Excuse me .... Best regards

Guido

EXAMPLE ------------------


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons,adoint;

type
TForm1 = class(TForm)
ADODataSet1: TADODataSet;
DataSource1: TDataSource;
DataSource2: TDataSource;
ADODataSet2: TADODataSet;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
ADOConnection1: TADOConnection;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ADODataSet1BeforeDelete(DataSet: TDataSet);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
adodataset1.open;
adodataset2.open;

adodataset1.IndexFieldNames:='codice1';
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
ADOConnection1.BeginTrans;

adodataset1.delete;
end;

procedure TForm1.ADODataSet1BeforeDelete(DataSet: TDataSet);
begin
adodataset2.First();
while not adodataset2.bof do
adodataset2.Delete;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
adodataset1.UpdateBatch();
adodataset2.UpdateBatch();

ADOConnection1.CommitTrans;
end;

end.



.