em sharky also das mit den Params versteh ich net und zu dem denke ich auch net das dat funzt da ich ja wie man bei mir sieht Tag Monat und jahr aus ner variablen kommen (von DatTimePicker ausgelesen).
also hier mal so alles zumindestens die funktion.
Delphi-Quellcode:
procedure TForm2.Button2Click(Sender: TObject);
var
Name1,Name, tmj: string;
Monat, Tag1, jahr: string;
Monat1, Tag2, jahr1: string;
datum : TDateTime;
begin
if RadioButton2.Checked then
begin
DateTimePicker2.Enabled := true;
datum:=DateTimePicker1.Date;
Name := ComboBox1.Text;
tmj:=DateToStr(datum);
//gibt den Tag zurück
Tag1 :=copy(DateToStr(DateTimePicker1.Date), 1, 2);
//gibt den Monat zurück
monat:=copy(DateToStr(DateTimePicker1.Date), 4, 2);
//gibt das Jahr zurück
jahr:=copy(DateToStr(DateTimePicker1.Date), 9, 2);
Tag2 :=copy(DateToStr(DateTimePicker2.Date), 1, 2);
monat1:=copy(DateToStr(DateTimePicker2.Date), 4, 2);
jahr1:=copy(DateToStr(DateTimePicker2.Date), 9, 2);
if Name = 'alle' then
begin
Form1.Query1.Active:=False;
Form1.Query1.SQL.Clear();
Form1.Query1.SQL.Add('select * from Booking where (Tag between"'+Tag1+'"AND "'+Tag2+'")AND(Monat between"'+Monat+'"AND"'+Monat1+'") AND (Jahr between"'+Jahr+'"AND"'+jahr1+'") order by name, Uhrzeit');
Form1.Query1.Open();
Form1.Query1.Active:=True;
Form1.QuickRep1.Preview();
end;
end;
end;
also das ist alles und funzen tut das auch aba nur ohne dem bereich also between.
PS: sakura die Katze ist goil
Alle Tippfehler dienen nur zur Belustigung und wurden mit voller Absicht gesetzt.
:-:-: [ich bin ein DAU ]:-:-: