Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > автоматическое построение БД

Автор: shugar 30.5.2005, 21:28

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

Автор: Akina 31.5.2005, 08:28

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

Автор: Naghual 31.5.2005, 10:41

Тебе в FAQ!

Автор: Voldemar2004 31.5.2005, 12:21

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

Подойдет? smile

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

Автор: Igor Graf 1.6.2005, 08:17

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

Код


 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