Einzelnen Beitrag anzeigen

alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#1

Firebird: DDL-Skript (CREATE PROCEDURE) über Delphi, wie?

  Alt 12. Mär 2009, 11:07
Datenbank: Firebird • Version: 2.1 • Zugriff über: SQLExpress oder IB
Hi,

Ich muss via Delphi eine Stored Procedure ändern. Ich verwende IB und SQLExpress-Komponenten.
Das Skript sieht so aus:
SQL-Code:
SET TERM ^ ;

CREATE OR ALTER PROCEDURE GETID (Name varchar(20))
returns (id integer)
as
begin
  select deID from Descriptions where deName :Name into :ID ;
  if (id is null) then begin
    id = GEN_ID(GEN_Descriptions,1);
    insert into Descriptions values(:id, :Name ,CURRENT_TIMESTAMP);
  end
  suspend;
end^

SET TERM ; ^
Das Skript will ich so ausführen:
SQLConnection.ExecuteDirect(sScriptCode); Klappt nicht, es erscheint der Fehler:
Zitat:
Token unknown - line 1, column 5
TERM.
Mit einem TSQLCommand geht's auch nicht. Was muss ich ändern, damit das geht?
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat