Abfrage aus 2 Tabellen in Access funktioniert nicht

[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