create.execsql error -104 Token unknown

[ibp]

das Problem sind die ''

Wenn du eine SP erzeugen willst, dann pramcheck=false und für alle '' am besten mit QuotedStr arbeiten...

Delphi-Quellcode:

  query.sql.add('CREATE PROCEDURE XYprod(');
  query.sql.add('    DID INTEGER,');
  query.sql.add('    JID INTEGER,');
  query.sql.add('    MNR VARCHAR(20))');
  query.sql.add('AS');
  query.sql.add('begin');
  query.sql.add('  For select trim(Journal.XY), journal.jid from journal where DID is null and journal.XY <>'+quotedstr('')+' INTO :MNR, :JID do');
  query.sql.add('  begin');
  query.sql.add('     SELECT first 1 DID from Daten where TRIM(Daten.XY) = :MNR into :DID;');
  query.sql.add('     if (:did > 1) then');
  query.sql.add('         UPDATE Journal SET DID = :DID where journal.XY = :mnr;');
  query.sql.add('  end');
  query.sql.add('  suspend;');
  query.sql.add('end');
...