Пример процедуры по загрузке данных
// Чтение файла DBF:
&НаСервере
Процедура ПрочитатьDBFНаСервере()
DataBase = Новый XBase;
DataBase.ОткрытьФайл("G:/vig_dbf.dbf");
// выведем на экран первую строку
ВывестиДанныеНаЭкран(DataBase); // процедура ниже
// обход DataBase.Следующая() начинается со второй строчки
Пока DataBase.Следующая() Цикл
ВывестиДанныеНаЭкран(DataBase);
КонецЦикла;
DataBase.ЗакрытьФайл();
КонецПроцедуры
Процедура ВывестиДанныеНаЭкран(DataBase)
Сообщить(DataBase.AGE);
Сообщить(DataBase.FIO);
Сообщить(DataBase.DataPriema);
КонецПроцедуры
Пример процедуры по выгрузке данных
// Сохранение информации в dbf:
&НаСервере
Процедура ВыгрузитьВDBFНаСервере()
DataBase = Новый XBase;
// добавим в файл поля, зададим типы данных
DataBase.Поля.Добавить("FIO", "S", 128); // тип данных - строка
DataBase.Поля.Добавить("AGE", "N", 3); // тип данных - число
DataBase.Поля.Добавить("DataPriema", "D"); // тип данных - дата
// сохраним пустой файл в файловую систему
DataBase.СоздатьФайл("G:/vig_dbf.dbf");
Запрос = Новый Запрос(
"ВЫБРАТЬ
| Сотрудники.Наименование КАК Наименование,
| Сотрудники.Возраст КАК Возраст,
| Сотрудники.ДатаПриема КАК ДатаПриема
|ИЗ
| Справочник.Сотрудники КАК Сотрудники");
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
// добавляем строку и заполняем ее по запросу
DataBase.Добавить();
DataBase.AGE = Выборка.Возраст;
DataBase.FIO = Выборка.Наименование;
DataBase.DataPriema = Выборка.ДатаПриема;
// сохраняем файл
DataBase.Записать();
КонецЦикла;
DataBase.ЗакрытьФайл();
КонецПроцедуры
Оставить комментарий