Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 31-01-2020
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Ubicación: Toledo - España
Posts: 1.418
Poder: 21
Angel.Matilla Va por buen camino
No lo entiendo. Es como si al ejecutarse desde Builder Firebird desconociera que significan los dos puntos que preceden a los nombres de las variables. He probado borrando los otros dos procedimientos que hay definidos en la BB.DD. y al lanzar el programa, que lo primero que hace es validar todos los elementos de la misma, ahora da el mismo error en cualquiera de ellos. ¿Podría tener que ver con el motor o con la conexión?
Responder Con Cita
  #2  
Antiguo 31-01-2020
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.671
Poder: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
Ya digo, que yo sepa siempre ha sido necesario. De todas formas, no te compliques, lo pones y solucionado.
Responder Con Cita
  #3  
Antiguo 31-01-2020
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Ubicación: Toledo - España
Posts: 1.418
Poder: 21
Angel.Matilla Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
Ya digo, que yo sepa siempre ha sido necesario. De todas formas, no te compliques, lo pones y solucionado.
He probado a ponerlo en el código
Código SQL [-]
SET TERM ^ ;
CREATE OR ALTER PROCEDURE SP_PROCESO_FILAS (iTabla VARCHAR(50), iColumna VARCHAR(25))
RETURNS (pProceso INTEGER, pFila INTEGER, pCodigo INTEGER, pVotos INTEGER, pTotal INTEGER)
AS
DECLARE VARIABLE OldProc INTEGER;
BEGIN
    OldProc = -1;
    pFila = 0;
    FOR EXECUTE STATEMENT
    'SELECT Proceso, Codigo, ' || iColumna || ', Total FROM ' || iTabla
    INTO :pProceso, :pCodigo, :pVotos, :pTotal
    DO
    BEGIN
        IF (OldProc <> pProceso) THEN
        BEGIN
            pFila = 0;
            OldProc = pProceso;
        END
        pFila = pFila + 1;
        SUSPEND;
    END
END
SET TERM ; ^
pero:
Cita:
Dynamic SQL Error
SQL error code = -104
Token unknown - line 1, column 5
TERM
Dado que desde SQL Manager me deja, en la máquina que lo usan lo crearé a mano hasta que encuentre por qué falla. :mad:
Responder Con Cita
  #4  
Antiguo 31-01-2020
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.671
Poder: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
Está mal:
Código SQL [-]

    SUSPEND;
  END
END ^    //  no has puesto el terminador de línea


SET TERM ; ^
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Definir un TQRChart Angel.Matilla Impresión 0 13-01-2020 13:53:18
Definir un TChart Angel.Matilla C++ Builder 11 08-11-2019 09:36:00
Error al definir una FOREIGN KEY Angel.Matilla Firebird e Interbase 21 12-04-2018 09:56:46
Error al definir un FK en Firebird 2.5 Angel.Matilla Firebird e Interbase 10 29-11-2016 13:13:26
Definir impresora Carliviris Varios 6 11-01-2008 03:12:17


La franja horaria es GMT +2. Ahora son las 04:49:08.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi