Creacion de un Stored Procedure

[Casimiro Noteví]

¿Pero qué parámetros le pasas y cómo?

[[duilioisola]]

Parece un problema con los componentes de base de datos Delphi.
Yo creo que no cargas los parámetros antes de llamar a ExecProc.
No se qué componentes utilizas pero debería ser algo así:

Código Delphi [-]
with F_ModulDades.Actualitza_RFEC
do
begin
  Close;
  Params.ByName['LLICENCIA'].AsString := 'A123';
  Params.ByName['NOM'].AsString := 'JUAN';
  Params.ByName['COGNOM1'].AsString := 'PEREZ';
  Params.ByName['COGNOM2'].AsString := 'GOMEZ';
  Params.ByName['CODIUCI'].AsString := 'C1234';
  ExecProc;
end;

[jafera]

Utilizo los componentes IBX.

No se, igual estoy equivocado pero, no se realiza el proceso directamente en el Firebird?

Porque sino, pasarle los parametros desde delphi si solo es un registro ok pero si son mas de 30.000 registros a actualizar......

Gracias

[guillotmarc]

Hola Josep.

Es que has definido las variables de Licencia, Nombre, Apellidos, ... como parámetros de entrada. Por eso esta esperando que se los pases. En lugar de ello, defínelas solo como variables.

NOTA: También he eliminado el SUSPEND, puesto que creí que las variables eran de salida y realmente querías obtener esos datos en Delphi.

Código SQL [-]
SET TERM ^ ;

CREATE PROCEDURE "ACTUALITZA_RFEC"
AS
declare variable dni varchar(12) character set iso8859_1;
declare variable llicencia varchar(14) character set iso8859_1;
declare variable nom varchar(20) character set iso8859_1;
declare variable cognom1 varchar(25) character set iso8859_1;
declare variable cognom2 varchar(25) character set iso8859_1;
declare variable codiuci varchar(12) character set iso8859_1;
begin
  FOR SELECT C11, C10, C5, C6, C7, C13   
      FROM CU0001E   
      INTO :DNI, :LLICENCIA, :NOM, :COGNOM1, :COGNOM2, :CODIUCI
  DO BEGIN

    UPDATE CU0001 SET 
           LLICENCIA=:LLICENCIA, 
           NOM=:NOM, 
           COGNOM1=:COGNOM1, 
           COGNOM2=:COGNOM2, 
           CODIUCI=:CODIUCI
    WHERE DNI = :DNI; 
  
    SUSPEND;

  END
end
^

SET TERM ; ^

Salut.

[jafera]

Gracias Marc, eres mi Angel de la Guardia.

En IBExpert funciona bien (el proceso se hace en segundos, cuando antes tardaba muchos..... minutos), pero desde Delphi me sigue lanzando el mismo error de parametro.

Josep

[Casimiro Noteví]

Repito:

Empezado por Casimiro Notevi

¿Pero qué parámetros le pasas y cómo?

[guillotmarc]

És un plaer.

Como dice Casimiro, el problema debe venir en como llamas al procedimiento almacenado en Delphi. Si nos enseñas ese código, probablemente te podamos ayudar.

Pero, como dice el dicho : para este viaje no hacen falta alforjas.

Lo que quieres hacer se consigue con esta simple consulta :

Código SQL [-]
UPDATE CU0001 SET 
       LLICENCIA = (SELECT C10 FROM CU0001E WHERE C11 = DNI), 
       NOM =       (SELECT C5  FROM CU0001E WHERE C11 = DNI), 
       COGNOM1 =   (SELECT C6  FROM CU0001E WHERE C11 = DNI), 
       COGNOM2 =   (SELECT C7  FROM CU0001E WHERE C11 = DNI),
       CODIUCI =   (SELECT C13 FROM CU0001E WHERE C11 = DNI)
WHERE EXISTS (SELECT * FROM CU0001E WHERE C11 = DNI)

NOTA: Asegúrate de tener en CU0001E un índice para C11, y verás como se ejecuta en un tiempo récord.

Salut.

[jafera]

Hola Casimiro.

Lo que hago es lo que esta puesto en el SP, nada más cargo los datos de una tabla y los copio en la otra.

No le paso ningun parametro más que el de DNI=: DNI

Igual olvido algun paso, no se, como he dicho antes es mi primera vez con los SP

Gracias

Josep

[guillotmarc]

Empezado por jafera

Hola Casimiro.

Lo que hago es lo que esta puesto en el SP, nada más cargo los datos de una tabla y los copio en la otra.

No le paso ningun parametro más que el de DNI=: DNI

Igual olvido algun paso, no se, como he dicho antes es mi primera vez con los SP

Gracias

Josep

Josep, elimina el componente en tu programa y vuelve a ponerlo (probablemente aún conserva la definición de parámetros que tenía inicialmente el SP).

No le tienes que pasar ningún parámetro, ni siquiera el DNI, puesto que hemos hecho el SP sin parámetros.

Si sigue fallando, copianos el código Delphi exacto que utilizas, para que le podamos echar una ojeada.

NOTA: En un mensaje anterior te he puesto una consulta que hará el mismo trabajo, ligeramente más rápido incluso, que el SP.

Salut.

[jafera]

De nuevo apurado.

Esta consulta update, se pone con un componente consulta normal?

Es que al hacer mencion a dos tablas....

Estoy ofuscado, creo que cierro y me voy a tomar un cocacola a ver si me despejo

Hasta luego

[Casimiro Noteví]

Cuando vuelvas, lee tranquilamente lo que te hemos contestado antes

[jafera]

Gracias Casimiro.

Lo he leido, releido y vuelto a leer.

El SP ya funciona, lo que no acabo de ver como (y seguro que es lo mas simple del mundo), es el tema de la consulta que lea de una tabla y actualize otra.

Lo que he utilizado como update siempre han sido parametros o actualizar un campo (UPDATE TABLA SET CAMPO = 'S'), pero, lo siento, mi nivel de sql no llega a más.

Yo soy vendedor de barcos y uso Delphi como un hobby no es mi "modus vivendi".

Cada vez que me he conectado a este foro siempre he recibido buenas respuestas, alguna vez incluso he contestado yo algun post porque era algo que habia utilizado y sabia como hacerlo.

Bueno pues no más "ladrillo" seguiré investigando y buscando mas informacion acerca de como hacer el update marcado.

Saludos mañadiles-sabadiles, aunque estoy en el currete a ver si engaño a alguien y le coloco el Queen Mary II.

Josep