Вопрос от чайника по работе с ODBC

[poul_and]

Проблема такая - есть .dbf файл с полями id, Date и Value. Нужно перенести из этого файла в Навижн(версия 3.10) записи за последние 30 дней. Вроде как нужно использовать ODBC, но сам это никогда не делал. Набросайте плиз кратенький примерчик как это реализовать.

[IGG]

Я бы с ODBC не работал - много геморроя.
Самый простой пусть - засасываете в Excel, потом сохраняете его как MS-DOS CSV, а потом через датапорт закачиваете без проблем
А примеры в форуме где-то были. Мало того блок в навижне по пенсионному фонду вроде имеет код работы с dbf

[poul_and]

эту фигню надо автоматизировать - чтоб бабуля-оператор нажимала одну кнопку!

[poul_and]

блока по пенсионному фонду у нас нет

[gennady]

Как я это сделал, правда, в версии 3.6. Посмотрите, может, подойдет.
// Connection = 'Microsoft ActiveX Data Objects 2.8 Library'.Connection
//Path = путь доступа к DBF файлу
IF NOT ISCLEAR(Connection) THEN
CLEAR(Connection);
CREATE(Connection);

ConnStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Path + ';Extended Properties=DBASE IV;';
Connection.Open(ConnStr);

// RecSet = 'Microsoft ActiveX Data Objects 2.8 Library'.Recordset
//Field = 'Microsoft ActiveX Data Objects 2.8 Library'.Field
IF ISCLEAR(RecSet) THEN
CREATE(RecSet);

RecSet.Open('select * from ' + DBFfile + ' where INSTR(VALUE,"value") = 1',Connection);
RecSet.MoveFirst;
WHILE NOT RecSet.EOF DO BEGIN
NaviVal := FORMAT(RecSet.Fields.Item('VALUE').Value);
//…

RecSet.MoveNext;
END;

RecSet.Close;
Connection.Close;

//Эта фун-я применяется для тех импорируемых полей, которые могут содержать пустые значения
Result := '';
EVALUATE(Size, FORMAT(RecSet.Fields.Item(FieldName).ActualSize));
IF Size <> 0 THEN
Result := FORMAT(RecSet.Fields.Item(FieldName).Value);
EXIT(Result);