Cuál es la mejor forma de conectar la base de datos a mi programa?

[[duilioisola]]

Ten en cuenta el tema de transacciones

Query.Close;
Query.SQL.Clear;
Query.SQL.Add('insert into DETALLE_FACTURA (');
Query.SQL.Add('COD_ARTICULO, CANTIDAD, CAMPO_X...)');
Query.SQL.Add('values (:vCOD_ARTICULO, :vCANTIDAD, :vCAMPO_X...)');
while not DetalleTemporal.Eof() do begin
   if not Query.Transaction.InTransaction then Query.Transaction.StartTransaction; //agregado
   Query.ParamByName('vCOD_ARTICULO').AsString := DetalleTemporalCOD_ARTICULO.AsString;
   Query.ParamByName('vCANTIDAD').AsCurrency   := DetalleTemporalCANTIDAD.AsCurrency;
   ...otros campos..
   Query.Transaction.Commit; // agregado
   DetalleTemporal.Next;
end;

Si hay más de un usuario cargando datos, el hecho de que inserten al mismo tiempo y no cierren transacciones puede hacer más cada vez más lento la inserción de registros.

[martinzcr]

Hola Amigos:

Hice la prueba con una tabla con 40 campos (20 varchar y 20 float). Probe varias veces hacer la inserción con Query y con Dataset (probe 10000 registros). Definitivamente, fue más rápida la inserción con los Querys (según mis pruebas un 15% más rápido mas o menos).

Respecto de las transacciones, en el evento AfterExecute coloco siempre este código:

Código Delphi [-]
procedure TFDatos.Query_PruebaAfterExecute(Sender: TObject);
begin
     if not Transaccion.Active then
        Transaccion.Active := True;
     Transaccion.Commit;
end;

Gracias por la colaboración!