Forum: Datenbanken
Delphi
by Mithrandir,
4. Aug 2009
Hi,
Das mit den SP gucke ich mir nochmal genauer an. Ich habe jetzt erstmal ein zusätzliches SELECT Statement genommen und dann einfach die ID Spalte abwärts sortiert. Da das Programm für den Eigenbedarf ist und heute fertig werden sollte muss, geht das erstmal Q'n'D. :)
Na,
Hab ich doch geschrieben. ;)
Forum: Datenbanken
Delphi
by Mithrandir,
4. Aug 2009
Argh... :wall:
Hmm, naja, einem geschenkten Gaul... Dann muss ich mir die ID halt über ein separates SELECT-Statement holen. Nicht schön, aber funktioniert hoffentlich...
Forum: Datenbanken
Delphi
by Mithrandir,
4. Aug 2009
Dann bekomme ich aber für
ShowMessage(InsertEntryQuery.Params.Name);
den Wert "exp_lux". Und der Rückgabewert ist 0. Das Showmessage wird nach dem ExecSQL; ausgeführt.
Forum: Datenbanken
Delphi
by Mithrandir,
4. Aug 2009
Ich hab deine Aussage jetzt so interpretiert:
EntryID := InsertEntryQuery.Params.AsInteger; //8 In-Parameter
und bin damit auf die Nase gefallen:
---------------------------
dgHaushaltsbuch
---------------------------
Listenindex überschreitet das Maximum (9)
Forum: Datenbanken
Delphi
by Mithrandir,
4. Aug 2009
Hi hoika,
Ach so, ok. :)
"exp_type"
Ich habe daraufhin in das INSERT-STATEMENT "ID" und :id wieder eingefügt. Dann steht dort "id", der Rückgabewert ist aber 0. So kann das also nicht gehen.
Forum: Datenbanken
Delphi
by Mithrandir,
4. Aug 2009
Hmm... Nee, das wird immer noch nix bei mir...
Und wie kann ich darauf zugreifen?
EntryID := InsertEntryQuery.ParamByName('ID').AsInteger;
und
Forum: Datenbanken
Delphi
by Mithrandir,
4. Aug 2009
Ja, aber wie komme ich dann sonst an den Rückgabewert ("ID")? Hast übrigens Recht, dann funktioniert es. Aber dann ist das Feld "ID" nicht bekannt in der nächsten Zeile.
Und ich hatte das so verstanden, dass, wenn man einen Rückgabewert erwartet, man Open; nutzen muss.
Forum: Datenbanken
Delphi
by Mithrandir,
4. Aug 2009
Moin Markus,
ok, das ist dann wieder mein Ursprungsstatement, da ich dachte, es könnte daran liegen. Danke für den Hinweis, aber das Problem löst es leider nicht. :(
Forum: Datenbanken
Delphi
by Mithrandir,
4. Aug 2009
*seufz*
Dieser Code
procedure TDGHBDatabase.AddEntry(Entry: TDGHBEntry);
var
InsertEntryQuery : TZQuery;
GetUserIDQuery: TZQuery;
GetCategoryIDQuery: TZQuery;