Inserción masiva condicionada

ElDuc · #1 06-06-2023

Hola a tod@s.

En un hilo anterior sobre este tema, siguiendo los consejos de Casimiro, logré solucionar mis limitaciones.

Por refrescar el tema, os diré que trabajo con Delphi 2010, Firebird 4 y SQL Manager Lite.

Tengo que poner un espacio entre : y Campo, porque me salen caras

En Firebird tengo la siguiente tabla:

Código SQL [-]  CREATE TABLE CHARTS (
  ID INTEGER DEFAULT 0 NOT NULL,
  BREACK CHAR(1) DEFAULT 'G' NOT NULL,
  CHARTTYPE SMALLINT DEFAULT 0 NOT NULL,
  XUP SMALLINT DEFAULT 0 NOT NULL,
  PUP SMALLINT DEFAULT 0 NOT NULL,
  XXUP SMALLINT DEFAULT 0 NOT NULL,
  PPUP SMALLINT DEFAULT 0 NOT NULL,
  XDOWN SMALLINT DEFAULT 0 NOT NULL,
  PDOWN SMALLINT DEFAULT 0 NOT NULL,
  XXDOWN SMALLINT DEFAULT 0 NOT NULL,
  PPDOWN SMALLINT DEFAULT 0 NOT NULL,
  STEPS INTEGER DEFAULT 0 NOT NULL);


ALTER TABLE CHARTS ADD PRIMARY KEY (ID);


CREATE INDEX CHARTSKEY ON CHARTS(BREACK,CHARTTYPE,XUP,PUP,XXUP,PPUP,XDOWN,PDOWN,XXDOWN,PPDOWN);


SET TERM ^ ;

CREATE TRIGGER BI_CHARTS_ID FOR CHARTS
ACTIVE BEFORE 
  INSERT
POSITION 0
AS
BEGIN
  IF (NEW.ID IS NULL) THEN
      NEW.ID = GEN_ID(CHARTS_ID_GEN, 1);
END^

SET TERM ; ^

Y el siguiente Procedimiento almacenado:

Código SQL [-]SET TERM ^ ;

CREATE PROCEDURE INSERT_NEW_CHART(
  BREACK CHAR(1),
  CHARTTYPE SMALLINT,
  XUP SMALLINT,
  PUP SMALLINT,
  XXUP SMALLINT,
  PPUP SMALLINT,
  XDOWN SMALLINT,
  PDOWN SMALLINT,
  XXDOWN SMALLINT,
  PPDOWN SMALLINT)
AS
DECLARE VARIABLE EXISTINGID INTEGER;
BEGIN
  /* Comprobar si existe el registro */
  SELECT Id
  FROM CHARTS
  WHERE Breack = : Breack
    AND ChartType = : ChartType
    AND xUp = : xUp
    AND pUp = : pUp
    AND xxUp = : xxUp
    AND ppUp = : ppUp
    AND xDown = : xDown
    AND pDown = : pDown
    AND xxDown = : xxDown
    AND ppDown = : ppDown
  INTO :ExistingId;

  IF (ExistingId IS NULL) THEN
    BEGIN
      /* No existe, lo insertamos */
      INSERT INTO CHARTS (Breack, ChartType, xUp, pUp, xxUp, ppUp, xDown, pDown, xxDown, ppDown)
      VALUES (: Breack, : ChartType, : xUp, : pUp, : xxUp, : ppUp, : xDown, : pDown, : xxDown, : ppDown);
    END
  ELSE
    BEGIN
      /* Ya existe, incrementamos Steps */
      UPDATE CHARTS
          SET Steps = Steps + 1
          WHERE Id = :ExistingId;
    END
END^

SET TERM ; ^

Y en Delphi tengo el siguiente procedimiento:

Código Delphi [-]Procedure SaveTemplate;
Begin
If TemplatesInserteds = 0 Then
    Begin
    // TemplatesInserteds = Variable global,inicialmente = 0
    // Preparamos Para inserción múltiple
    If fTesting.IBTransaction.InTransaction Then
        fTesting.IBTransaction.Rollback;
    fTesting.IBTransaction.StartTransaction;
    fTesting.IBQuery.Close;
    fTesting.IBQuery.SQL.Text := 'EXECUTE PROCEDURE INSERT_NEW_CHART(: Breack, : ChartType, : xUp, : pUp, : xxUp, : ppUp, : xDown, : pDown, : xxDown, : ppDown)';
    fTesting.IBQuery.Prepare;
    End
Else If TemplatesInserteds >= MaxTemplatesInserteds Then
    Begin
    // MaxTemplatesInserteds = Constante global = 10000
    TemplatesInserteds := 0;
    fTesting.IBQuery.Transaction.CommitRetaining;
    End;
If fTesting.IBQuery.Transaction.InTransaction Then
    Begin
    Inc(TemplatesInserteds);
    fTesting.IBQuery.Params.ParamByName('Breack').AsString := Template.Breack;
    fTesting.IBQuery.Params.ParamByName('ChartType').AsSmallInt := Template.ChartType;

    fTesting.IBQuery.Params.ParamByName('xUp').AsSmallInt := Template.xUp;
    fTesting.IBQuery.Params.ParamByName('pUp').AsSmallInt := Template.pUp;
    fTesting.IBQuery.Params.ParamByName('xxUp').AsSmallInt := Template.xxUp;
    fTesting.IBQuery.Params.ParamByName('ppUp').AsSmallInt := Template.ppUp;

    fTesting.IBQuery.Params.ParamByName('xDown').AsSmallInt := Template.xDown;
    fTesting.IBQuery.Params.ParamByName('pDown').AsSmallInt := Template.pDown;
    fTesting.IBQuery.Params.ParamByName('xxDown').AsSmallInt := Template.xxDown;
    fTesting.IBQuery.Params.ParamByName('ppDown').AsSmallInt := Template.ppDown;
    fTesting.IBQuery.ExecSQL;
    End;
End;

La primera inserción la hace bien, pero en la segunda me da el error:
'Attempt to execute an unprepared dynamic SQL statement'

Agradeceré vuestra ayuda.

ElDuc · #2 06-06-2023

Perdonad, pero no he puesto qué es lo que pretendo.

Intento insertar registros en la tabla Charts, pero si existe el registro (todos los campos menos Id y Steps) que en lugar de una inerción se incremente el campo Steps del registro existente.

Gracias.

[duilioisola] · #3 06-06-2023

Creo que el orden de comprobaciones es incorrecto.
Primero miras si hay que hacer commit.
Si has hecho commit, el contador se voverá 0 y harás como si fuera la primera inserción.

En tu código, perparabas la sentencia y luego si se trataba de la MaxTenokatesInserteds hacías commit, con lo que ya no está preparada.

Código Delphi [-]Procedure SaveTemplate;
Begin
  // Forzamos commit cada MaxTemplatesInserteds inserciones
  If TemplatesInserteds >= MaxTemplatesInserteds Then
  Begin
    // MaxTemplatesInserteds = Constante global = 10000
    TemplatesInserteds := 0;
    fTesting.IBQuery.Transaction.CommitRetaining;
  End;
  
  // Si es la primera insercion preparo sentencia SQL
  If TemplatesInserteds = 0 Then
  Begin
    // TemplatesInserteds = Variable global,inicialmente = 0
    // Preparamos Para inserción múltiple
    
    // Si la transaccion esta activa, revertimos
    If fTesting.IBTransaction.InTransaction Then
      fTesting.IBTransaction.Rollback;

    // Si la transaccion esta inactiva, la iniciamos
    If not fTesting.IBTransaction.InTransaction Then
      fTesting.IBTransaction.StartTransaction;
      
    fTesting.IBQuery.Close;
    fTesting.IBQuery.SQL.Text := 'EXECUTE PROCEDURE INSERT_NEW_CHART(: Breack, : ChartType, : xUp, : pUp, : xxUp, : ppUp, : xDown, : pDown, : xxDown, : ppDown)';
    fTesting.IBQuery.Prepare;
  End;
  
  If fTesting.IBQuery.Transaction.InTransaction Then
  Begin
    Inc(TemplatesInserteds);
    fTesting.IBQuery.Params.ParamByName('Breack').AsString := Template.Breack;
    fTesting.IBQuery.Params.ParamByName('ChartType').AsSmallInt := Template.ChartType;

    fTesting.IBQuery.Params.ParamByName('xUp').AsSmallInt := Template.xUp;
    fTesting.IBQuery.Params.ParamByName('pUp').AsSmallInt := Template.pUp;
    fTesting.IBQuery.Params.ParamByName('xxUp').AsSmallInt := Template.xxUp;
    fTesting.IBQuery.Params.ParamByName('ppUp').AsSmallInt := Template.ppUp;

    fTesting.IBQuery.Params.ParamByName('xDown').AsSmallInt := Template.xDown;
    fTesting.IBQuery.Params.ParamByName('pDown').AsSmallInt := Template.pDown;
    fTesting.IBQuery.Params.ParamByName('xxDown').AsSmallInt := Template.xxDown;
    fTesting.IBQuery.Params.ParamByName('ppDown').AsSmallInt := Template.ppDown;
    fTesting.IBQuery.ExecSQL;
  End;
End;

[duilioisola] · #4 06-06-2023

De todos modos, creo que lo mejor sería hacer Commit y no CommitRetaining.

Luego, si es la "primera", no tentiendo porqué haces un Rollback.

Yo lo haría así, siempre y cuando la transacción no sea compartida por fTexting y otros DataSets.

Código Delphi [-]Procedure SaveTemplate;
Begin
  // Forzamos commit cada MaxTemplatesInserteds inserciones
  If TemplatesInserteds >= MaxTemplatesInserteds Then
  Begin
    // MaxTemplatesInserteds = Constante global = 10000
    TemplatesInserteds := 0;
    fTesting.IBQuery.Transaction.Commit;
  End;
  
  // Si es la primera insercion preparo sentencia SQL
  If TemplatesInserteds = 0 Then
  Begin
    // TemplatesInserteds = Variable global,inicialmente = 0
    // Preparamos Para inserción múltiple
    
    // Si la transaccion esta inactiva, la iniciamos
    If not fTesting.IBTransaction.InTransaction Then
      fTesting.IBTransaction.StartTransaction;
      
    fTesting.IBQuery.Close;
    fTesting.IBQuery.SQL.Text := 'EXECUTE PROCEDURE INSERT_NEW_CHART(: Breack, : ChartType, : xUp, : pUp, : xxUp, : ppUp, : xDown, : pDown, : xxDown, : ppDown)';
    fTesting.IBQuery.Prepare;
  End;
  
  If fTesting.IBQuery.Transaction.InTransaction Then
  Begin
    Inc(TemplatesInserteds);
    fTesting.IBQuery.Params.ParamByName('Breack').AsString := Template.Breack;
    fTesting.IBQuery.Params.ParamByName('ChartType').AsSmallInt := Template.ChartType;

    fTesting.IBQuery.Params.ParamByName('xUp').AsSmallInt := Template.xUp;
    fTesting.IBQuery.Params.ParamByName('pUp').AsSmallInt := Template.pUp;
    fTesting.IBQuery.Params.ParamByName('xxUp').AsSmallInt := Template.xxUp;
    fTesting.IBQuery.Params.ParamByName('ppUp').AsSmallInt := Template.ppUp;

    fTesting.IBQuery.Params.ParamByName('xDown').AsSmallInt := Template.xDown;
    fTesting.IBQuery.Params.ParamByName('pDown').AsSmallInt := Template.pDown;
    fTesting.IBQuery.Params.ParamByName('xxDown').AsSmallInt := Template.xxDown;
    fTesting.IBQuery.Params.ParamByName('ppDown').AsSmallInt := Template.ppDown;
    fTesting.IBQuery.ExecSQL;
  End;
End;

Casimiro Notevi · #5 06-06-2023

Aparte de lo indicado por duilioisola, también puedes simplificar el procedure usando "update or insert".
https://firebirdsql.org/refdocs/lang...or-insert.html

Código SQL [-]update or insert into Cows (Name, Number, Location)   
values ('Suzy Creamcheese', 3278823, 'Green Pastures')   
matching (Number)   
returning rec_id into :id;

Angel.Matilla · #6 02-02-2024

Cita:

Empezado por Casimiro Notevi

Código SQL [-]update or insert into Cows (Name, Number, Location)   
values ('Suzy Creamcheese', 3278823, 'Green Pastures')   
matching (Number)   
returning rec_id into :id;

No conocía esta posibilidad. Me viene una duda: yo, por ejemplo, tengo una tabla que tiene como primary key dos campos (tipo y registro) ; en esa estructura ¿dónde validaría esos campos?

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Inserción masiva en Firebird	ElDuc	Conexión con bases de datos	40	30-04-2023 11:38:06
insercion masiva	Alfredo	Firebird e Interbase	3	12-11-2008 21:34:46
Insercion masiva de una BD a otra BD	oscjae	Firebird e Interbase	5	15-12-2006 21:25:49
Insercion masiva de registros MUY LENTA	Balda	Firebird e Interbase	10	24-03-2004 22:40:21
Inserción masiva en MySQL	Morfo	MySQL	3	09-01-2004 19:05:33