Forum: Datenbanken
Delphi
by mkinzler,
3. Feb 2006
Her nochmal das ganze Projekt
Forum: Datenbanken
Delphi
by mkinzler,
3. Feb 2006
Also bei mir funktioniert es.
Forum: Datenbanken
Delphi
by mkinzler,
3. Feb 2006
Aber ich habe wie geschrieben den Querystring in meiner Version fest als parametrisierte Abfrage hinterlegt. Du schreibst wieder bei jedem Klick, die den String neu, warum?
Forum: Datenbanken
Delphi
by mkinzler,
3. Feb 2006
Der Paramter heißt bei mir auch drucker
Forum: Datenbanken
Delphi
by mkinzler,
2. Feb 2006
Weil ja auch vorher nichts drin war
Forum: Datenbanken
Delphi
by mkinzler,
2. Feb 2006
Hier holst du den Wert aus einem Edit
kostenverbrauch := strtofloat(gesverbrauch.Text)
Also vorher abfragen ob das Editfeld nicht leer ist
if Trim(gesverbrauch.Text) <> '' then
kostenverbrauch := strtofloat(gesverbrauch.Text)
else
kostenverbrauch := 0;
Forum: Datenbanken
Delphi
by mkinzler,
2. Feb 2006
Wo kommt der Fehler denn, bei mir geht alles.
Forum: Datenbanken
Delphi
by mkinzler,
2. Feb 2006
Ich werd ihn mir mal anschauen
Forum: Datenbanken
Delphi
by mkinzler,
2. Feb 2006
Packe mal deinen kompletten Sourcecode und stelle ihn mal ein.
Forum: Datenbanken
Delphi
by mkinzler,
2. Feb 2006
Das Feld Gesamtsumme ist vom Typ Float, die Eigenschaft Text aber String also so ändern:
gesverbrauch.text := wartungq.FieldByName('Gesamtsumme').asString;
Forum: Datenbanken
Delphi
by mkinzler,
1. Feb 2006
Setz mal den Breakpoint ein bischen vorher und gehe dann in Einzelschritten weiter, bis du die Zeile findest in der der Fehler ausgelöst wird.
Forum: Datenbanken
Delphi
by mkinzler,
1. Feb 2006
Wenn eranhält, fahr mit der Maus über Recordcount, dann siehst du den aktuellen Wert. Ist der 0?
Forum: Datenbanken
Delphi
by mkinzler,
1. Feb 2006
Im Codeeditor links vor die Zeile klicken. Es wird dort dann ein Punkt angezeigt. Dann Programm starten. Das Programm wird dann ausgefüht und am Haltepunkt angehalten.
Du programmierst noch nicht lang oder? ;-)
Forum: Datenbanken
Delphi
by mkinzler,
1. Feb 2006
Setze mal einen Haltepunkt an der Zeile, ind der RecordCount verwendet wird und schau dir mal den Wert an. Wenn die Datenbank kein Ergebnis liefert sollte RecordCount eigentlich 0 sein.
Forum: Datenbanken
Delphi
by mkinzler,
1. Feb 2006
1.) Hast du die selbe Änderung für den Verbrauch durchgeführt?
2.) Was für ein Wert gibt er für RecordCount aus?
Forum: Datenbanken
Delphi
by mkinzler,
1. Feb 2006
Z.B so:
if wartungq.RecordCount > 0 then
kostenwartung := strtofloat(geswartung.Text)
else
kostenwartung := 0;
Forum: Datenbanken
Delphi
by mkinzler,
31. Jan 2006
Freut mich.
Allerdings muß ich marabu rechtgeben mit seinem Einwand, das das Abfangen der Fehler durch Exceptionhandler ( try .. except ) nur die Symptome bekämpft anstatt die Ursachen.
Besser ist es natürlich vorher abzuprüfen, ob die zu konvertierenden Variablenwerte in den Zieltyp konvertierbar sind oder ob überhaupt ein Ergebnis vorliegt bzw. Variablen nicht leer( Null) sind.
Forum: Datenbanken
Delphi
by mkinzler,
31. Jan 2006
Vielleicht solltest du auch diese Zeilen noch absichern
kostenwartungall1 := strtofloat(geswartungall.Text);
kostenverbrauchall1 := strtofloat(gesverbrauchall.Text);
so:
try
kostenwartungall1 := strtofloat(geswartungall.Text);
except
kostenwartungall1 := 0;
end;
Forum: Datenbanken
Delphi
by mkinzler,
30. Jan 2006
Wenn 5n der Wart4ngstabelle kein Datum erfasst ist und du filterst nur bestimmte Datumswerte kann er nichts finden. Also where entfernen oder auf Datensätze ohne Datum erweitern ( marabu)