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]

Delphi-Quellcode:

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:

Delphi-Quellcode:

Query.ParamByName('Datum1').Value := Datum; // Datum vom Typ TDate oder TDateTime

bzw

Delphi-Quellcode:

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:

Delphi-Quellcode:

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 :wink: . 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.

[marabu]

Es könnte funktionieren, wenn der Parameter den richtigen Typ hätte.

Delphi-Quellcode:

procedure TForm2.Button10Click(Sender: TObject);
begin
  with Query1 do
  begin
    SQL.Text := 'select * from schichtbuch where Datum between :Datum1 and :Datum2';
    ParamByName('Datum1').AsDateTime := StrToDate(Edit2.Text);
    ParamByName('Datum2').AsDateTime := StrToDate(Edit3.Text);
    Open;
  end;
end;

Grüße vom marabu

[Vader]

hallo,

das von marabu funktioniert, achso ich muß ja vorher den edittext in ein datumsformat umwandeln !!
mfg vader

[mkinzler]

Oder das datumsformat richtig einstellen. Aber der beste Weg wäre wie schon erwähnt der Einsatz Eines Pickers.

[marabu]

Zitat:

Zitat von mkinzler

Oder das datumsformat richtig einstellen.

Das Datumsformat wird wohl korrekt gewesen sein, sonst wäre auch mein Code gescheitert. Der Schlüssel zum Erfolg ist die Wertzuweisung an die richtige property. Bei Zuweisung an AsString wird der Parametertyp auf ftString gesetzt, was zu einem Missmatch mit dem Datenfeldtyp ftDateTime führte.

marabu