NewTable

[Mopo]

Народ. У меня есть база. Мне надо программно добавить в нее таблицу с какими-либо полями. Как это сделать, подскажите, плз...

[Ennor]

Через что коннектишься - DAO, RDO, ADO?..

[Mopo]

хбз... в свойствах data1 прописываю путь к акцессовской базе...

[Alexanbar]

'В проекте необходимо поставить ссылку на Microsoft DAO3.51 Object Library или её аналог


Dim db As Database
Dim tblPhones As TableDef

Set db = DBEngine.OpenDatabase(Path) 'Путь к базе

Set tblPhones = db.CreateTableDef("Phones")

'Создаются два поля
With tblPhones
.Fields.Append .CreateField("PhoneNumber", dbText, 50)
.Fields.Append .CreateField("PhoneType", dbLong)
End With
db.TableDefs.Append tblPhones
db.Close

[snov]

Народ. У меня есть база. Мне надо программно добавить в нее таблицу с какими-либо полями. Как это сделать, подскажите, плз...

Пользуй
[code]
set db=opendatabase("Собсно имя")
db.execute "Create Table " & NewTblName & _
"(ID int CONSTRAINT MyIndex Primary Key, " & NewTblName & " text(255), RATE float, DATECHAN datetime);"