В приложении Microsoft Access ADP готовится на основании ХП файл DBF, после чего запускается программа, которая этот файл использует. Файл создается, но запускаемое приложение утверждает, что его формат не dBase IV. Сам файл отлично смотрится с помощью VFP6.0.

Вопросов два:
1. Как определить тип dBase с помощью VFP?
2. Как изменить (и возможно ли) тип dBase без использования VFP?

Вот код создания dbf на VBA, используется ADO 2.5.



Значение ключа (если это важно): HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Xbase\DataCodePage=OEM

CrispyА ты попробуй сохрани что-нибудь из 2-3 строк сначала, как DBFIII, потом как DBFIV, и посмотри в HEX-редакторе (хотя бы нажав F3, потом F4, в том же Far-е).
Скорее всего - не увидишь никакой разницы.
Возможно, сообщение связано с тем, что DBF - содержит memo-поле? Тгда первый байт файла будет не 03, а - другой.
Первые байты у старых dbf-ок такие:
FoxBASE+/dBASE III +, без memo - 03
FoxBASE+/dBASE III +, с memo - 83
FoxPro/dBASE IV, без memo - 03
FoxPro с memo - F5
dBASE IV с memo - 8B
Оставил в DBF только одно поле типа LONG, но это не помогло - мое приложение (то, которое запускается после создания dbf и должно читать его) может использовать этот dbf только после того, как я с помощью VFP сделаю экспорт в формат dBase IV.

golsaВ dBase IV не было полей типов LONG, SHORT, TEXT(n) - эти типы появились позднее уже в VFP, зато были NUMERIC(n,m) и CHARACTER (n). Может из-за этого тип (см. 1-ый байт DBFки по F3 в FAR, например) формируется не правильно.

При создании файла dbf использую NUMERIC(7,0) и CHARACTER(30). К сожалению, ошибка не исчезла - приложению по-прежнему не нравится формат dbf-файла. Вот заголовок dbf в HEX-редакторе (как видите - 1-байт равен "03"):

А вот тот же файл после экспорта через VFP (этот файл уже распознается программой)

Кодовая страница, мне кажется, не при чем: эта гадина (исходников этой заразы у меня нет - а лезть туда моими шаловливыми рученками - себе дороже) может открывать DBF только после того, как я пользуюсь экспортом через VFP:
При этом я могу написать как 866, так и 1251 - программа откроет файлы в любом случае.
Ладно, думаю, я - не хочешь СОЗДАВАТЬ нормальные dbf-файлы, так хоть ЗАПОЛНЯЙ их нормально... Создаю шаблоны dbf-файлов и пытаюсь их заполнять. После отработки приведенного кода (за вычетом места, где файл удаляется и создается заново) программа снова перестает распознавать формат dbf.
Так что, боюсь, вопрос теперь стоит по-другому: как из кода моего приложение на VBA открыть dbf с помощью VFP (или какой-нибудь утилитки) и выполнить строку "COPY TO"?

CrispyТак Foxplus, вроде как - все равно ж только 866...?...
А открыть как - сделай exe-шник из проги, вписав туда:
use my_dbf
copy to...
quit
в каталог к нему положи все, что надо :) - в смысле нужные библиотеки. И пускай его там себе на выполнение. Тогда до кучи еще пара вопросов (как у человека, программирующего на VFP первый день):
как в команде "copy to..." отключить запрос о перезаписи имеющегося файла?
как убрать окно среды VFP после запуска exe?
как в exe-файл работать со значениями из командной строки (типа функции Command$ в VB)?
golsaПо приведенным фрагментам видно, что не формируется относительное положение поля внутри записи - эта величина излишняя (вычисляется через длины полей) - но для формата dBaseIV необходимая. Напиши небольшую программку для repair заголовка. Еще сильно подозрительно увеличение длины на 2К - скорее всего недописывается хвост DBF. Посмотри по данным в конце файла темже 16-чным вьюером. Наверно последние записи 16-ричными нулями забиты. Спасибо. Точно - добиты нулями. Но repair заголовка я писать не буду - зело хлопотно. :))

CrispyЕсли у тебя окно VFP появляется создаешь текстовый файл CONFIG.FPW, пишешь там:
SCREEN = OFF
TALK = OFF
RESOURCE = OFF
можешь его засунуть в проект для удобства.
После выполнения программы, окно, по идее должно само закрываться.

>как в exe-файл работать со значениями из командной строки (типа функции Command$ в VB)?
В смысле - как передать в EXE свои значения (если я правильно понял)?
Чтобы передавать какие-то параметры в свой главный (main) файл PRG, пишешь в нем перед всеми командами:
LParameters p1,p2,...,pn - где p1,p2... - имена твоих параметров, что ты будешь использовать внутри проги.
Тогда подгрузка с параметрами из командной строки будет: my_prog.exe par1 par2 - значения параметров через пробел. Только сейчас не помню точно - кажется они все попадают внутрь в символьном виде, и числа надо будет преобразовывать функцией VAL(), А если надо, скажем передать имя открываемой dbf-ки, тогда будет так:
LPARAMETERS baza
USE &baza
А загрузка: my_prog.exe my_dbf.
Еще, я так понял тебе нужно будет ее переименовать после преобразования назад?
Тогда после COPY TO... вставляешь:
USE
RENAME new_file TO old_file - только оба файла обязательно - с расширениями.
Исчерпывающе. Спасибо