Stored Procedure updaten

[ibp]

Hi,
hier mal wieder Fragen an die allwissende Gemeinde.

Ich versuche mittels einem Query eine SP aus dem Programm heraus zu aktualisieren.

Wenn die SP neue Variablen enthält, dann schlägt leider die Aktualisierung fehl.

Code:

query.sql.add('ALTER PROCEDURE');
query.sql.add('MYPROCEDURE (');
query.sql.add('    MYINPUTSTR varchar(32),');
query.sql.add('    MYINPUTINT integer)');
query.sql.add('returns (');
query.sql.add('    OUTPUT smallint)');
query.sql.add('as');
query.sql.add('declare variable MYVARINTERN integer;');
query.sql.add('BEGIN');
...
query.sql.add('    SUSPEND;');
query.sql.add('END');

query.ExecSQL;

SP löschen und neu erstellen lassen ist leider keine Option.

Das komische ist, wenn ich den gleichen Text in eine Abfrage von ibexpert packe, dann funktioniert der Update.


Hat jemand eine Idee warum das so ist und wie ich das abstellen kann?

vg ibp

[p80286]

Code:

create or replace

ist keine Alternative?

Gruß
K-H

[shmia]

Zitat von ibp:

Wenn die SP neue Variablen enthält, dann schlägt leider die Aktualisierung fehl.

Mit welcher Fehlermeldung?

http://www.chiark.greenend.org.uk/~s...m/bugs-de.html

[ibp]

Zitat von p80286:

Code:

create or replace

ist keine Alternative?

Create nein, da die SP schon vorhanden. REPLACE PROCEDURE gibt es bei interbase nicht.

Zitat von shmia:

Zitat von ibp:

Wenn die SP neue Variablen enthält, dann schlägt leider die Aktualisierung fehl.

Mit welcher Fehlermeldung?

http://www.chiark.greenend.org.uk/~s...m/bugs-de.html

"Allgemeiner SQL-Fehler, Token unknown -line xx, char yy"

unter line xx char yy steht innerhalb der Prozedur der Variablename, die zusätzlich neu definiert wurde.

Die grundsätzliche SP ist ja ok und läuft.

[shmia]

Ändere mal deinen Code so ab:

Delphi-Quellcode:

  query.sql.add('ALTER PROCEDURE');
  query.sql.add('MYPROCEDURE (');
  ...
  query.sql.add('   SUSPEND;');
  query.sql.add('END');
  Assert(query.ParamCount=0, 'Parameter nicht erlaubt');
try
  query.ExecSQL;
except
  on E:Exception do
  begin
    E.Message := E.Message +#13#10+query.SQL.Text;
    raise;
end;

Nur um 150%ig sicher zu gehen, dass dein SQL-Kommando in Ordnung ist und du nicht die berühmt-berüchtigten Tomaten auf den Augen hast.

PS:
wenn das Alles nicht hilft, dann würde ich mal versuchen, den SQL-Befehl direkt
über die Database-Komponente abzuschicken:

Delphi-Quellcode:

sql:string;

sql := 'ALTER PROCEDURE'#13#10+
  'MYPROCEDURE ('#13#10+
...
  ;
  Database1.Execute(sql);

[ibp]

Zitat von shmia:

Ändere mal deinen Code so ab:

Delphi-Quellcode:

  query.sql.add('ALTER PROCEDURE');
  query.sql.add('MYPROCEDURE (');
  ...
  query.sql.add('   SUSPEND;');
  query.sql.add('END');
  Assert(query.ParamCount=0, 'Parameter nicht erlaubt');
try
  query.ExecSQL;
except
  on E:Exception do
  begin
    E.Message := E.Message +#13#10+query.SQL.Text;
    raise;
end;

Nur um 150%ig sicher zu gehen, dass dein SQL-Kommando in Ordnung ist und du nicht die berühmt-berüchtigten Tomaten auf den Augen hast.

jupp so mache ich das ja auch wollte hier nur nicht allen Ballast mit posten. Ich habe die SP vor und zurück kontrolliert, mit der ist alles ok.

Zitat von shmia:

PS:
wenn das Alles nicht hilft, dann würde ich mal versuchen, den SQL-Befehl direkt
über die Database-Komponente abzuschicken:

Delphi-Quellcode:

sql:string;

sql := 'ALTER PROCEDURE'#13#10+
  'MYPROCEDURE ('#13#10+
...
  ;
  Database1.Execute(sql);

ok, das werde ich mal versuchen....

[Lemmy]

Hi,

was du auch versuchen kannst: über query.sql.SaveToFile() das Statement speichern und in IBExpert ausführen. Wenn da doch ein Tippfehler drin ist, findest DU den so am schnellsten. Anschließend halt nicht vergessen das SaveToFile wieder auszubauen...

Grüße

[ibp]

Zitat von Lemmy:

Hi,

was du auch versuchen kannst: über query.sql.SaveToFile() das Statement speichern und in IBExpert ausführen. Wenn da doch ein Tippfehler drin ist, findest DU den so am schnellsten. Anschließend halt nicht vergessen das SaveToFile wieder auszubauen...

Grüße

Danke, habe ich aber schon gemacht, daher kann ich mir sehr sicher sein, dass die SP OK ist!

[mjustin]

Nur eine Idee:

wenn man mit IBExpert ein Matadata Extract durchführt, kann man bei Stored Procedures gut sehen, dass zuerst der Statement Delimiter von ';' auf '^' umgesetzt wird, damit man im alter procedure statement das Semikolon als Anweisungstrenner verwenden kann. Und dann muss am Ende des Prozedurtextes das ^ stehen, also

Delphi-Quellcode:

alter procedure x
begin
  suspend;
end^  <<---

[ibp]

komisch anscheinend liegt es nicht am update der variablen der SP.

Er meckert immer die erste Benutzung der Variablen an, aber nicht die Input- oder Output-Variablen.