create.execsql error -104 Token unknown

[Manollo]

Zitat von nahpets:

Was steht denn hier konkret vor dem Befüllen der Parameter in procedure_create.SQL.Text?

....
Der Fehler kann wohl auch auftreten, wenn ein SQL ungültige Zeichen enthält.

Lässt sich die Prozedur mit reinen Datenbankmitteln problemlos erstellen? Wenn nein, bitte erst dort die Fehler beheben und dann via Delphi erneut probieren.

Hallo,

ja, wie oben beschrieben kann ich das Erzeugen der Prozedur im SQL Manager ohne Probleme ausführen. Sobald ich aber in Delphi die TIBQuery erzeuge und mit dem SQL befülle bekomme ich die besagte Fehlermeldung.

[nahpets]

Bitte Quelltext dazu:

Zitat von nahpets:

Was steht denn hier konkret vor dem Befüllen der Parameter in procedure_create.SQL.Text?

Nicht nur den der Prozedur, sondern den, an der SQL.Text in Delphi befüllt wird.

[hoika]

Hallo,
von welcher DB-Komponentensammlung reden wir hier eigentlich?
IBDAC hat dafür z.B. TIBCScript.

TIBQuery -> TIBScript ?



Zeig doch noch mal den ganzen Code.
Laut dem hier
http://stackoverflow.com/questions/3...om-delphi-code
müsste ParamCheck:=False vollkommen ausreichen.

Das hier ist falsch, es geht hier nicht um parametrisierte Queries.

Delphi-Quellcode:

procedure TfrmMain.IBDatabaseMKPAfterConnect(Sender: TObject);
begin
  procedure_create.ParamByName('MNR').AsString := ':MNR';
  procedure_create.ParamByName('JID').AsString := ':JID';
  procedure_create.ParamByName('DID').AsString := ':DID';
  procedure_create.ExecSQL;
end;

In meinem Link weiter oben steht noch was zu Set Term .
Les dir das noch mal durch, vielleicht ist das Semikolon ja das Problem.

[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');
...