SQL Convertion error bei Abfrage

[haentschman]

Hallo alle...

brauche Eure Hilfe, da ich den Fehler nicht nachvollziehen kann...

Delphi-Quellcode:

SQL:= 'select ID,NUMMER,KUNDE,PREISBRUTTO,DATUM,BEZAHLT,OFFEN,VERKAUFER from VORGANG';             
  case FVorgang.ComboBox1.ItemIndex  of
    0:
      begin
        SQL:=SQL + ' where';
        AbfrageBezahlt:= '';
      end;
    1:
      begin
        SQL:=SQL + ' where BEZAHLT = :bezahlt';
        AbfrageBezahlt:= 'True';
        SQL:=SQL + ' and';
      end;
    2:
      begin
        SQL:=SQL + ' where BEZAHLT = :bezahlt';
        AbfrageBezahlt:= 'False';
        SQL:=SQL + ' and';
      end;
   end;


   case FVorgang.ComboBox2.ItemIndex  of
     0:
       begin
         SQL:=SQL + ' DATUM > :Datum';
         AbfrageDatum:= '20.09.2007';
       end;
     1:
       begin
         SQL:=SQL + ' DATUM > :Datum';
         AbfrageDatum:= '20.04.2007';
       end;
     2:
       begin
         SQL:=SQL + ' DATUM > :Datum';
         AbfrageDatum:= '20.09.2006';
       end;
     3:
       begin
         AbfrageDatum:= '';
       end;
   end;

  case FVorgang.ComboBox3.ItemIndex  of
   0:
     begin
       SQL:=SQL + ' order by DATUM';
     end;
   1:
     begin
       SQL:=SQL + ' order by KUNDE';
     end;
   2:
     begin
       SQL:=SQL + ' order by NUMMER';
     end;
  end;

  FVorgang.ZQuery1.SQL.Text:= SQL;
  if AbfrageDatum > '' then FVorgang.ZQuery1.ParamByName('Datum').Value:= AbfrageDatum;
  if AbfrageBezahlt > '' then FVorgang.ZQuery1.ParamByName('bezahlt').Value:= AbfrageBezahlt;
  FVorgang.ZQuery1.Open;

Der zusammengesetzte SQLText lautet z.B.

select ID,NUMMER,KUNDE,PREISBRUTTO,DATUM,BEZAHLT,OFFEN,VE RKAUFER from VORGANG where DATUM > atum order by DATUM

Bei Open bekomme ich EZIBConvertError Meldung Convertion error .... was ist damit gemeint

Bitte um Hilfe, Denkanstöße...Danke

[edit]

ich hatte davor die SQL Anweisung mit SQL.Add zusammengesetzt, da hatte ich im SQLText nach jedem Add komische Sonderzeichen im String
...vieleicht kennt das ja jemand und hilft

[/edit]

[Dax]

'False' zu Boolean oder '20.09.2006' zu DateTime.. Funktioniert es, wenn du direkt die korrekten Typen benutzt?

[haentschman]

Hallo...

-da es ja keine Boolean Felder in Firebird gibt habe ich String genommen und 'True' oder 'False' abgelegt...ist mir lieber als 0 / 1 ...

- das DatenbankFeld ist Date Feld... ich melde mich gleich wieder...

[haentschman]

Ok...

der Tip mit dem richtigen Typ war ein Treffer.

1. Variable AbfrageDatum zu TDate gemacht...
2. AbfrageDatum:= StrToDate('20.09.2006');
3. FVorgang.ZQuery1.ParamByName('Datum').AsDate := AbfrageDatum;

Danke, Danke, Danke