Grabacion de Registros en una tabla.

[olbeup]

Hola GINMARMENOR,

En vez de utilizar

Código Delphi [-]
IbTablePedidos.Insert

utiliza el

Código Delphi [-]
IbTablePedidos.Append

, este último lo pone al final del fichero y el que utilizas lo pone al principio desplazando todos los demás y creo que ese es el retraso que tienes.

Un saludo.

[GINMARMENOR]

Buenas estoy siguiendo los pasos de chenec mediante SQL, pero no encuentro la syntaxys correcta según su ejemplo es el siguiente,

INSERT INTO TABLEX (CAMPO1, CAMPO2, CAMPO3 ...)
VALUES (:PCAMPO1, :PCAMPO2, :PCAMPO3 ...)
FieldByParam('PCAMPO1').AsInteger := StrToInt(Edit1.Text);
...
...

Yo estoy utilizando prácticamente la misma la secuencia, pero tengo que insertar un ibQuery1 y enlazarlo a la Tablax del siguiente modo:

select * from TableX

A partir de ahí utilizo el siguiente código:

IbQuery1.clear;
IbQuery1.sql.close

IbQuery.Text:=' INSERT INTO TABLEX (CAMPO1, CAMPO2, CAMPO3 ...)
VALUES (:PCAMPO1, :PCAMPO2, :PCAMPO3 ...) ';

IbQuery.open;

FieldByParam('PCAMPO1').AsInteger := StrToInt(Edit1.Text);
...
...

Pero no funciona, da error, como siempre busco por internet pero no encuentro la sintaxys correcta, si podéis echarme una mano, . en principio sería sólo insertar un registro mediante únicamente sql, que es más rápido que utilizar BDE con IbTable.append, IbTbable Post, que a veces me da problemas, ralentizándose bastante. Gracias.

[[duilioisola]]

No mencionas el mensaje de error que te devuelve la aplicación.
De todos modos, creo que se trata del "Open".
En el caso de que no se devuelvan datos, deberías utilizar ExecQuery.

Además, debes asignar los parámetros antes de ejecutar el query o abrir una tabla.

Código Delphi [-]

// Cierro el DataSet si esta abierto.
IbQuery1.Close

// Limpio la sentencia SQL
IbQuery1.SQL.Clear;

// Cargo la sentencia SQL que me interesa
IbQuery.Text:=' INSERT INTO TABLEX (CAMPO1, CAMPO2, CAMPO3 ...)
VALUES (:PCAMPO1, :PCAMPO2, :PCAMPO3 ...) ';

// Asigno valores a los parámetros
FieldByParam('PCAMPO1').AsInteger := StrToInt(Edit1.Text);

// Ejecuto Sentencia SQL
IbQuery.ExecQuery;

// Cierro el DataSet.
IbQuery1.Close;

// Commit de la transaccion ???
IbQuery1.Transaction.Commit;
...

[[duilioisola]]

Yo trabajo con TFDQuery contra una base de datos Firebird, pero supongo que es más o menos lo mismo...

Código Delphi [-]
// ------------------------------------------------------------
// UNIDAD UUTILES.PAS

function DameTransactionRO(BaseDeDatos: TFDConnection; Iniciar: Boolean = False): TFDTransaction;
begin
  Result := TFDTransaction.Create(BaseDeDatos);
  with Result do
  begin
    Connection := BaseDeDatos;
    Options.AutoCommit := True;
    Options.DisconnectAction := xdCommit;
    Options.Isolation := xiReadCommitted;
    Options.ReadOnly := True;
    {
      Options.Params.Clear;
      Options.Params.Add('read_committed'); // do not localize
      Options.Params.Add('read'); // do not localize
    }

    if Iniciar and (not Result.Active) then
      StartTransaction;
  end;
end;

function DameTransactionRW(BaseDeDatos: TFDConnection; Iniciar: Boolean = False): TFDTransaction;
begin
  Result := TFDTransaction.Create(BaseDeDatos);
  with Result do
  begin
    Connection := BaseDeDatos;
    Options.AutoCommit := True;
    Options.DisconnectAction := xdRollback;
    Options.Isolation := xiSnapshot;
    Options.ReadOnly := False;
    {
      Options.Params.Clear;
      Options.Params.Add('read_committed'); // do not localize
      Options.Params.Add('rec_version'); // do not localize
      Options.Params.Add('nowait'); // do not localize
    }

    if Iniciar and (not Result.Active) then
      StartTransaction;
  end;
end;

function DameQueryRO(AOwner: TComponent; BaseDeDatos: TFDConnection): TFDQuery;
begin
  Result := TFDQuery.Create(AOwner);
  with Result do
  begin
    Connection := BaseDeDatos;
    Transaction := DameTransactionRO(BaseDeDatos, True);
  end;
end;

function DameQueryRW(AOwner: TComponent; BaseDeDatos: TFDConnection): TFDQuery;
begin
  Result := TFDQuery.Create(AOwner);
  with Result do
  begin
    Connection := BaseDeDatos;
    Transaction := DameTransactionRW(BaseDeDatos, True);
  end;
end;

// ------------------------------------------------------------
// UTILIZACION EN UN DATAMODULE

TDM = class(TDataModule)
    DB: TFDConnection;
[...]

procedure TDM.RegistraEntrada;
begin
  with DameQueryRW(Self, DB) do
  begin
    try
      SQL.Text := 'EXECUTE PROCEDURE LOG_ENTRADAS (:ID_USUARIO)';
      ParamByName('ID_USUARIO').AsInteger := Entorno.IdUsuario;
      ExecSQL;

      Close;
      Transaction.Commit;
    finally
      Free;
    end;
  end;
end;

[GINMARMENOR]

Es correcto, lo he hecho en principio sin Transactiones pero funciona perfectamente, mil gracias