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 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
  #2  
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
  #3  
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 00:45:48.


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