Devart Forums

Code: Select all

insert into TableA( FIELD1, FIELD2, FIELD3, FIELD4, FIELD5 )
select FIELD1, FIELD2, :PARAMSTR1, :PARAMINT2, :PARAMDATE3
from TableB
where PKTABLEB = 1

PARAMSTR1, is an string parameter
PARAMINT2 is an integer parameter
PARAMDATE3 is a Datetime parameter

If I run the query with the next values, no record is inserted
ParamByName( 'PARAMSTR1' ).Value := '' <- empty string
ParamByName( 'PARAMINT2' ).value  := 1
ParamByName( 'PARAMDATE3' ).Value := now

If I run the query with the next values, record is inserted
ParamByName( 'PARAMSTR1' ).Value := ' ' <- Now there is an space
ParamByName( 'PARAMINT2' ).value  := 1
ParamByName( 'PARAMDATE3' ).Value := now

If I run the query with the next values, record is inserted
ParamByName( 'PARAMSTR1' ).Value := 'x'
ParamByName( 'PARAMINT2' ).value  := 1
ParamByName( 'PARAMDATE3' ).Value := now

If I change the query and remove the string parameter, allways run fine

insert into TableA( FIELD1, FIELD2, FIELD4, FIELD5 )
select FIELD1, FIELD2,  :PARAMINT2, :PARAMDATE3
from TableB
where PKTABLEB = 1

ParamByName( 'PARAMINT2' ).value  := 1
ParamByName( 'PARAMDATE3' ).Value := now

Code: Select all

CREATE TABLE PET_PRUEBA1 (
    IDPETICIONPRUEBA Number(19) DEFAULT 0 NOT NULL,
    RESULTADO VarChar2(127 Char),
    CONSTRAINT PK_PET_PRUEBA1 PRIMARY KEY (IDPETICIONPRUEBA)
                         );

CREATE TABLE Pet_Prueba_resultado_Registro1 (
    IDPETICIONPRUEBA Number(19) DEFAULT 0 NOT NULL,
    RESULTADO VarChar2(127 Char),
    FECHA Timestamp(4) DEFAULT CURRENT_TIMESTAMP NOT NULL,
    IDUSUARIO Number(5) DEFAULT 0 NOT NULL,
    COMENTARIO VarChar2(512 Char)
                                            );

Code: Select all

Insert Into PET_PRUEBA1 Values (4, 'RESULTADO Values');

Code: Select all

 
...
 UniConnection.Connect;
  UniSQL.SQL.Text := 'Insert Into Pet_Prueba_resultado_Registro1 (IDPETICIONPRUEBA, RESULTADO, FECHA, IDUSUARIO, COMENTARIO)' +
                     '  Select pp.IDPETICIONPRUEBA, pp.RESULTADO, :FECHA, :IDUSUARIO, :COMENTARIO' +
                     '    From PET_PRUEBA1 pp' +
                     '   Where pp.IDPETICIONPRUEBA = :IDPETICIONPRUEBA';
  UniSQL.ParamByName('FECHA').Value := Now;
  UniSQL.ParamByName('IDUSUARIO').Value := 245;
  UniSQL.ParamByName('COMENTARIO').Value := '';
  UniSQL.ParamByName('IDPETICIONPRUEBA').Value := 4;
  UniSQL.Execute;
...

Code: Select all

TForm1 = class(TForm)
    UniConnection1: TUniConnection;
    UniQuery1: TUniQuery;
    UniQuery2: TUniQuery;
    coButton1: TcoButton;
    procedure coButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure TForm1.coButton1Click(Sender: TObject);
var lRowsInserted, lRowsAffected: integer;
begin
   UniQuery1.SQL.Text := 'delete from PET_PRUEBA where IDPETICIONPRUEBA = 9000000000 ';
   UniQuery1.Execute;
   UniQuery1.Close;
   UniQuery1.SQL.Text := 'INSERT INTO PET_PRUEBA (IDPETICIONPRUEBA, IDPETICION, NPRUEBA, FECHA, IDPRUEBA, IDPRUEBA_LISTA, IDPRUEBA_PERFIL, IDPACIENTE, TIPO, ' +
                                                 'NIVEL, PREFIJO, NRESULTADO, RESULTADO, TRESULTADO, FECHA_RESULTADO, IDTIPORESULTADO, ' +
                                                 'IDVALIDACION, FECHA_VALIDACION, IDUSUARIO_VALIDA, PATOLOGIA, COMENTARIO, DELTA_CHECK, ' +
                                                 'MARGEN_ULTIMO, IDEQUIPO, IDCENTROPROCESO, IDPRUEBAREF, ORDEN_IMPRESION, FECHA_INFORME, ' +
                                                 'IDUSUARIO_RESULTADO, FECHA_ALTA, NREPETICION, IDPRUEBAMU, FECHA_PROCESO, NPRUEBA_LISTA, ' +
                                                 'NLISTA, REGISTRO_PROCESO, IDESTADORESULTADO, REGISTRO_PROTOCOLO, IDAREA, IDPETICIONMUESTRA, ' +
                                                 'IDPRUINTERPRETACION, IMPRIMIR, IDPETICION_ORIGEN, NPRUEBA_ORIGEN, NDOCUMENTO, IDVALIDACION_TECNICA, ' +
                                                 'IDUSUARIO_VALIDACION_TECNICA, FECHA_VALIDACION_TECNICA, IDPRUINTERPRETACIONRES, TRESULTADOE, ' +
                                                 'IDINSTRUMENTO, NRESULTADO_CORREGIDO, IDSECCION, IDPETICIONPLATO, FECHA_ENTREGA, PARAMETROS, ' +
                                                 'NALARMA, IDMETODO, IDUNIDAD, IDDOCUMENTO, FIRMA_DIGITAL, IDTIPOMUESTRAN, IDESTADOEXPORTACION, ' +
                                                 'IDTUBO, FIRMA_DIGITAL_FECHA ) ' +
                         'VALUES (9000000000, 16390, 2, TO_TIMESTAMP(''04/26/2016 00:00:00.000'', ''MM/DD/YYYY HH24:MI:SS.FF3''), ' +
                                  '10001, 11483, NULL, 8455, ''N'', 1, NULL, 67.4, ''067,4'', NULL, TO_TIMESTAMP(''04/25/2016 17:05:00.000'', ''MM/DD/YYYY HH24:MI:SS.FF3''), ' +
                                  '1, 4, TO_TIMESTAMP(''05/20/2016 11:56:05.000'', ''MM/DD/YYYY HH24:MI:SS.FF3''), ' +
                                  '0, 0, NULL, 0, 0, 26, 0, 10, 1200104, NULL, -2, ' +
                                  'TO_TIMESTAMP(''04/26/2016 09:57:31.000'', ''MM/DD/YYYY HH24:MI:SS.FF3''), ' +
                                  '1, 282, NULL, NULL, 0, 0, 10, 0, 10, NULL, NULL, 1, NULL, NULL, 0, 0, NULL, ' +
                                  'NULL, NULL, NULL, 26, NULL, 110, NULL, ' +
                                  'TO_TIMESTAMP(''04/27/2016 09:57:59.000'', ''MM/DD/YYYY HH24:MI:SS.FF3''), 0, 0, 0, 5, ' +
                                  'NULL, NULL, 20, NULL, 33, NULL) ';
   UniQuery1.Execute;
   Uniquery1.Close;

   UniQuery1.SQL.Text := 'select * from PET_PRUEBA where IDPETICIONPRUEBA = 9000000000 ';
   UniQuery1.Execute;
   lRowsInserted := UniQuery1.RecordCount;
   UniQuery1.Close;

   UniQuery2.SQL.Text := 'insert into Pet_Prueba_resultado_Registro( IDPETICIONPRUEBA, TIPO, IDTIPORESULTADO, FECHA_RESULTADO, IDUSUARIO_RESULTADO, ' +
                                                                                                    'PREFIJO, NRESULTADO, RESULTADO, TRESULTADO, ' +
                                                                                                    'FECHA_VALIDACION, IDUSUARIO_VALIDA, IDVALIDACION, ' +
                                                                                                    'IDESTADORESULTADO, IDINSTRUMENTO, FECHA_INFORME, FIRMA_DIGITAL, FECHA_PROCESO, FIRMA_DIGITAL_FECHA, ' +
                                                                                                    'COMENTARIO, IDUSUARIO, FECHA ) ' +
                                                        'select IDPETICIONPRUEBA, TIPO, IDTIPORESULTADO, FECHA_RESULTADO, IDUSUARIO_RESULTADO, ' +
                                                               'PREFIJO, NRESULTADO, RESULTADO, TRESULTADO, ' +
                                                               'FECHA_VALIDACION, IDUSUARIO_VALIDA, IDVALIDACION, ' +
                                                               'IDESTADORESULTADO, IDINSTRUMENTO, FECHA_INFORME, FIRMA_DIGITAL, FECHA_PROCESO, FIRMA_DIGITAL_FECHA, ' +
                                                               ':COMENTARIO, :IDUSUARIO, :FECHA ' +
                                                        'from Pet_Prueba pp ' +
                                                        'where pp.IDPETICIONPRUEBA = :IDPETICIONPRUEBA';
   UniQuery2.ParamByName('FECHA').Value := Now;
   UniQuery2.ParamByName('IDUSUARIO').Value := 245;
   UniQuery2.ParamByName('COMENTARIO').Value := '';
   UniQuery2.ParamByName('IDPETICIONPRUEBA').Value := 9000000000;
   UniQuery2.Execute;
   lRowsAffected := UniQuery2.RowsAffected;

   coButton1.Caption := Format( 'Executes rows inserted %d affected %d ', [lRowsInserted, lRowsAffected ] );
end;