EXECUTE STATEMENT: ¿Qué estoy haciendo mal?
 

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 :
La línea 2, columna 11 es el INTO. ¿Dónde me estoy equivocando?

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

¡Perfecto! Muchas gracias

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
la columna 14 es el espacio inmediato al INTO.

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

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.

¿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;";

La verdad es que según me pilla lo hago de las dos maneras; ya me he acostumbrado.