Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Access-2000 и ErWin ?  [new]
insect
Member

Откуда: Vladimir
Сообщений: 275
Уважаемые,
создал структуру базы в ErWin 4.1 для Microsoft Access. ErWin создал мне сценарий на VB, но теперь непонятно как заставить Access сделать базу в соответствии с этим сценарием?

Вид, полученного сценария похож на :
'  Starting Access Basic DAO Session...

Dim ERwinWorkspace As Workspace
Dim ERwinDatabase As Database
Dim ERwinTableDef As TableDef
Dim ERwinQueryDef As QueryDef
Dim ERwinIndex As Index
Dim ERwinField As Field
Dim ERwinRelation As Relation

Set ERwinWorkspace = DBEngine.WorkSpaces(0)

Set ERwinDatabase = ERwinWorkspace.OpenDatabase(sERwinDatabase)

'  CREATE TABLE "E/1"
Set ERwinTableDef = ERwinDatabase.CreateTableDef("E/1")
Set ERwinField = ERwinTableDef.CreateField("Field1", DB_TEXT, 20)
ERwinTableDef.Fields.Append ERwinField
Set ERwinField = ERwinTableDef.CreateField("Number1", DB_LONG)
ERwinTableDef.Fields.Append ERwinField
ERwinDatabase.TableDefs.Append ERwinTableDef

ERwinDatabase.Close
ERwinWorkspace.Close
'  Terminating Access Basic DAO Session...


Может кто знает как заставить Access сгенерировать базу по этому сценарию?




Electronic Insect
25 ноя 04, 13:03    [1134978]     Ответить | Цитировать Сообщить модератору
 Re: Access-2000 и ErWin ?  [new]
Shuhard
Member

Откуда:
Сообщений: 4998
сделай форму и на кнопку прицепи этот код - не забудь DAO прицепить
кстати - это не VB ,это VBA!
25 ноя 04, 13:07    [1134994]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить