Ver Mensaje Individual
  #5  
Antiguo 27-02-2013
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.735
Reputación: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
¿El Query no tiene una propiedad Autocommit?
Quizás la conexión tenga esta propiedad para cuando creas algún componente que dependa de esta pero luego a cada uno de estos componentes deberías poder modificarle esta propiedad.
Quedaría algo así:

Código Delphi [-]
...
    with ZQuery_Cambios do
      begin
        Autocommit := False; // La propiedad Autocommit de ZQuery_Cambios
        conConnection.StartTransaction
        Close;
        With SQL do
          begin
            Clear;
            if Not Cerrar then
              Add('Select ID_SESION from ABRIR_SESION('+IntToStr(IDUsuarioConectado)+','''+
                  GetPCName+''','''+GetLocalIP+''','''+GetUserWin+''')');
            Open;
            IDSesion:= Fields[0].AsInteger;
          end;
          conConnection.Commit;
      end;

    ShowMessage(IntToStr(IDSesion));
...
Responder Con Cita