Abfrage aus 2 Tabellen in Access funktioniert nicht

[mkinzler]

Ich werd ihn mir mal anschauen

[StoRmtec]

Okay cool danke

[mkinzler]

Wo kommt der Fehler denn, bei mir geht alles.

[StoRmtec]

Wenn ich auf druckerauswahl gehe und dann den ersten drucker auswähle
und dann kosten per drucker Gesamtausgabe ermitteln klicke dann kommt
der Fehler.

[mkinzler]

Bei mir gehts aber

[StoRmtec]

aha hier ist die aktuelle datenbank

wenn bei beiden was eintragen ist gehts eh aber wenn zb bei der wartung nichts drinnen ist das nicht.

[mkinzler]

Hier holst du den Wert aus einem Edit

Delphi-Quellcode:

    kostenverbrauch := strtofloat(gesverbrauch.Text)

Also vorher abfragen ob das Editfeld nicht leer ist

Delphi-Quellcode:

if Trim(gesverbrauch.Text) <> '' then 
    kostenverbrauch := strtofloat(gesverbrauch.Text)
else
     kostenverbrauch := 0;

[StoRmtec]

Wenn ich das eintrage dann zeigt er mir gar nichts mehr an in den 2 Zeilen

[mkinzler]

Weil ja auch vorher nichts drin war

[StoRmtec]

Aber wenn du auf Gesamtpositionen gehst dann siehst du das bei der
Wartung 2 Pos. sind und beim Verbrauch nichts.
Wenn ich dann auf Gesamtkosten ermitteln gehe dann kommt gar nichts
in die Zeile rein weder vom Verbrauch noch von der Wartung.

[mkinzler]

So scheint es jetzt zu funktionieren.

Ich habe ein paar kleine Änderungen gemacht:

-Bei jedem einzelnen Datasets war der ConnnectionString gesetzt. nachteil wenn Datenbank verschoben wird, muß er bei jedem Dataset ( Table, Query ...) geändert werden -> Verlinkung der datasets auf AdoConnection im DataModul.
-Auslagern des ConnectionString in ini-Datei, die im Create des dataModuls geladen wird.
-Umwandeln des statischen Querystrings zur Laufzeit in parametrisierte Queries.

Diese Änderungen sind noch für restliche Queries durchzuführen.

Ich würde dir auch raten, deinen Sourcecode durch Einrücken u.ä. lesbarer zu machen.

Weitere Vorschlage:
-Auswahl der Drucker in Auswahlform durch Doppelklick.
-Disablen der Buttons bevor man einen Drucker gewählt hat und Enablen nach Auswahl.
...

[StoRmtec]

Hallo
Danke für die Hilfe aber jetzt bekomme ich den Fehler

[mkinzler]

Der Paramter heißt bei mir auch drucker

[StoRmtec]

ja aber mit drucker habe ich ja nichts oder ???

habe es jetzt so gemacht

Delphi-Quellcode:

procedure TForm2.Button17Click(Sender: TObject);
var gesamt1, kostenverbrauch, kostenwartung : extended;
begin
  wartungq.Close;
  wartungq.SQL.text := 'select sum(kosten) as Gesamtkosten from wartung where druckernameid=('''+dbedit1.text+''')';
  wartungq.open;
  if wartungq.RecordCount > 0 then
  begin
    geswartung.text := wartungq.FieldByName('Gesamtkosten').asString;
    kostenwartung :=  wartungq.FieldByName('Gesamtkosten').asFloat;
  end
  else
  begin
    geswartung.text := '0';
    kostenwartung := 0;
  end;
  verbrauchq.Close;
  verbrauchq.SQL.text := 'select sum(tonerkostengesamt) as Gesamtsumme from verbrauch where druckernameid=('''+dbedit1.text+''')';
  verbrauchq.open;
  if verbrauchq.RecordCount > 0 then
  begin
     gesverbrauch.Text := verbrauchq.FieldByName('Gesamtsumme').asString;
     kostenverbrauch :=  verbrauchq.FieldByName('Gesamtsumme').asFloat;
  end
  else
  begin
    gesverbrauch.Text := '0';
    kostenverbrauch := 0;
  end;
gesamt1 := kostenwartung + kostenverbrauch;
gesamt.Text := floattostr(gesamt1) +' €';
end;

jetzt holt er mir den preis wenn bei der wartung was drinnen ist und beim verbrauch nicht
umgekehrt geht es nicht. wenn die wartung leer ist und der verbrauch was drinnen ist.

[mkinzler]

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?

[StoRmtec]

ja aber wenn ich es so lasse wie du es hast dann bekomme ich keinen wert und nur einen Fehler.

[mkinzler]

Also bei mir funktioniert es.

[StoRmtec]

Okay habe es gefunden was du meinst.
Habe es geändert.
Bei dem Drucker geht es wähle jetzt mal den Telefonzentrale Drucker aus bitte
bei dem geht es nicht.

mfg

[mkinzler]

Geht bei mir auch!

[StoRmtec]

komisch bei mir nicht
das ist komisch

[mkinzler]

Her nochmal das ganze Projekt

[StoRmtec]

Danke bei dem gehts jetzt.
Danke danke