Можно-ли создать программно на 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

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

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

	Можно-ли создать программно на VB базу данных FoxPro (.dbf)? 20.03.2008, 06:11. Показов* 2998. Ответов 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 4278 / 2970 / 693 Регистрация: 08.06.2007 Сообщений: 9,930 Записей в блоге: 5
	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