Access Datenbank Parameters.ParamByName

[Walter Landwehr]

Hallo,

ich möchte eine Access Tabelle öffnen:

SELECT Sum(GesamtHonorar) as Summe from Behandlungsleistungen where Behandlung = :ID

Delphi-Quellcode:

 MainMod.Behandlungssumme.Close;
 MainMod.Behandlungssumme.Parameters.ParamByName('ID').Value := MainMod.Behandlungen.FieldByName('ID').Value;
 MainMod.Behandlungssumme.Open;

Beim Open kommt diese Meldung:
EOleException mit Meldung '[Microsoft][ODBC-Treiber für Microsoft Access]Ungültiger Genauigkeitswert'.

Habe das eigentlich in Delpi 2007 immer so gemacht. Hat sich in DXE2 da was geändert oder wieso kommt diese Meldung und wie mach ich es dann richtig.

Danke für Eure Hilfe

[Bernhard Geyer]

"ich möchte eine Access Tabelle öffnen:" - Und oben steht Firebird?

Und ODBC? Geht du wirlich über den Umweg ODBC statt über dbGO direkter auf die DB zuzugreifen?

[Lemmy]

Hi,

was jetzt? Firebird oder Access? ODBC oder IBO??

wenn ODBC mit Access dann das hier mal versuchen:

Code:

SELECT Sum(GesamtHonorar) as Summe from Behandlungsleistungen where Behandlung = ?;

 MainMod.Behandlungssumme.Close;
 MainMod.Behandlungssumme.Parameters.Items[0].Value := MainMod.Behandlungen.FieldByName('ID').Value;
 MainMod.Behandlungssumme.Open;

[Jasocul]

Unter der Voraussetzung, dass "ID" numerisch ist, kannst du folgendes Versuchen:

Delphi-Quellcode:

 MainMod.Behandlungssumme.Close;
  MainMod.Behandlungssumme.Parameters.ParamByName('ID').AsInteger := MainMod.Behandlungen.FieldByName('ID').AsInteger;
  MainMod.Behandlungssumme.Open;

Die Benutzung von ".value" ist dasselbe, wie ".AsVariant", was auch aus Performance-Sicht nicht optimal ist.

Wenn du zum Beispiel in deiner Tabelle "Behandlungen" keine Ergebnis hast, bekommst du für Value ein "Null". Bei AsInteger bekommt man in dem Fall eine "0" geliefert.

[Walter Landwehr]

Danke Lemmy so hat es geklappt.

[baumina]

Evtl. ist auch die berechnete Summe größer als die Felddefinition zulässt.

[p80286]

Jetzt würde mich noch interessieren warum?
Eigentlich sollte es ja egal sein ob ich über den Index oder den Namen zugreife, eigentlich oder haben wir hier wieder einmal ein ganz besonderes Feature von Access vor uns?

Gruß
K-H