Создание индексного файла
13.11.2009
11:39
#1
"Подскажите в чем может быть проблема.
Платформа 8.1
DBF файл существует, пытаюсь создать индексный файл, при выполнении команды БД.СоздатьИндексныйФайл(Путь + "index.cdx");
вылетает ошибка "ERROR #-210 Unrecognized Field Name Dat". Поля Dat и Num в DBF файле есть.
БД = Новый XBase;
БД.ОткрытьФайл(АдресФайла);
Если Не БД.Открыта() Тогда
Сообщить("Не удалось открыть файл!");
Возврат;
КонецЕсли;
БД.Кодировка = КодировкаXBase.OEM;
БД.АвтоСохранение = Истина;
//
Если БД.индексы.Количество() = 0 Тогда
БД.Индексы.Добавить("IDXNUM","NUM", Ложь);
БД.Индексы.Добавить("IDXDAT","DAT", Ложь);
КонецЕсли;
Попытка
БД.СоздатьИндексныйФайл(Путь + "index.cdx");
Исключение
Предупреждение("Не создан индексный файл!");
Возврат;
КонецПопытки;
"
Платформа 8.1
DBF файл существует, пытаюсь создать индексный файл, при выполнении команды БД.СоздатьИндексныйФайл(Путь + "index.cdx");
вылетает ошибка "ERROR #-210 Unrecognized Field Name Dat". Поля Dat и Num в DBF файле есть.
БД = Новый XBase;
БД.ОткрытьФайл(АдресФайла);
Если Не БД.Открыта() Тогда
Сообщить("Не удалось открыть файл!");
Возврат;
КонецЕсли;
БД.Кодировка = КодировкаXBase.OEM;
БД.АвтоСохранение = Истина;
//
Если БД.индексы.Количество() = 0 Тогда
БД.Индексы.Добавить("IDXNUM","NUM", Ложь);
БД.Индексы.Добавить("IDXDAT","DAT", Ложь);
КонецЕсли;
Попытка
БД.СоздатьИндексныйФайл(Путь + "index.cdx");
Исключение
Предупреждение("Не создан индексный файл!");
Возврат;
КонецПопытки;
"
Читают тему
(гостей: 1)