Eingabe in Datenbankfeld wird vor BeforePost validiert

[hirnstroem]

'loha Folks,

mir macht die Eingabe von Daten in ein mit einer Access Datenbank "verknüpften" Edit-Felder Probleme.

Das Feld ist in der Datenbank als Integer definiert. Wenn nun aber jemand auf die Idee kommen sollte, trotzdem einen String hineinzuschreiben, so möchte ich dies abfangen und den Benutzer darauf hinweisen, dass das so nicht passt. Dies versuche ich durch das definieren entsprechender Behandlungsroutinen im BeforePost Ereignis abzuhandeln, nur kommt das ganze beim speichern gar nicht so weit. Bevor das BeforePost Ereignis feuert, löst das Formular eine Exception aus und da es sich um ein IntraWeb Formular handelt, kann ich nicht nachschauen (jedenfalls ist mir nichts anderes bekannt), was da im Hintergrund genau abläuft. Besagte Situation tritt nur dann ein, wenn anstatt einer Zahl ein String in das entsprechende Edit-Feld geschrieben wird. Deffiniere ich beispielsweise, dass die Zahl nicht grösser als 1 sein darf und gebe anschliessend 2 ein, so funktiniert das ganze wider.

Die folgende Exception wird jeweils ausgelöst:

Erste Gelegenheit für Exception bei $77E7E592. Exception-Klasse EDatabaseError mit Meldung "asdf" ist kein gültiger Integerwert für das Feld 'Address'. Prozess FACTS_Standalone.exe (2280)

Eine Lösung dafür konnte ich bisher nicht finden und weshalb die Exception auftritt ist für micht auch nicht nachvollziehbar, etwas Hilfe, täte deshalb gut.

Grüsse
hirnstroem

[mkinzler]

Ich würde in diesem Fall statt dem TDBEdit ein TMaskEdit nehmen.

[hirnstroem]

Ich habe wohl verschwiegen, ein TIWDBEdit von IntraWeb verwendet zu haben (für Webapplikationen).

Und verwirren tut mich zusätzlich folgendes. Wenn ein Datensatz geöffnet wird, bei welchem das angesprochene Feld mit einem korrekten Wert versehen ist, in dieses Feld ein Paar Buchstaben geschrieben werden und anschliessend anstatt gespeichert abgebrochen wird, verhält es sich genau so wie beim speichern des Datensatzes. Beim Abbrechen soll doch aber gefälligst gar nichts mehr überpfüft werden...

[alzaimar]

Du solltest vielleicht die Validation im OnSetText-Ereignis des Eingabefeldes vornehmen.

Ich vermute mal (meine Glaskugel ist geölt und runderneuert), das das Datenfeld vom Type TIntegerField ist und daher schon bei der Zuweisung (die das TIWDBEdit selbst vornimmt) dieser Fehler auftritt.

[hirnstroem]

Deine Vermutung trifft zu -.-

Delphi-Quellcode:

procedure TIWUserSession.ADODataSet_DeviceAddressSetText(Sender: TField;
  const Text: string);
var
  Value: Integer;
begin
  if not TryStrToInt(Text, Value) then CurrentDataSet.FieldByName('Address').Value := CurrentDataSet.FieldByName('Address').Value;
end;

^^ so tut das seinen Dienst.

Vielen Dank für die Hilfe!

[alzaimar]

Na, vielleicht noch eine Fehlermeldung... Und vermutlich tut es ein einfach exit (also einfach nix zuweisen) auch.

[hirnstroem]

Die Fehlermeldung wird nach wie vor im BeforePost Ereignis generiert, ist also nicht vergessen gegangen und Exit ist wirklich sinnvoller...wenn man das so gesagt bekommt. Aber heute, Freitag, und nach einer relativ kurzen Nacht, kommen die Gehirnwindungen irgendwie nur schwerlich in Gange...