StartTransaction

[Neftali [Germán.Estévez]]

Lo que está claro es que si no haces el commit no debería haber ningun dato desde que se hizo el StartTransaction.
¿Con qué componentes trabajas?
¿Lo que no tengo claro es lo del ApplyUpdates y si eso afecta?

[david duarte]

tengo entendido que los applyupdates pueden fallar y para eso se utilizaria el CommitUpdates (eso lo lei en el libro de la cara oculta de delphi)

A lo mejor estoy yo haciendo algo mal.

yo tambien creo que sean por el applyupdate, pero existe otra forma para que no guarde datos antes de hacer el commit?

probablemente tenga que editar la tabla del datatmodule y asignarle los valores a los campos con el FieldByname
y al ultimo de todas mis asignaciones poner el commit.

No tengo mi codigo a la mano, pero en un ratillo les pongo un fragmento de codigo.

Y muchas gracias.

[david duarte]

Hola otra vez
una disculpa por no haber respondido antes, habia un poco de trabajo.
Bueno,
trabajo con lo componentes que vienen con delphi en la paleta de data access
DataSource y el ClientDataSource, en general con los datasource

aqui les añado una parte del codigo, espero que me puedan ayudar, la verdad no he tenido tiempo de checarla mas a detalle, solamente lo que les comente con anterioridad.

Código Delphi [-]

 if not (DMPrincipal.Database1.InTransaction) then DMPrincipal.Database1.StartTransaction;

//---->>aqui inicio el starttransaction que es donde va a empezar la transaccion.
    try
      //insertamos en segreportes el registro que se va a dar de alta.
      DMPrincipal.cdsnotas.Close;
      DMPrincipal.cdsnotas.CommandText := 'insert into segreportes (sucursalid, usuarioid, problemadivision, deptoid, divisionreporte,         noticket, impseveridad, prioridad, estatus, nivel, fechainirep, descproblema, solucion, usuarioresp)'+
                          '                 values ('+DMPrincipal.cdssucursales.fieldByName('sucursalesid').AsString+', '+inttostr(DBLookupcomboboxEjecutivo.KeyValue)+', '''+DMPrincipal.cdsprobdivafectada.FieldByName('problemadivision').AsString+''', '''+ DMPrincipal.cdsdepto.FieldByName('deptorepid').AsString+''', '+quotedstr(inttostr(rxdblookupcombo2.keyvalue))+', '+quotedstr(label2.Caption)+', '+quotedstr(importanciavar)+', '+inttostr(prioridadvar)+', ''A'', ''1'', '+fechaatencion+', '+quotedstr(memodescproblema.Lines.Text)+', '+quotedstr(memodescproblema.Lines.Text + memosolucion.Lines.Text)+', '+DMPrincipal.CDSUsuariosMau.FieldByName('usuariosid').AsString+')';
      DMPrincipal.cdsnotas.Execute;
       //seleccionamos el ultimo id del reporte que se dio de alta
      DMPrincipal.CDSAux.Close;
      DMPrincipal.CDSAux.CommandText := 'select max(segreporteid) segreporteid from segreportes';
      DMPrincipal.CDSAux.Open;




    {DMPrincipal.cdsnotas.Close;
    DMPrincipal.cdsnotas.CommandText := 'insert into segreportes (sucursalid, usuarioid, problemadivision, deptoid, divisionreporte,         noticket, impseveridad, prioridad, estatus, nivel, fechainirep, descproblema, solucion, usuarioresp)'+
                          '                 values ('+DMPrincipal.cdssucursales.fieldByName('sucursalesid').AsString+', '+inttostr(DBLookupcomboboxEjecutivo.KeyValue)+', '''+DMPrincipal.cdsprobdivafectada.FieldByName('problemadivision').AsString+''', '''+ DMPrincipal.cdsdepto.FieldByName('deptorepid').AsString+''', '+quotedstr(inttostr(rxdblookupcombo2.keyvalue))+', '+quotedstr(label2.Caption)+', '+quotedstr(importanciavar)+', '+inttostr(prioridadvar)+', ''A'', ''1'', '+fechaatencion+', '+quotedstr(memodescproblema.Lines.Text)+', '+quotedstr(memodescproblema.Lines.Text + memosolucion.Lines.Text)+', '+DMPrincipal.CDSUsuariosMau.FieldByName('usuariosid').AsString+')';
    DMPrincipal.cdsnotas.Execute;
     //seleccionamos el ultimo id del reporte que se dio de alta
    DMPrincipal.CDSAux.Close;
    DMPrincipal.CDSAux.CommandText := 'select max(segreporteid) segreporteid from segreportes';
    DMPrincipal.CDSAux.Open;}

    //posteriormente insertamos el registro correspondiente en la tabla segreportesdet
    DMPrincipal.CDSNotas.Close;
    DMPrincipal.CDSNotas.CommandText := 'insert into segreportesdet (segreporteid,estatus, nivel, fechainiatencion, usuarioresp)'+
                          '                    values ('+DMPrincipal.CDSAux.FieldByName('segreporteid').Asstring+', ''A'', ''1'', '+fechaatencion+','+quotedstr(usuarioresp)+')';
    DMPrincipal.CDSNotas.Execute;
    DMPrincipal.CDSNotas.Close;

     //seleccionamos el ultimo ticket que se genero.
    DMPrincipal.cdsnotas.CommandText := 'select max(noticket) tickets from segreportes';
    DMPrincipal.cdsnotas.Open;
    memodescproblema.Refresh;
    memosolucion.Refresh;

    Showmessage ('El número de reporte es:'+    DMPrincipal.cdsnotas.FieldByName('tickets').AsString);
    Close;

//--->>> si todo va bien, se ejecutaria el commit con los datos
    DMPrincipal.Database1.Commit;
    except
//------> de lo contrario deshace los cambios
      DMprincipal.Database1.Rollback;

    end;

estoy en lo correcto?
Saludos!!!
Hice las pruebas, pero no puedo hacer que se ejecute el rollback

En lo que respecta a los applyupdates, tenemos otro sistema que si los maneja.