uniDAC und SCOPE_IDENTITY

[ASKtec]

Hallo,

ich spiele seit gestern mit der Devart-Komponente uniDAC rum und habe da so ein leichtes Einsteigerproblem (so hoffe ich zumindest... )

Ich habe eine Testanwendung mit folgendem Code um einen Datensatz in eine MS-SQL-Tabelle einzufügen:

Delphi-Quellcode:

 UniQuery1.Active := false;
  UniQuery1.SQL.Clear;
  UniQuery1.SQL.Add('INSERT INTO test (name) VALUES (:name)');
  UniQuery1.Params.ParamByName('name').Value := Edit1.Text;
   UniQuery1.SQL.Add('SET :id = SCOPE_IDENTITY()');
   UniQuery1.Params.ParamByName('id').DataType := ftInteger;
   UniQuery1.Params.ParamByName('id').ParamType := ptInputOutput;
  UniQuery1.Execute;

  Label1.Caption := UniQuery1.ParamByName('id').AsString;

Dieser funktioniert wunderbar und mein Label wird auch schön mit der Datenbank-ID aktuallisiert.

Nun habe ich das ganze in eine anderes Projekt versucht zu implementieren. Im Gegensatz zu meinem Testprogramm habe ich dabei 50 Parameter im SQL-Statement. Hier bekomme ich einen Fehler wenn ich die folgenden Zeilen hinzufüge. Ohne diese Zeilen funktioniert der Code ohne Probleme:

Delphi-Quellcode:

   UniQuery1.SQL.Add('SET :id = SCOPE_IDENTITY()');
   UniQuery1.Params.ParamByName('id').DataType := ftInteger;
   UniQuery1.Params.ParamByName('id').ParamType := ptInputOutput;

Die Fehlermeldung lautet:

Parameter[51]:id - invalid ParamType (Status = 1h).

Ich habe dann bei Devart und hier im Forum nach einer Lösung gesucht. Öfters tauchte der Hinweis auf, die folgende Zeile in das "BeforeUpdateExecute"-Ereignis der Query-Komponente einzufügen:

UniQuery1.Params.ParamByName('id').ParamType := ptInputOutput;

Danach bekomme ich keine Exception mehr, jedoch bleibt der Wert des Parameters "id" immer auf 0 ....

Ich habe mit der Testapplikation auch schon die Datenbank des anderen Programmes angesprochen und das funktionierte auch... Irgendwie verstehe ich gerade nur noch Bahnhof...

Wer weiß, was ich hier falsch mache und kann mir ein wenig helfen?

Vielen Dank im voraus.

Andreas