![]() |
#2 |
Участник
|
Скорей всего оишбка здесь:
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; Но факт в том, что у меня работает, а у других нет! |
|