Выгрузка в dbf

[TAM]

Всем привет!

Кто-нибудь, поделитесь примером.
Есть ли возможность программно создать таблицу dbf, а не использовать готовый шаблон для выгрузки данных из Навижна?

[andrevk]

Возможность есть


[codebox]dbf Automation 'Microsoft ActiveX Data Objects 2.8 Library'.Connection

create(dbf);
dbf.Open('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=путькфайлу;Extended Properties=DBASE IV;');
DBF.Execute('Create Table Tables (Code char(20), Name char(30))');
DBF.Close;[/codebox]

[TAM]

Спасибо.
А можно указать куда положить созданный файл?

[TAM]

Сорри, тормознул.
"путькфайлу" не заметил.

[TAM]

Создавать dbf научился. Но наступил на вот эти грабли
http://forum.mazzy.ru/index.php?s=&sho...ost&p=32233
Скажите, это кто нить победил?

Говорят ADOX умеет многое по этой теме, но примеров использования ADOX в Навижн не нашел.

[TAM]

при Extended Properties=dBase 5.0 - точность после запятой устанавливается, но общая длина - стабильно 20,
например NUMERIC(8) сведется к (20,0)
NUMERIC - к (20,0)
NUMERIC(15,3) - к (20,3)

[andrevk]

А чем так вас не устраивает шаблон? С ним же проще?

Если уж так хочется, надо сменить провайдера:
Я использовал здесь Microsoft FoxPro VFP Driver

[codebox]dbf Automation 'Microsoft ActiveX Data Objects 2.8 Library'.Connection

CREATE(dbf);
dbf.Open('Provider=VFPOLEDB;Data Source=пустькфайлу');
dbf.Execute('Create Table Tables (Code char(20), Name char(30), Num NUMERIC(10,3))');
dbf.Close;[/codebox]

[TAM]

Очень хочется не использовать шаблоны! Их может много понадобиться.

А VFPOLEDB можно инсталлировать не устанавливая FOX PRO?

[andrevk]

Можно. Но надо будет поставить на все машины где будет использоваться создание dbf.

[TAM]

Другого выхода я так понимаю нет.
что ж, спасибо за помощь.

[Smart]

Цитата:

Сообщение от Andreblack

dbf.Open('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=путькфайлу;Extended Properties=DBASE IV;');

Доброго времени суток, а подскажите плиз, я пытаюсь открыть готовый файл .dbf, но мне ругается типа "вызов Open неудачен, строка типа 'путькфайлу' задает ошибочный путь... Проверьте путь и подключение к среверу"
Хотя реально файл пока укзанному месту лежит, что это может быть?

[Smart]

А все нашел, извиняйте, мой косяк

[TAM]

Всем привет!
Скажите, а можно ли сменить кодировку при выгрузке в dbf на DOS?

[Corleone]

Цитата:

Сообщение от TAM

Всем привет!
Скажите, а можно ли сменить кодировку при выгрузке в dbf на DOS?

Есть 2 варианта:
1. Поменять кодировку написав функу на C/AL и перекодировать в навижене.
2. Использовать при выгрузке ODBC, где можно настраивать любую кодировку для алиаса. (Data Source=Alias а не путь)

[Lrundom]

Перед выгрузкой данных в .dbf пытаюсь программно создать таблицу dbf, но что-то ничего не получается. Испробовала разные варианты. На данном варианте валится на CREATE TABLE(ошибка синтаксиса инструкции CREATE TABLE)
[codebox]
CREATE(dbf);
dbf.Open('DRIVER=Microsoft dBASE Driver (*.dbf);DRIVERID=277;ReadOnly=0;DBQ='+FilePath);
dbf.Execute('CREATE TABLE' + FileName + '(' + 'Code' + '' + 'VARCHAR(6)' + ',' + 'Name' + '' + 'TEXT(16)'+ ')');
dbf.Close;[/codebox]

вроде все просто, но почему валится не пойму. подскажите, мож кто знает в чем проблема.

И еще вопрос. почему когда я выбираю имя для экспорта в реквест форме, тип данных в диалоговом окне .txt? Каким образом тогда получаются файлы с расширением .dbf

[RedFox]

Цитата:

Сообщение от Lrundom

dbf.Execute('CREATE TABLE' + FileName + '(' + 'Code' + '' + 'VARCHAR(6)' + ',' + 'Name' + '' + 'TEXT(16)'+ ')');

А попробуйте поиграться с переменной, которая идёт в параметрах ()

Цитата:

И еще вопрос. почему когда я выбираю имя для экспорта в реквест форме, тип данных в диалоговом окне .txt? Каким образом тогда получаются файлы с расширением .dbf

Нав работает в основном в txt, а расширение система добавляет потом.
Как нибудь, для примера выгрузите сначала фоб в txt, а пото без указания расширения выгрузите, просто поменяв тип данных.
Эффект ОЧЕНЬ впечатляющий - файл предыдущий просто тупо замениться, хотя был изменен тип во время выгрузки..

[Lrundom]

Чуточку разобралась:
1)CREATE TABLE ругался на апострофы. Нашла выход с помощью текстовой переменной.
2)если оставить реквест форму, то при выполнение датапорта создаётся 2 файла : текстовый и дбф. Решение - реквест форму в No, путь к файлу задавать жестко.

[codebox]
VAR
Name ConstValue
Text001 CREATE TABLE %1(%2 CHAR(10), %3 VARCHAR(60))

CODE

NameTable := 'Vendor';
FilePath:='D:\TEMP\';

CREATE(dbf);
dbf.Open('DRIVER=Microsoft dBase Driver (*.dbf);DRIVERID=277;DBQ=' + FilePath);
dbf.Execute(STRSUBSTNO(Text001,NameTable,'FIELD1','FIELD2'));
dbf.Close;[/codebox]

Только теперь при запуске вылезает ошибка:

Цитата:

Операционная система не может найти устройство и каталог для файла .
Пожалуйста, проверьте, что названия устройства, каталога и имя файла корректны.

Но при этом dbf создается.