сохранение в формат .dbf

@Alexey2002 · Регистрация: 04.02.2008

Студворк — интернет-сервис помощи студентам

Требуется данные из RecordSeta записать в таблицы формата dbf. Причем сделать это программно.
Заранее спасибо.

@SpiritWalker · 21.04.2008, 10:38

Мучит тот же вопрос..

21.04.2008, 12:47

1) создать базу dbf
2) работать практически также как и с mdb
3) посмотреть можно на релибе в примерах !!!!

с уважением Shark

@Alexey2002 · 21.04.2008, 13:02 **[ТС]**

а на каких примерах?

21.04.2008, 13:26

1) а по поводу создания базы dbf, недавно в форумах эта тема подымалась, сделай поиск
2) http://relib.com/sources/code.asp?id=219

@Alexey2002 · 21.04.2008, 15:06 **[ТС]**

Да, но мне то её нужно не показать, а заполнить

21.04.2008, 15:29

Если я правильно понял, то в упрощенном виде тебе нужно из mdb->dbf?

@Alexey2002 · 21.04.2008, 16:03 **[ТС]**

В принципе SQL Server -> .dbf
Я принимаю данные в Record Set, а вот дальше возникает проблема как их записать в таблицы .dbf

@palva · 21.04.2008, 18:03

Следующий фрагмент работает:

Set cnn = CreateObject('ADODB.Connection')
cnn.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;' & _
'Data Source=C:Temp '
cnn.Properties('Extended Properties').Value = 'DBASE IV'
cnn.Open
cnn.Execute 'CREATE TABLE tbl1 (col1 NUMERIC(6,2), col2 char(10))'
cnn.Execute 'INSERT INTO tbl1 VALUES (1343.23, 'q5bdsj')'

а вот создать RecordSet с возможностью обновления у меня не получилось:

set rs = CreateObject('ADODB.Recordset')
rs.Open 'SELECT * FROM tbl1', cnn, 3, 3
rs.AddNew
rs.Fields('col1') = 3.43
rs.Fields('col2') = 'новая'
rs.Update

ругается, что файл только для чтения.

Может быть, если соединиться через ODBC-драйвер, то тоже заработает?

Попробуйте.

Во всяком случае, отдельные SQL-команды INSERT всегда можно сформировать динамически. Может быть это будет медленно, но работать будет.

@Alexey2002 · 21.04.2008, 18:55 **[ТС]**

Спасибо за ответ. Все получилось, только мне нужен формат таблиц VisualFoxPro, а он отличается от 'DBASE IV', по крайней мере когда дело доходит до memo полей.
Можно ли подробнее объяснить следующую строку кода, я пока не нашел в справке описания.

cnn.Properties('Extended Properties').Value = 'DBASE IV'

@palva · 21.04.2008, 21:54

Сомневаюсь, что вы сможете при помощи ADO работать с Memo-полями.

Объяснить смысл строки не могу. Пишу ее как иероглиф, когда мне нужно.

Документация находится в MSDN в статье

mk:@MSITStore:C:Program%20FilesMicrosoft %20Visual%20StudioMSDN2001JUL1033 echart.chm::/html/adoproperties.htm#adoproperties_extended settings

Если вам ОЧЕНЬ нужно, то могу прислать. Просто не хочется заниматься декомпиляцией хелпа.

@Alexey2002 · 22.04.2008, 12:25 **[ТС]**

В принципе у меня получилось следующим образом -

Set cnn = CreateObject('ADODB.Connection')

cnn.Open 'Driver={Microsoft Visual FoxPro Driver};' & _
'SourceType=DBF;' & _
'SourceDB=d:aa;' & _
'Exclusive=Yes;'

cnn.Execute 'CREATE TABLE d:aa 1 (col1 NUMERIC(6,2), col2 memo)'
cnn.Execute 'INSERT INTO t1 VALUES (1343.23, 'q5bdsj')'
cnn.Close

и смущает лишь непонимание ConnectionString. Т.е. почему именно так, а не как-то иначе.
И может немного глуповатый вопрос, но как воспользоваться ссылкой в MSDN о которой иде речь выше? Я нашел файл techart.chm запустил его появился хелп по Technical Articles. И что делать дальше я не знаю. Запустить всю строку из Far тоже не получается.

@palva · 22.04.2008, 13:59

Гениально!

Теперь буду знать, как работать с мемо полями. Интересно, можно ли создать индекс. А строка соединения для меня как стандарнтное заклинание, которое надо раз в жизни скопировать из какой нибудь программистской конфы и использовать. Формат этой строки сильно зависит от применяемого драйвера. То есть, в принципе вид этой строки должен содержаться в документации по драйверу. Но вникать в подробности довольно тоскливо.

Теперь о ссылке. Это скорее не ссылка а наводка. Нужной статьи в конкретном варианте файла может не оказаться. Состав статей меняется от выпуска к выпуску. Если вы открыли techart.chm, то нужно щелкнуть правой кнопкой мыши на одном из пунктов содержания и выбрать последний элемент меню 'Jump to URL...' Появится две строки. Верхняя серая содержит адрес щелкнутого пункта, нижнюю нужно заполнить. Проще всего выделить содержимое верхней строки, скопировать ее в нижнюю и там заменить то что следует после TECHART.CHM тем что стоит у меня в этом же месте.

@Alexey2002 · 22.04.2008, 15:16 **[ТС]**

спасибо за помощь.

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .

@Alexey2002 0 / 0 / 0 Регистрация: 04.02.2008 Сообщений: 40

	сохранение в формат .dbf 20.04.2008, 15:45. Показов 2333. Ответов 13 Метки нет (Все метки) Требуется данные из RecordSeta записать в таблицы формата dbf. Причем сделать это программно. Заранее спасибо. 0

@SpiritWalker 0 / 0 / 0 Регистрация: 01.01.2008 Сообщений: 106
	21.04.2008, 10:38
	Мучит тот же вопрос.. 0

Shark
	21.04.2008, 12:47
	1) создать базу dbf 2) работать практически также как и с mdb 3) посмотреть можно на релибе в примерах !!!! с уважением Shark

@Alexey2002 0 / 0 / 0 Регистрация: 04.02.2008 Сообщений: 40
	21.04.2008, 13:02 [ТС]
	а на каких примерах? 0

Shark
	21.04.2008, 13:26
	1) а по поводу создания базы dbf, недавно в форумах эта тема подымалась, сделай поиск 2) http://relib.com/sources/code.asp?id=219

@Alexey2002 0 / 0 / 0 Регистрация: 04.02.2008 Сообщений: 40
	21.04.2008, 15:06 [ТС]
	Да, но мне то её нужно не показать, а заполнить 0

Shark
	21.04.2008, 15:29
	Если я правильно понял, то в упрощенном виде тебе нужно из mdb->dbf?

@Alexey2002 0 / 0 / 0 Регистрация: 04.02.2008 Сообщений: 40
	21.04.2008, 16:03 [ТС]
	В принципе SQL Server -> .dbf Я принимаю данные в Record Set, а вот дальше возникает проблема как их записать в таблицы .dbf 0

@palva 4278 / 2970 / 693 Регистрация: 08.06.2007 Сообщений: 9,930 Записей в блоге: 5
	21.04.2008, 18:03
	Следующий фрагмент работает: Set cnn = CreateObject('ADODB.Connection') cnn.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;' & _ 'Data Source=C:Temp ' cnn.Properties('Extended Properties').Value = 'DBASE IV' cnn.Open cnn.Execute 'CREATE TABLE tbl1 (col1 NUMERIC(6,2), col2 char(10))' cnn.Execute 'INSERT INTO tbl1 VALUES (1343.23, 'q5bdsj')' а вот создать RecordSet с возможностью обновления у меня не получилось: set rs = CreateObject('ADODB.Recordset') rs.Open 'SELECT * FROM tbl1', cnn, 3, 3 rs.AddNew rs.Fields('col1') = 3.43 rs.Fields('col2') = 'новая' rs.Update ругается, что файл только для чтения. Может быть, если соединиться через ODBC-драйвер, то тоже заработает? Попробуйте. Во всяком случае, отдельные SQL-команды INSERT всегда можно сформировать динамически. Может быть это будет медленно, но работать будет. 0

@Alexey2002 0 / 0 / 0 Регистрация: 04.02.2008 Сообщений: 40
	21.04.2008, 18:55 [ТС]
	Спасибо за ответ. Все получилось, только мне нужен формат таблиц VisualFoxPro, а он отличается от 'DBASE IV', по крайней мере когда дело доходит до memo полей. Можно ли подробнее объяснить следующую строку кода, я пока не нашел в справке описания. cnn.Properties('Extended Properties').Value = 'DBASE IV' 0

@palva 4278 / 2970 / 693 Регистрация: 08.06.2007 Сообщений: 9,930 Записей в блоге: 5
	21.04.2008, 21:54
	Сомневаюсь, что вы сможете при помощи ADO работать с Memo-полями. Объяснить смысл строки не могу. Пишу ее как иероглиф, когда мне нужно. Документация находится в MSDN в статье mk:@MSITStore:C:Program%20FilesMicrosoft %20Visual%20StudioMSDN2001JUL1033 echart.chm::/html/adoproperties.htm#adoproperties_extended settings Если вам ОЧЕНЬ нужно, то могу прислать. Просто не хочется заниматься декомпиляцией хелпа. 0

@Alexey2002 0 / 0 / 0 Регистрация: 04.02.2008 Сообщений: 40
	22.04.2008, 12:25 [ТС]
	В принципе у меня получилось следующим образом - Set cnn = CreateObject('ADODB.Connection') cnn.Open 'Driver={Microsoft Visual FoxPro Driver};' & _ 'SourceType=DBF;' & _ 'SourceDB=d:aa;' & _ 'Exclusive=Yes;' cnn.Execute 'CREATE TABLE d:aa 1 (col1 NUMERIC(6,2), col2 memo)' cnn.Execute 'INSERT INTO t1 VALUES (1343.23, 'q5bdsj')' cnn.Close и смущает лишь непонимание ConnectionString. Т.е. почему именно так, а не как-то иначе. И может немного глуповатый вопрос, но как воспользоваться ссылкой в MSDN о которой иде речь выше? Я нашел файл techart.chm запустил его появился хелп по Technical Articles. И что делать дальше я не знаю. Запустить всю строку из Far тоже не получается. 0

@palva 4278 / 2970 / 693 Регистрация: 08.06.2007 Сообщений: 9,930 Записей в блоге: 5
	22.04.2008, 13:59
	Гениально! Теперь буду знать, как работать с мемо полями. Интересно, можно ли создать индекс. А строка соединения для меня как стандарнтное заклинание, которое надо раз в жизни скопировать из какой нибудь программистской конфы и использовать. Формат этой строки сильно зависит от применяемого драйвера. То есть, в принципе вид этой строки должен содержаться в документации по драйверу. Но вникать в подробности довольно тоскливо. Теперь о ссылке. Это скорее не ссылка а наводка. Нужной статьи в конкретном варианте файла может не оказаться. Состав статей меняется от выпуска к выпуску. Если вы открыли techart.chm, то нужно щелкнуть правой кнопкой мыши на одном из пунктов содержания и выбрать последний элемент меню 'Jump to URL...' Появится две строки. Верхняя серая содержит адрес щелкнутого пункта, нижнюю нужно заполнить. Проще всего выделить содержимое верхней строки, скопировать ее в нижнюю и там заменить то что следует после TECHART.CHM тем что стоит у меня в этом же месте. 0

@Alexey2002 0 / 0 / 0 Регистрация: 04.02.2008 Сообщений: 40
	22.04.2008, 15:16 [ТС]
	спасибо за помощь. 0