datetimepicker og praradox

1. Du kan bruge SQL: "select * from data where dato >= :FraDato and dato <= :TilDato;" hvor :FraDato og :TilDato er sættes via TDataSet.Parameters.

2. Du kan sætte et filter, men jeg vil ikke råde dig til det - de er tunge og det giver nogle gange et uheldigt udseende. Der er desuden stor sandsynlighed for at det kun virker med Paradox-databaser.

DataSet1.Filter := format('dato >= %s and dato <= %s',[dtpFrom.Date, ftpTo.Date]);
DataSet1.Filtered := true;

Der var lige en fejl i filteret - vender hurtigt tilbage.

Jeg har ikke før brugt sql sammen med delphi, hele programmet er bygget op med databasekomponeneter simple standart "link".
Resusltatet skal vises i et dbgrid.

Jeg lavede lige nedenstående testprogram imod en tabel der indeholdt et datofelt. Håber du kan bruge det til noget.

type
  TfrmMain = class(TForm)
    dbTest: TTable;
    dtpFrom: TDateTimePicker;
    dtpTo: TDateTimePicker;
    dsTest: TDataSource;
    dbgTest: TDBGrid;
    cbFiltered: TCheckBox;
    cbOpened: TCheckBox;
    procedure cbFilteredClick(Sender: TObject);
    procedure cbOpenedClick(Sender: TObject);
  private
  public
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.cbFilteredClick(Sender: TObject);
begin
  if (Sender as TCheckBox).Checked then begin
    dbTest.Filter := format('dato >= %s and dato <= %s',[DateToStr(dtpFrom.Date),DateToStr(dtpTo.Date)]);
    dbTest.Filtered := true;
  end // if
  else
    dbTest.Filtered := false;
end;

procedure TfrmMain.cbOpenedClick(Sender: TObject);
begin
  dbTest.Active := (Sender as TCheckBox).Checked;
end;

Tak for hjælpen.
Nu fik jeg det til at virke.