6 respuestas en este tema

[enecumene]

Amigos, tengo un problema que no le encuentro ni pies ni cabeza, ésta es mi función para realizar una inserción de datos, sólamente en ésta función me está marcando un error extraño:

delphi

function TOrdenTrabajoP.GenerarOT: Integer;
var Insert: TFDQuery;
begin
  Insert := TFDQuery.Create(nil);
  Insert.Connection := Datos.dbDatos;
  Insert.Transaction := Datos.trTransaccion;
  Insert.SQL.Clear;
  Insert.SQL.text := 'INSERT INTO OT_PREVENTIVO(veh_id,ot_fecha,ot_status,ot_vme_med,ot_vme_med_type) VALUES(:VME,:FECHA,:STATUS,:MED,:UND) RETURNING OT_ID';
  Insert.ParamByName('vme').AsInteger := OVmeID;
  Insert.ParamByName('fecha').AsDateTime := now;
  Insert.ParamByName('status').AsInteger := 0; //Pendiente de aprobacion of. técnica
  Insert.ParamByName('med').AsFloat := OMedidor;
  Insert.ParamByName('und').AsInteger := OMedTipo;
 
  Datos.trTransaccion.StartTransaction;
  try
    Insert.Open;
  except
    on E:EFDDBEngineException do begin
      MessageDLG(E.Message,mtError,[mbOk],0);
      Datos.trTransaccion.Rollback;
      Abort;
    end;
  end;
 
  Datos.trTransaccion.Commit;
 
  Result := Insert.Fields[0].AsInteger;
 
  Insert.Free;
end;

Éste es el error que marca y no le encuentro el problema, la consulta copio y pego en ibexpert y funciona sin problemas:

 

[Window Title]
Error

[Content]
[FireDAC][Phys][FB]Dynamic SQL Error
SQL error code = -104
Token unknown - line 2, column 1
INSERT

[OK]

 

 

¿Alguna idea?

[enecumene]

Me he dado cuenta, que sucede debido a las transacciones, sin una transacción asignada a la base de datos ella funciona correctamente, ¿que propiedades debo verificar para que funcione ese tipo de consulta?.

[Fenareth]

Amigos, tengo un problema que no le encuentro ni pies ni cabeza, ésta es mi función para realizar una inserción de datos, sólamente en ésta función me está marcando un error extraño:

delphi

function TOrdenTrabajoP.GenerarOT: Integer;
var Insert: TFDQuery;
begin
  Insert := TFDQuery.Create(nil);
  Insert.Connection := Datos.dbDatos;
  Insert.Transaction := Datos.trTransaccion;
  Insert.SQL.Clear;
  Insert.SQL.text := 'INSERT INTO OT_PREVENTIVO(veh_id,ot_fecha,ot_status,ot_vme_med,ot_vme_med_type) VALUES(:VME,:FECHA,:STATUS,:MED,:UND) RETURNING OT_ID';
  Insert.ParamByName('vme').AsInteger := OVmeID;
  Insert.ParamByName('fecha').AsDateTime := now;
  Insert.ParamByName('status').AsInteger := 0; //Pendiente de aprobacion of. técnica
  Insert.ParamByName('med').AsFloat := OMedidor;
  Insert.ParamByName('und').AsInteger := OMedTipo;
 
  Datos.trTransaccion.StartTransaction;
  try
    Insert.Open;
  except
    on E:EFDDBEngineException do begin
      MessageDLG(E.Message,mtError,[mbOk],0);
      Datos.trTransaccion.Rollback;
      Abort;
    end;
  end;
 
  Datos.trTransaccion.Commit;
 
  Result := Insert.Fields[0].AsInteger;
 
  Insert.Free;
end;

Éste es el error que marca y no le encuentro el problema, la consulta copio y pego en ibexpert y funciona sin problemas:

 

 

¿Alguna idea?

 

 

No debería ser ?

1. try
2. Insert.Execsql; // <- cambio aquí
3. except
4. on E:EFDDBEngineException do begin
5. MessageDLG(E.Message,mtError,[mbOk],0);
6. Datos.trTransaccion.Rollback;
7. Abort;
8. end;
9. end;

 

Saludox !

[enecumene]

No, cuando se trata de la declaración RETURNING se utiliza Open o OpernOrExecute, es una especie de SELECT que te devuelve un recordset, en este caso el ID generado en el campo OT_ID, funciona correctamente si NO le asigno una transacción al TFDConnection, si le asigno una pues sucede eso.

 

Saludos.

[enecumene]

Ya pude resolver ese problema, tuve que crear un Stored Procedure y usar el TFDStoredProc, aquí no genera problemas, pero aún me intriga ese caso usando TFDQuery.

[Agustin Ortu]

amigo enecumene, yo nunca utilizo componentes para la transaccion. Directamente utilizo los metodos de TFDConnection, que aparentemente si no tiene su propiedad Transaction asignada, crea un objeto interno para manejarlo. No he estudiado el codigo asi que no estoy muy seguro de como hace su trabajo, pero si puedo decir que lo hace bien

 

Un esqueleto general de como lo hago:

delphi

procedure ...;
var
  qry: TFDQuery;
begin
  qry := TFDQuery.Create(nil);
  try
    // asigno la conexion, supongamos que es variable global/instancia/parametro del metodo
    qry.Connection := Connection;
    // sentencia sql
    qry.SQL.Text := '....';
    // tipo de datos de cada parametro
    qry.ParamByName('...').DataType := TFieldType.ftXXX;
    // valores para cada parametro
    qry.ParamByName('...').DataType := Value;
 
   Connection.StartTrans;
   try
     qry.Open; // o .ExecSQL;
     Connection.Commit;
   except
     Connection.Rollback;
     raise;
   end;
  finally
    qry.Free; 
  end;
end;

Editado por Agustin Ortu, 23 junio 2016 - 10:11 .

[enecumene]

Pues la verdad no sabía que el mismo TFDconnection realizaba las transacciones, en un principio mi sistema era monousuario y todo funcionaba bien, incluso la consulta de este tema, ahora es multiusuario y en red, trabajaba bien, excepto que los datos se reflejaban sólo cuando se desconectaba la base de datos, y eso que tiene su propiedad autocommit tildada, asi que tuve que recurrir al uso de las transacciones y ahora los datos se reflejan sin necesidad de desconectar la BD.