сохранение в формат .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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

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

	сохранение в формат .dbf 20.04.2008, 15:45. Показов 2320. Ответов 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