Code: Select all
ZConsultaBD.SQL.Text('BEGIN');
ZConsultaBD.Open;
Code: Select all
ZConexion.StartTransaction;
Code: Select all
ZConsultaBD.SQL.Text('COMMIT');
ZConsultaBD.Open;
Code: Select all
ZConsultaBD.SQL.Text('BEGIN');
ZConsultaBD.Open;
Code: Select all
ZConexion.StartTransaction;
Code: Select all
ZConsultaBD.SQL.Text('COMMIT');
ZConsultaBD.Open;