Kombinierter Abfrage

[Frank Winkler]

Ich bitte mal um Hilfe,
wie muß ich die SQL-Anweisung umbauen so das beide Kriterien ausgeführt werden.

DModule->tblVerbrauch->Close();
DModule->tblVerbrauch->SQL->Clear();
DModule->tblVerbrauch->SQL->Add("Select *From tbl_Verbrauch");
DModule->tblVerbrauch->SQL->Add("Where (tbl_Verbrauch.Kategorie = '" +   edtKategorie->Text + "')");
DModule->tblVerbrauch->SQL->Add("  And (tbl_Verbrauch.Datum = ' " + edtDATUM->Text + " ' )");  !!??
DModule->tblVerbrauch->Open();

Danke für eure Hilfe
F.W.

BCB 5.0 Prof

[Christian Marquardt]

nichts, warum wird es nicht ausgeführt?

Welches SQL Fehler kommt?

[Frank Winkler]

Folgende Fehlmeldung tritt auf.

"Datentypen in Kriterienausdruck unverträglich"

[Christian Marquardt]

In welchem Format ist das Datum in der DB und was übergibt du aus dem Editfeld?

Was wird doch die Ursache sein

[Markus Kinzler]

Ich würde an deiner Stelle (SQL-)Parameter einsetzen. Außerdem würde ich eine DateTimePicker satt einem Edit verwenden.

DModule->tblVerbrauch->SQL->Text = "Select * From tbl_Verbrauch" +
                                   " Where tbl_Verbrauch.Kategorie = :kat" + 
                                   " And tbl_Verbrauch.Datum = :datum";
DModule->tblVerbrauch->SQL->ParamByName("kat").Value = edtKategorie->Text;
DModule->tblVerbrauch->SQL->ParamByName("datum").Value = dtDATUM->Date;

[Frank Winkler]

Hallo Markus
danke für den Tipp

nach dem ich ein paar kleinigkeiten geändert habe funktioniert es.

DModule->sqlVerbrauch->SQL->Text = "Select * From tbl_Verbrauch "
                                  " Where (tbl_Verbrauch.Kategorie = :kat)"
                                  " And (tbl_Verbrauch.Datum = :datum)";
DModule->sqlVerbrauch->Params->ParamByName("kat")->AsString = cmbKategorie->Text;
DModule->sqlVerbrauch->Params->ParamByName("datum")->AsDate = edtDatum->Date;

Das Plus und den Value wert wollte er nicht so

Ich greife mit einer KDAO tbl auf eine Access Datenbank zu und das edtDatum ist ein DBDateEdit mit Calender von Almdev

Mfg Frank