Hallo zusammen!
Ich sitze gerade am ersten Projekt mit Firebird 2.01 und Zugriff per UIB. Funktioniert soweit eigentlich ganz gut. Nur ein Insert funktioniert nicht.
Im Quelltext unten findet ihr zwei showMessages, das erste zeigt einen korrekten Wert an, das zweite einen leeren String. dm.anbieterInsert ist om Typ TJvUIBQuery. Mein Problem ist halt, dass die
GUID nicht in dem Parameter ID landet, dieser aber mein Primär-Index ist. Und ein leerer Primär-Index führt nun mal zu Problemen
Jemand ne Idee, woran es liegen könnte?
Danke im Voraus,
Thomas
Delphi-Quellcode:
var
GUID: TGUID;
bemerk:
string;
guids:
string;
begin
screen.Cursor := crHourglass;
if (trim(leName.Text) <> '
')
then
if cbBranche.ItemIndex > -1
then
begin
dm.anbieterInsert.Close;
CreateGUID(
guid);
guids := GUIDToString(
guid);
showMessage(guids);
dm.anbieterInsert.Params.ByNameAsString['
ID'] := guids;
showMessage(dm.anbieterInsert.Params.ByNameAsString['
ID']);