|
Скорей всего оишбка здесь:
ConnStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=' + Path + ';Extended Properties=DBASE 5.0;';
Connection.Open(ConnStr);
IF ISCLEAR(RecSet) THEN
CREATE(RecSet);
RecSet.Open('select * from ' + DBFFile +
' where DATA >= # ' + FORMAT(DateFrom,0,'<Month,2>-<Day,2>-<Year4>') + '# and DATA <= #' +
FORMAT(DateTo,0,'<Month,2>-<Day,2>-<Year4>') + '#',Connection);
RecSet.MoveFirst;
Но факт в том, что у меня работает, а у других нет!
|