Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создать Аксесс-базу из программы / 6 сообщений из 6, страница 1 из 1
15.05.2007, 09:17
    #34525083
Программист Дёня
Программист Дёня
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создать Аксесс-базу из программы
Хочу узнать, я точно помню, есть така возможность: с помощью объектов Workspace, Database и Table программно создавать базы данных из нужного кол-ва полей и прочего.
Не хочу делать шаблоны баз, а потом их копировать в нужные места, а чтоб програ сама всё делала

Напомните, пожалуйста, как такое можно замутить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.05.2007, 09:33
    #34525125
buser
buser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создать Аксесс-базу из программы
Такая возможность есть в ADOX...
Код: plaintext
1.
2.
3.
4.
5.
Dim objCat As New ADOX.Catalog
Dim sFullPath As String
sFullPath = "C:\cnc.mdb"
sFullPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sFullPath
objCat.Create(sFullPath)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.05.2007, 09:36
    #34525130
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создать Аксесс-базу из программы
так создашь файлик mdb
Код: plaintext
1.
Dim DB As DAO.Database
Set DB = DBEngine.Workspaces( 0 ).CreateDatabase(App.Path & "tmp", dbLangCyrillic)
так создашь таблицу в этом файлике
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim t1 As DAO.TableDef
Dim F1 As DAO.Field

Set t1 = db.CreateTableDef("Таблица1")
Set F1 = t1.CreateField("PRIZN", dbText,  2 ):        t1.Fields.Append F1
Set F1 = t1.CreateField("DETAL", dbText,  14 ):       t1.Fields.Append F1
Set F1 = t1.CreateField("NAIMD", dbText,  45 ):       t1.Fields.Append F1
db.TableDefs.Append t1
Set t1 = Nothing
Set F1 = Nothing

DB.Close:   Set DB = Nothing
к стати DAO есть на любом комфутере, где есть офис
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.05.2007, 13:31
    #34526129
Программист Дёня
Программист Дёня
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создать Аксесс-базу из программы
klen_к стати DAO есть на любом комфутере, где есть офис

very спасибо!

но вопрос как раз в том, что создавать базу надо там, где офиса нет, а только моя прога стоит

Вобщем, всем спасибо!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.05.2007, 16:12
    #34526685
AndrF
AndrF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создать Аксесс-базу из программы
Программист Дёняно вопрос как раз в том, что создавать базу надо там, где офиса нет, а только моя прога стоит

Ни в одном из приведенных выше примеров для создания базы офис не требовался. Совсем.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.05.2007, 18:00
    #34527183
Программист Дёня
Программист Дёня
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создать Аксесс-базу из программы
AndrF Программист Дёняно вопрос как раз в том, что создавать базу надо там, где офиса нет, а только моя прога стоит

Ни в одном из приведенных выше примеров для создания базы офис не требовался. Совсем.

Спасибо и тебе, уж в этом я и сам убедился.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создать Аксесс-базу из программы / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 492ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2164036]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 185ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 237ms
total:  492ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]