Hallo zusammen,
nach stundenlangem erfolglosem Probieren und Googeln frage ich mal hier ob jemand eine Lösung kennt.
Der folgende Code funktioniert mit IBExpert problemlos (Hinweis: die Procedure macht derzeit nichts wirklich sinnvolles, ich möchte aber für meine Applikation zukünftig auch Updates der Datenbank per Script ausliefern können und versuche, diese Möglichkeoit zu implementieren. Die Procedure ist also nur ein Test, nichtsdestotrotz sollte sie funktionieren...):
Code:
SET TERM ^ ;
CREATE OR ALTER PROCEDURE TMP_UPDATE_DB
AS
Declare v_version integer;
BEGIN
select DATABASE_VERSION from SETTINGS where ID=1 into v_version;
if (not exists(
select 1 from RDB$RELATION_FIELDS rf
where rf.RDB$RELATION_NAME = 'TMP_TEST' and rf.RDB$FIELD_NAME = 'SPALTE5')
) then execute statement 'ALTER TABLE TMP_TEST ADD SPALTE5 VARCHAR(200)';
if (:v_version < 2) then
execute statement 'ALTER TABLE TMP_TEST ADD SPALTE6 VARCHAR(200)';
if (:v_version > 3) then
execute statement 'ALTER TABLE TMP_TEST ADD SPALTE7 VARCHAR(200)';
END ^
SET TERM ; ^
Mit der Komponente TZSQLProzessort der ZEOS-Lib bekomme ich aber die Fehlermeldung
Zitat:
SQL Error: unsuccessful metadata update MODIFY RDB$PROCEDURES failed. Error Code: -607. This operation is not defined for system tables. The
SQL: CREATE OR ALTER PROCEDURE TMP_UPDATE_DB
AS
Declare v_version integer;
BEGIN
select DATABASE_VERSION from SETTINGS where ID=1 into v_version;
if (not exists(
select 1 from RDB$RELATION_FIELDS rf
where rf.RDB$RELATION_NAME = 'TMP_TEST' and rf.RDB$FIELD_NAME = 'SPALTE5')
) then execute statement 'ALTER TABLE TMP_TEST ADD SPALTE5 VARCHAR(200)';
if (:v_version < 2) then
execute statement 'ALTER TABLE TMP_TEST ADD SPALTE6 VARCHAR(200)';
if (:v_version > 3) then
execute statement 'ALTER TABLE TMP_TEST ADD SPALTE7 VARCHAR(200)';
END
;
Die SET TERM Zeilen haz TZSQLProcessor ausgeschnitten und nur das eigentliche CREATE OR ALTER PROCEDURE ausgeführt - evtl. ist das die Ursache??
Der Aufruf sieht so aus:
Delphi-Quellcode:
ZSQLProcessor1.Delimiter:='^';
ZSQLProcessor1.DelimiterType:= dtSetTerm;
ZSQLProcessor1.LoadFromFile(ExtractFilePath(ParamStr(0))+'\SQL_UPDATE.sql');
ZSQLProcessor1.CleanupStatements; // Kommentare entfernen
ZSQLProcessor1.Parse;
if(ZSQLProcessor1.StatementCount>0) then
begin
ZConnection1.StartTransaction;
try
ZSQLProcessor1.Execute;
ZConnection1.Commit;
except
ZConnection1.Rollback;
end;
end;
Ich habe bereits andere Delimiter versucht, mit ";" z.B wird das Zusammenbauen der zu übergebenden Scripts gleich beim ersten ; abgebrochen.
Irgendeine Kleinigkeit übersehe ich da und finde es nicht
Hat jemand einen Tipp?
Braucht Ihr weitere Infos?
Danke und Grüße,
Siggi