Можно-ли создать программно на VB базу данных FoxPro (*.dbf)?

@SWS · Регистрация: 10.12.2006

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

Подскажите пожалуйста, а можно-ли создать программно на VB базу данных FoxPro (*.dbf) или так и суждено создавать только 'по умолчанию' *.mdb?

20.03.2008, 07:39

Не понял. Что мещает сделать ДБФ??

@SWS · 20.03.2008, 08:03 **[ТС]**

Есть задача: Необходимо создать *.dbf (FoxPro) базу данных и заполнить ее данными. Вопрос можно-ли ее создать программно на VB, или пртдется ручками создавать, а затем программно ее заполнять.

@ma3ai · 20.03.2008, 13:24

CreateDatabase создаёт только .mdb
Видимо M$ больше любит и продвигает свой формат, а загрузку других форматов позволяет для конвертации.

@ma3ai · 20.03.2008, 13:27

Конечно, не только для конвертации - для работы тоже.
Так что придётся ручками или искать диблиотеку не для DAO

20.03.2008, 13:49

ADO тебя спасет

20.03.2008, 15:07

Кидаю круг

http://www.relib.com/forums/topic.asp?id=729044

@leha467 · 22.03.2008, 11:18

Программное создание Баз Данных - Создание Базы Даннах
Очень часто приходится писать программы работающие с БД , решение этой задачи напрашивается само по
себе – создаешь Базу Данных в Access, а затем пишешь программу-оболочку. Но что делать, если заказчику
необходимо, к примеру иметь отдельные БД для каждого календарного года, или же ежемесячные
(ежеквартальные), но что б обрабатывались они по единому принципу? Ведь не будете же вы каждый месяц
или год бегать к нему и создавать в Access все новые и новые БД, тем более если вы работаете на заказ в
'оффшоре', а создавать их заранее, как то несолидно и граничит с абсурдом. А выход из этой ситуации есть –
это VB.

Используя команды VB можно написать программу, которая создает БД или разработать программу, которая
сможет генерировать новые БД по ходу ее выполнения. В этой и последующих статьях я попытаюсь рассказать
о способах и методах программного создания Баз Данных и их управления.

Создание Базы Данных

Visual Basic содержит два объекта доступа к данным BDEngine и Workspace. Для создания БД применяется
метод CreateDatabase, который является частью объекта Workspace. Рабочая область (Workspace) создается при
каждом доступе к Jet-машине. При необходимости можно открывать другие рабочие области. Если при работе
с функциями не указывается ID-номер рабочей области, то подразумевается рабочая область по умолчанию.
При помощи оператора Dim (или Public для модуля) описываем переменную NewDB, как объект БД, создаем
рабочую область и с помощью метода CreateDatabase создаем Базу Данных.

Примечание. Установите в Refereces… вашего проекта ссылку на соответствующую библиотеку Microsoft
DAO 3.51 (или 3.6) Object Library. [ 3.51 – при наличии Access 97, 3.6 при наличии Access 2000 ]

Visual Basic
1
2
3
4
5
6
7
8
9
'Объявляем необходимые переменные 
Dim NewDB As Database 
Dim NewWs As WorkSpace 
Dim strDBPath As String 
'Устанавливаем путь к создаваемой БД с указанием ее имени (MyDB.mdb) StrDBPath = “C:ExamplDBMyDB.mdb” 
‘Создаем рабочее пространство 
Set NewWs = DBEngine.Workspaces(0) 
'Создаем Базу Данных 
Set NewDB = NewWs.CreateDatabase (strDBPath, dbLangGeneral)

Совет. Для получения имени файла БД и пути к ней можно использовать диалоговое окно Open, эл.
управления CommonDialog.

Константа dbLangGeneral является обязательным параметром метода CreateDatabase . Она описывает язык и
кодовую страницу для американских компьютеров. Для русской версии употребляют dbLangCyrillic. У метода
CreateDatabase имеется еще один параметр, этот аргумент позволяет создавать БД для Jet-машины версий 1.0;
1,1; 2,5; 3.0; 3,5 и 3.6 и шифровать БД. Для вызова этих опций нужно просуммировать константы типа long,
integer и включить результат, как последний аргумент функции.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim NewDB As Database 
Dim NewWs As WorkSpace 
Dim lngDBOpts As Long 
Dim strDBPath As String 
StrDBPath = “C:ExamplDBMyDB.mdb” 
'Устанавливаем опции 
LngDBOpts = dbVersion30 + dbEncrypt 
‘Создаем рабочее пространство 
Set NewWs = DBEngine.Workspaces(0) 
'Создаем Базу Данных 
Set NewDB = NewWs.CreateDatabase (strDBPath, dbLangCyrillic, lngDBOpts) 
‘После создания БД, закрываем ее и рабочее пространство 
NewDB.Close 
NewWs.Close 
'Уничтожаем объекты 
Set NewDB = Nothing 
Set NewWs = Nothing

После выполнения этого кода у вас создается БД, можете посмотреть. Но не удивляйтесь если она пуста, т.к
нам еще только предстоит заполнить ее таблицами. Внимание. При использовании метода CreateDatabase ,
если создаваемый файл (*.mdb) уже существует, возникает перехватываемая ошибка - 3204 – 'Database

@ma3ai · 23.03.2008, 10:20

2 le

ты наверное не присутствовал при обсуждении - речь шла об .dbf

@palva · 23.03.2008, 18:11

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 (134323, 'q5bdsj')'
cnn.Execute 'INSERT INTO tbl1 VALUES (134324, 'q3bdsj')'
cnn.Execute 'INSERT INTO tbl1 VALUES (134325, 'q4bdsj')'
cnn.Execute 'INSERT INTO tbl1 VALUES (134326, 'q0bdsj')'

Правда, это на вбскрипте, но на вижуал бейсик тоже должно работать - нет под рукой VB чтобы проверить.

@leha467 · 23.03.2008, 18:29

Извини, облажался я с базой данных :-) я сначала кинул статейки а потом прочитал вопрос внутри форума. Ну ладно может быть комунибудь пригодятся. В с связи с твоим вопросом ничего сказать не могу, так как с базами данных особо не разбирался.

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@SWS 0 / 0 / 0 Регистрация: 10.12.2006 Сообщений: 106

	Можно-ли создать программно на VB базу данных FoxPro (.dbf)? 20.03.2008, 06:11. Показов* 2978. Ответов 10 Метки нет (Все метки) Подскажите пожалуйста, а можно-ли создать программно на VB базу данных FoxPro (.dbf) или так и суждено создавать только 'по умолчанию' .mdb? 0

alexej
	20.03.2008, 07:39
	Не понял. Что мещает сделать ДБФ??

@SWS 0 / 0 / 0 Регистрация: 10.12.2006 Сообщений: 106
	20.03.2008, 08:03 [ТС]
	Есть задача: Необходимо создать *.dbf (FoxPro) базу данных и заполнить ее данными. Вопрос можно-ли ее создать программно на VB, или пртдется ручками создавать, а затем программно ее заполнять. 0

@ma3ai 0 / 0 / 0 Регистрация: 20.02.2008 Сообщений: 181
	20.03.2008, 13:24
	CreateDatabase создаёт только .mdb Видимо M$ больше любит и продвигает свой формат, а загрузку других форматов позволяет для конвертации. 0

@ma3ai 0 / 0 / 0 Регистрация: 20.02.2008 Сообщений: 181
	20.03.2008, 13:27
	Конечно, не только для конвертации - для работы тоже. Так что придётся ручками или искать диблиотеку не для DAO 0

eddy
	20.03.2008, 15:07
	Кидаю круг http://www.relib.com/forums/topic.asp?id=729044

@ma3ai 0 / 0 / 0 Регистрация: 20.02.2008 Сообщений: 181
	23.03.2008, 10:20
	2 le ты наверное не присутствовал при обсуждении - речь шла об .dbf 0

@palva 4272 / 2966 / 691 Регистрация: 08.06.2007 Сообщений: 9,915 Записей в блоге: 4
	23.03.2008, 18:11
	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 (134323, 'q5bdsj')' cnn.Execute 'INSERT INTO tbl1 VALUES (134324, 'q3bdsj')' cnn.Execute 'INSERT INTO tbl1 VALUES (134325, 'q4bdsj')' cnn.Execute 'INSERT INTO tbl1 VALUES (134326, 'q0bdsj')' Правда, это на вбскрипте, но на вижуал бейсик тоже должно работать - нет под рукой VB чтобы проверить. 0

@leha467 0 / 0 / 0 Регистрация: 16.02.2008 Сообщений: 17
	23.03.2008, 18:29
	Извини, облажался я с базой данных :-) я сначала кинул статейки а потом прочитал вопрос внутри форума. Ну ладно может быть комунибудь пригодятся. В с связи с твоим вопросом ничего сказать не могу, так как с базами данных особо не разбирался. 0