EXECUTE STATEMENT: ¿Qué estoy haciendo mal?

[Angel.Matilla]

Estoy tratando de importar datos entre dos BB.DD. diferentes. Parea ello me he definido un procedimiento de la siguiente forma:

Código SQL [-]
CREATE PROCEDURE Insert_Dis
(cTitulo VARCHAR(60), nRegistro INTEGER, cGenero VARCHAR(25), cProductor VARCHAR(50), cUbica VARCHAR(13), cInterpretes VARCHAR(50))
AS DECLARE VARIABLE cSql VARCHAR(255);
BEGIN
  cSql = 'SELECT Album, Registro, Genero, Discografica, Situacion, Interprete FROM Discos
          INTO cTitulo, nRegistro, cGenero, cProductor, cUbica, cInterpretes';
  EXECUTE STATEMENT
    cSql
  ON EXTERNAL 'C:\Ocio_ant\Tablas\Ocio.gdb'
  AS USER 'SYSDBA' PASSWORD 'masterkey';
END;

El procedimiento se crea sin problema pero al ejecutarlo me da este error:
Execute statement error at isc_dsql_prepare :
Execute statement error at isc_dsql_prepare :

335544569 : Dynamic SQL Error
335544436 : SQL error code = -104
335544634 : Token unknown - line 2, column 11
335544382 : INTO
Statement : SELECT Album, Registro, Genero, Discografica, Situacion, Interprete FROM Discos
INTO cTitulo, nRegistro, cGenero, cProductor, cUbica, cInterpretes
Data source : Firebird::C:\Ocio_ant\Tablas\Ocio.gdb.
At procedure 'INSERT_DIS'.

SQL Code: -901
IB Error Number: 335544926

La línea 2, columna 11 es el INTO. ¿Dónde me estoy equivocando?

[cloayza]

Estimado ha varias puntos a cambiar...

Código SQL [-]
CREATE PROCEDURE Insert_Dis
   (cTitulo VARCHAR(60), nRegistro INTEGER, cGenero VARCHAR(25), cProductor VARCHAR(50), cUbica VARCHAR(13), cInterpretes VARCHAR(50))
AS DECLARE VARIABLE cSql VARCHAR(255);
BEGIN
  --cSql = 'SELECT Album, Registro, Genero, Discografica, Situacion, Interprete FROM Discos
  --        INTO cTitulo, nRegistro, cGenero, cProductor, cUbica, cInterpretes';
  cSql = 'SELECT Album, Registro, Genero, Discografica, Situacion, Interprete FROM Discos';

  FOR EXECUTE STATEMENT cSql
      ON EXTERNAL 'C:\Ocio_ant\Tablas\Ocio.gdb'
      AS USER 'SYSDBA' PASSWORD 'masterkey'
      INTO :cTitulo, :nRegistro, :cGenero, :cProductor, :cUbica, :cInterpretes
  DO
  BEGIN
      suspend;
  END
END;

Saludos cordiales

[Angel.Matilla]

Empezado por cloayza

Estimado ha varias puntos a cambiar...
Saludos cordiales

¡Perfecto! Muchas gracias

[Angel.Matilla]

Empezado por cloayza

Estimado ha varias puntos a cambiar...
[...]
Saludos cordiales

Efectivamente funciona... Si lo ejecuto desde SQL Manager no hay ningún problema pero si lo ejecuto desde la aplicación me da este error


en esta línea

INTO :cTitulo, :nRegistro, :cGenero, :cProductor, :cUbica, :cInterpretes

la columna 14 es el espacio inmediato al INTO.

[cloayza]

Claro...Debes cambiar esta línea...

Código SQL [-]
CREATE PROCEDURE Insert_Dis(
   RETURNS cTitulo VARCHAR(60), nRegistro INTEGER, cGenero VARCHAR(25), cProductor VARCHAR(50), cUbica VARCHAR(13), cInterpretes VARCHAR(50)
)

Saludos cordiales

[Angel.Matilla]

Lo tengo puesto así, con el RETURNS.

Código SQL [-]
Query->SQL->Text = "CREATE PROCEDURE Insert_Ficha";
Query->SQL->Add("RETURNS (cTitulo VARCHAR(60), nRegistro INTEGER, cGenero VARCHAR(25), cProductor VARCHAR(50), cUbica VARCHAR(13), cInterpretes VARCHAR(50))");
Query->SQL->Add("AS");
Query->SQL->Add("DECLARE VARIABLE cSql VARCHAR(100);");
Query->SQL->Add("BEGIN");
Query->SQL->Add("  cSql = 'SELECT Album, Registro, Genero, Discografica, Situacion, Interprete FROM Discos';");
Query->SQL->Add("    FOR EXECUTE STATEMENT cSql");
Query->SQL->Add("        ON EXTERNAL 'C:\Ocio_ant\Tablas\Ocio.gdb'");
Query->SQL->Add("        AS USER 'SYSDBA' PASSWORD 'masterkey'");
Query->SQL->Add("        INTO :cTitulo, :nRegistro, :cGenero, :cProductor, :cUbica, :cInterpretes");
Query->SQL->Add("    DO");
Query->SQL->Add("    BEGIN");
Query->SQL->Add("      SUSPEND;");
Query->SQL->Add("    END");
Query->SQL->Add("END;");
Query->ExecSQL();
Query->Transaction->Commit();

No obstante lo que me llama la atención es que usando el mismo código con SQL Manager si funciona y desde el programa no.

[Casimiro Notevi]

¿No te confunde eso en lugar de algo como esto?:

Código Delphi [-]
Query->SQL->Text = "CREATE PROCEDURE Insert_Ficha "+
                   "RETURNS (cTitulo VARCHAR(60), nRegistro INTEGER, cGenero VARCHAR(25), cProductor VARCHAR(50), cUbica VARCHAR(13), cInterpretes VARCHAR(50)) "+
                   "AS "+
                   "DECLARE VARIABLE cSql VARCHAR(100);" +
                   "BEGIN "+
                   "    cSql = 'SELECT Album, Registro, Genero, Discografica, Situacion, Interprete FROM Discos'; "+
                   "     FOR EXECUTE STATEMENT cSql " +;
                   "         ON EXTERNAL 'C:\Ocio_ant\Tablas\Ocio.gdb' "+
                   "         AS USER 'SYSDBA' PASSWORD 'masterkey' "+
                   "         INTO :cTitulo, :nRegistro, :cGenero, :cProductor, :cUbica, :cInterpretes " +
                   "     DO "+
                   "     BEGIN "+
                   "       SUSPEND; "+
                   "     END "+
                   "END;";