FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Store Procedure en Delphi
Hola a todos
Os pongo un codigo a ver si alguien me echa un cable create procedure NuevoCodigoArt(familia integer, CodVie Char(8)) returns (CodArt integer) as declare variable total Double Precision; declare variable aux Integer; begin if (codVie<>'') then DELETE FROM NUEVOCODART WHERE Codigo=:CodVie; aux=CAST (familia AS char(3)) || '0001'; select Count(*) from Articulos a, NuevoCodArt n where a.Codigo=:aux or n.Codigo=:aux into :total; while (total<>0) do begin aux=aux+1; select Count(*) from Articulos a, NuevoCodArt n where a.codigo=:aux or n.Codigo=:aux into :total; end Insert INTO NUEVOCODART Values(:aux); CodArt=:aux; end ; Este codigo tiene que buscar el primer codigo libre de la bd de la central. Por IBConcole me devuelve un codigo correcto pero por del Delphi con un store procedure de IBX siempre me devuelve 0 Gracias |
#2
|
||||
|
||||
has probado llamandolo desde tu programa con una query en vez de un Tstoreprocedure??
algo asi como select * from NuevoCodigoArt(...) Deberiamos de hacer una campaña en este foro que se llamase "Stop using IBX!!!!! it's for your own safety.." no creen?
__________________
"Lo mejor de no saber hacer nada es que se tiene mucho tiempo libre."
|
#3
|
|||
|
|||
pues va igual de mal con select Ya no se que hacer...
|
#4
|
||||
|
||||
OFFTOPIC (aunque puede que no....)
Cita:
¿Entonces para atacar Firebird qué componentes uso que sean gratis? Saludos |
#5
|
||||
|
||||
Creo que lo que dices de las 5 licencias es que el servidor de interbase 6, que viene con delphi 7 solo permite 5 conexiones simultaneas, pero si usas Firebird el problema esta resuelto. Es decir que no tiene nada que ver con los componentes. Respecto al procedimiento almacenado, parece que hace bastantes operaciones, quizas lo puedas aligerar un poco o resolverlo mediante programacion. Igual el servior no es muy potente y por eso se toma su tiempo.
Un saludo y suerte.
__________________
Intentando hacer algo con Delphi 7 y Firebird 1.5 |
|
|
|