![]() |
Datenbank: Sybase • Version: 11.9.2 • Zugriff über: BDE
Delphi XE2, BDE und TStoredProc
Hallo zusammen,
hat jemand eine Ahnung ob es unter Delphi XE2 Probleme mit der BDE TStoredProc Komponenten gibt? Grundsätzlich kann ich die BDE Komponenten ja noch benutzen (ja ich weis, die sind veraltet und sollten eigentlich nicht mehr benutzt werden) Ich habe allerdings eine Alt-Anwendung die ich noch supporten muss und BDE vorraussetzt. Grundsätzlich kann ich Queries absetzen und erhalte auch Ergebnisse. Mit Stored Procedures bekomme ich aber Ärger:
Code:
Bei ExecProc bekomme ich eine Exception, das die StoredProc einen NULL Wert in die Tabelle long_name einfügen will, was nicht erlaubt ist. Der Wert für den Parameter @long_name (der dem Wert für die Spalte long_name entspricht) ist aber übergeben worden und nicht NULL. Durch die OutputDebugString Meldungen sehe ich das die Parameter Werte den Eigenschaften des Objektes Value entsprechen.StoredProc := TStoredProc.create(nil); try // TDatabase zuweisen, geht über eine Factory... (Factory as TD5DAOFactoryBDE).Link(StoredProc); StoredProc.StoredProcName := 'pr_class_create'; // Parameter erstellen StoredProc.Params.CreateParam(ftinteger,'@parent_class_id',ptinput); StoredProc.Params.CreateParam(ftstring,'@code',ptinput); StoredProc.Params.CreateParam(ftstring,'@long_name',ptinput); StoredProc.Params.CreateParam(ftstring,'@short_name',ptinput); StoredProc.Params.CreateParam(ftstring,'@description',ptinput); StoredProc.Params.CreateParam(ftinteger,'@color',ptinput); StoredProc.Params.CreateParam(ftinteger,'@killdate_offset',ptinput); StoredProc.Params.CreateParam(ftstring,'@full_name',ptinput); StoredProc.Params.CreateParam(ftinteger,'@created_class_id',ptoutput); // ...und Parameter laden.... StoredProc.ParamByName('@code').asstring := Value.Code; StoredProc.ParamByName('@long_name').asstring := Value.LongName StoredProc.ParamByName('@short_name').asstring := Value.ShortName; StoredProc.ParamByName('@description').asstring := Value.Description StoredProc.ParamByName('@color').asinteger := Value.color; StoredProc.ParamByName('@killdate_offset').asinteger := Value.KilldateOffset; StoredProc.ParamByName('@full_name').asString := Value.Fullname;} StoredProc.ParamByName('@parent_class_id').asinteger := Value.Parent.oid; StoredProc.ParamByName('@code').asstring := Value.Code; StoredProc.Prepare; for i := 0 to StoredProc.Params.Count-1 do OutputdebugString(pWidechar('Parameter['+IntToStr(i)+']: '+ StoredProc.Params[i].Name+ ' Value='+ StoredProc.Params[i].AsString)); StoredProc.execProc; // hier soll noch ein bißchen was passieren.... finally StoredProc.free; end; Trace ich den Traffic mit Wireshark kann ich sehen, dass die Parameter und deren Werte auch übergeben werden, trotzdem gibt es diese Exception. Die Ursprüngliche Unit ist mit Delphi2007 erstellt worden und funktionierte dort auch. Das Projekt sollte jetzt nach kleinen Änderungen mit Delphi XE2 neu kompiliert werden, seitdem bekomme ich die Exceptions an dieser Stelle. Hat jemand eine Erklärung dafür? |
AW: Delphi XE2, BDE und TStoredProc
Glaubst du das Embaracadero noch viele Tests mit der BDE fährt. Wenn halt irgendwelche BDE-Teile mit neueren Versionen nicht mehr gehen. Was solls.
Wenn deine App noch unter D2007 funktionierte und unter XE2 nicht mehr und du jetzt nicht die BDE rauschmeißen willst dann Pflege dein App noch mit D2007. |
AW: Delphi XE2, BDE und TStoredProc
Versuch doch mal "AsAnsiString" statt "AsString". ;-)
|
AW: Delphi XE2, BDE und TStoredProc
@rider: Du bist mein persönllicher Held (also zumindest für heute)... .asAnsiString und schon wird auch die Stored Procedure wieder ausgeführt.
DANKE! Zitat:
|
AW: Delphi XE2, BDE und TStoredProc
Zitat:
Und automatisierte Tests müssten erstmal aufgebaut werden (was vor 10-15 Jahren noch nicht so üblich war) und auch gepflegt werden. Aufwand denn m.E. Embaracadero sinnvoller für andere Dinge verwenden sollte. War dann ein Warnhinweise "use at own risk with no guarantee" besser? |
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:38 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz