Mit Datum Suchergebniss ?

[Vader]

hallo,

ich habe in meiner tabelle ein feld das ich mit dem typ "datum" angelegt habe,
ich möchte jetzt zb. die suche vom 01.01.2006 bis 31.01.2006 einschränken, wie geht das ?
mfg vader

[alzaimar]

Query.Sql.Text := 'select * from Tabelle where Datum between :Datum1 and :Datum2'; Dann die Parameter 'Datum1' und 'Datum2' entsprechend setzen

[Vader]

hallo,

und wo soll ich die parameter 'Datum1' und 'Datum2' entsprechend setzen ?
das ist ja immer anders ?
mfg vader

[mkinzler]

Zitat:

das ist ja immer anders ?

Eigentlich nicht. Parameter setzt man immer so:
Query.ParamByName('Datum1').Value := Datum; // Datum vom Typ TDate oder TDateTime bzw
Query.ParamByName('Datum1').asString := '01.01.2006'; //Zuweisung von String im Systemformat. Den anderen Parameter datum2 entsprechend.

[Vader]

hallo,
hab´s so probiert,

Delphi-Quellcode:

procedure TForm2.Button10Click(Sender: TObject);
begin
  with Query1 do
  begin
    Query1.Close;
    Query1.Sql.Text := 'select * from schichtbuch where Datum between :Datum1 and :Datum2';
    Query1.ParamByName('Datum1').asString := 'edit2.text';
    Query1.ParamByName('Datum2').asString := 'edit3.text';
    Query1.Open;

  end;

  end;

aber es kommt diese fehlermeldung:

Keine Übereinstimmung der Typen im Ausdruck mfg vader

[mkinzler]

Eelchen Typ habt Datum in der Datenbanktabelle. Was für ein Datumsformat ist in deinem System eingestellt?

BTW. für die Eingabe von Datumswerten würde ich einen TdateTimePicker verwenden.

[Vader]

das feld datum ist mit typ datum angelegt,
ich weiß nicht recht er zeigt ein kurzes und langes format an im system TT.MM.JJJJ und TTTT, T. MMMM JJJJ
mfg vader

[Ratte]

Dein code kann doch garnicht gehen: Du sagts im der String 'edit2.text' wäre das Datum. Evt. solltest du die '' weglassen . Entscheidende Kleinigkeit. ansonsten wäre wie schon vergeschlagen ein TDateTimepicker wirklich geschickt.

[Vader]

hallo,

hab das so probiert aber es kommt wieder der gleiche fehler

Delphi-Quellcode:

procedure TForm2.Button10Click(Sender: TObject);
begin
  with Query1 do
  begin
    Query1.Close;
    Query1.Sql.Text := 'select * from schichtbuch where Datum between :Datum1 and :Datum2';
    Query1.ParamByName('Datum1').asString := Edit2.Text + '%';
    Query1.ParamByName('Datum2').asString := Edit3.Text + '%';
    Query1.Open;

  end;

  end;

mfg vader

[mkinzler]

Lass die Joker(%) weg.