Equivalencia de conexión Delphi - Lazarus.

[hoyosfelix]

Buen día a todos, quiero realizar la siguiente consulta:

En Delphi tenemos este esquema de conexión a la base de datos...

1º En un DataModule el componente de Interbase TIBDatabase para la conexión a la base de datos.

2º En el formulario de ABM el componente TIBTransaction con TIBQuery, TIBUpdateSQL ambos de Interbase.

3º También, en el formulario usamos el TDataSource del DataAccess para nuestras inserciones, borrados y actualizaciones.

4º Para cualquier inserción nos valemos del TIBTransaction.

En Lazarus tengo instalado el paquete de Zeos Access con la siguiente equivalencia:

TIBDatabase -> TZConnection
TIBQuery -> TZQuery
TIBUpdateSQL -> TZUpdateSQL

pero quedo con la duda con TIBTransaction...Cuál sería su equivalente en Lazarus?

O las transacciones se realizan directamente en TZConnection?

Saludos cordiales.

[Ñuño Martínez]

Lo que preguntas no es una equivalencia de conexión Delphi - Lazarus sino Delphi - Zeos Access. Por lo que sé, Zeos también funciona en Delphi. Lo digo porque el título llama a engaño.

Respecto a tu pregunta concreta, nunca he usado Zeos así que no puedo responderte.

[pacopenin]

Los componentes Zeos funcionan como lo hacían los equivalente componentes nativos BDE de Delphi. No existe ningún equivalente al componente específico de transacciones, sino que el propio TZConnection controla las transacciones.

[hoyosfelix]

Gracias a los que han respondido al respecto.

Disculpas por el título no tan descriptivo, el comparativo es realmente con el Interbase y Zeos Access. Pregunté aquí porque lo quiero aplicar en Lazarus.

Supongamos que tenga en un DataModulo un único componente TZConnection con AutoCommit = False y en otras ventanas las Querys que apuntan a la misma conexión.

Si abro la Query1 (para insertar o modificar) y la dejo abierta y luego abro la Query2 y hago un commit a la Query2; esta ya me realiza el commit para la Query1 y 2.

En Delphi tenemos el Transaction para cada Query.

Cómo sería el manejo de transacciones con Zeos?

Saludos cordiales.

[pacopenin]

Si no haces nada, cada operación con cada tabla o query lleva su propia transacción.
Para operaciones que afecten a varias tablas o varios registros debes iniciar tu las transacciones y darles commit o rollback según corresponda. Te adjunto un trozo de código :

Código Delphi [-]
procedure duplicaTarifa(origen, destino: integer; Tipo: String);
var
  QryO, QryD: TZQuery;
  s : String;
begin
  s := '';
  QryO := TZQuery.Create(nil);
  QryD := TZQuery.Create(nil);

  Dat.ZConn.StartTransaction;

  try
    QryO.Connection := Dat.ZConn;
    QryD.Connection := Dat.ZConn;
    QryO.SQL.Text := 'SELECT * FROM TARIFAS WHERE ID_CLIENTE = ' + IntToStr(origen) +
                     ' AND INOUT = ' + QuotedStr(Tipo) + 'ORDER BY TRAMO';
    QryO.open;
    if buscaTarifaCliente(destino, tipo) then
     if Confirm('Borrar tarifa existente?') then
      begin
        QryD.SQL.Text := 'DELETE FROM TARIFAS WHERE ID_CLIENTE = ' + IntToStr(destino) +
                         ' AND INOUT = ' + QuotedStr(Tipo);
        QryD.ExecSQL;
      end;
    while not QryO.Eof do
     begin
       nuevaLineaTarifa;
       Dat.ZTarifasID_CLIENTE.Value := destino;
       Dat.ZTarifasTRAMO.asInteger := QryO.FieldByName('TRAMO').asInteger;
       Dat.ZTarifasTIPO.asString := QryO.FieldByName('TIPO').asString;
       Dat.ZTarifasINOUT.Value := Tipo;
       Dat.ZTarifasPrecio1.asFloat := QryO.FieldByName('Precio1').asFloat;
       Dat.ZTarifasPrecio2.asFloat := QryO.FieldByName('Precio2').asFloat;
       Dat.ZTarifasPrecio3.asFloat := QryO.FieldByName('Precio3').asFloat;
       Dat.ZTarifasPrecio4.asFloat := QryO.FieldByName('Precio4').asFloat;
       Dat.ZTarifasPrecio5.asFloat := QryO.FieldByName('Precio5').asFloat;
       Dat.ZTarifasPrecio6.asFloat := QryO.FieldByName('Precio6').asFloat;
       Dat.ZTarifasPrecio7.asFloat := QryO.FieldByName('Precio7').asFloat;
       Dat.ZTarifasPrecio8.asFloat := QryO.FieldByName('Precio8').asFloat;
       Dat.ZTarifasPrecio9.asFloat := QryO.FieldByName('Precio9').asFloat;
       Dat.ZTarifas.Post;
       QryO.Next;
     end;
    try
     Dat.ZConn.Commit;
    except
     on e : exception do
      begin
        mensaje('Se produjo un error al copiar tarifa : ' + E.Message);
        Dat.ZConn.Rollback;
      end;
    end;
  finally
    QryO.close;
    QryO.Free;
    QryD.close;
    QryD.Free;
  end;
end;

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

Es posible que la transacción no tenga componente propio, como pasa con ADO.
La trasacción está implícita o incluída en la conexión, y desde ese componente es desde donde realizas loa START, COMMIT y ROLLBACK.