VPF::автоматическое построение БД - Форум программистов

shugar

Дата 30.5.2005, 21:28 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Народ! подкиньте исходник, чтобы автоматически создавать БД на acces. я видел нечто подобное, но забыл где... там процедула, а в ней там кодом все задается. и название БД, и полей и таблицы. в общем чтобы ручками на делать , а наштамповать шаблонных таблиц.

Akina

Дата 31.5.2005, 08:28 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Берем встроенную справку Аксесса и смотрим хельпы по Database, Tabledef...

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Naghual

Дата 31.5.2005, 10:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49

Тебе в FAQ!

--------------------

Я желаю всем Счастья!

Voldemar2004

Дата 31.5.2005, 12:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23

http://forum.vingrad.ru/index.php?showtopic=49452&view=all

Подойдет? smile

Там у меня несколько опечаток. Ну ты разберешься я думаю. smile

--------------------

i_i
(';')
(V)

user posted image

Igor Graf

Дата 1.6.2005, 08:17 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 152
Регистрация: 10.2.2005

Репутация: нет
Всего: нет

Привет, ты это искал?
Я тоже не не помню, где это было, но топик по моему называется "Создание базы данных"

Код


 Dim newDB As DAO.Database
   Dim newTD As DAO.TableDef
   Dim newFD As DAO.Field
   Dim NewID As DAO.Index

Код


 Set newDB = DAO.Workspaces(0).CreateDatabase("\\server\base\" & Text1.Text & ".mdb", dbLangGeneral & ";pwd='" & Text11.Text & "'", dbVersion30 + dbEncrypt)
   Set newTD = newDB.CreateTableDef("'" & Text2.Text & "'")
   Set newFD = newTD.CreateField("ID", dbLong)
   newFD.Required = True
   newTD.Fields.Append newFD
    Set newFD = newTD.CreateField("Ôàìèëèÿ,èìÿ,îò÷åñòâî", dbMemo)
   newFD.AllowZeroLength = False
   newFD.Required = False
   newTD.Fields.Append newFD
   Set newFD = newTD.CreateField("Äîëæíîñòü,ñòàâêà", dbMemo)
   newFD.Required = False
   newTD.Fields.Append newFD
   Set newFD = newTD.CreateField("1", dbMemo)
   newFD.Required = False
   newTD.Fields.Append newFD
   Set newFD = newTD.CreateField("2", dbMemo)
   newFD.Required = False
   newTD.Fields.Append newFD
   Set newFD = newTD.CreateField("3", dbMemo)  
 
  Set NewID = newTD.CreateIndex("'" & Text2.Text & "'_ID")
   NewID.Fields = "+ID"
   NewID.Primary = True
   NewID.Required = True
   NewID.Unique = True
   newTD.Indexes.Append NewID
   
   newDB.TableDefs.Append newTD
   newDB.TableDefs.Refresh
  
   newDB.Close

Это сообщение отредактировал(а) Igor Graf - 1.6.2005, 08:19

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »