*seufz*
hab den Code nun so geschrieben:
Delphi-Quellcode:
sSQL: string;
procedure TForm1.Button2Click(Sender: TObject);
begin
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Text :=
'SELECT *' + #10 +
'FROM "t:eDienstreisebuch\mainDB.dbf"' + #10 +
'WHERE Dienst_PKW = :iDienst_PKW AND' + #10 +
' Datum = :iDate';
Query2.prepare;
Query2.ParamByName('iDienst_PKW').AsString := Dienst_Pkw.text;
Query2.ParamByName('iDate').AsDateTime := DateT.DateTime;
Query2.open;
//Query2.sql.add(sSQL);
Query2.Active:=True;
if Query2.Bof and Query2.Eof
then begin ShowMessage('Dateneingabe');
end
else ShowMessage('Keine Daten');[/delphi]
Leider wird immer noch kein Ergebniss in den
Query geschrieben, wenn Datensätze (eigentlich) übereinstimmen.
So läuft dann immer
then begin ShowMessage('Dateneingabe');
ab.
Der Fehler muss noch woanders liegen... .