программно добавить поле в существующеу таблице

[basicom]

Есть база.mdb одну из таблиц надо расширить(добавить несколько колонок). Работаю с DAO.
открываю базу:

Set StatWS = DBEngine.Workspaces(0)
Set StatDB = StatWS.OpenDatabase(s)
Set ConfigRS = StatDB.OpenRecordset("config", dbOpenTable)

далее ругается на метод

Set MyField = ConfigRS.CreateField(s, dbDouble)

если как в Help-е:

Dim MyDB As Database, Fd As Field
Set MyDB = Workspaces(0).OpenDatabase("BIBLIO.MDB") ' Open a database.
Fd.Name = "Phone" ' Set field properties.
Fd.Type = dbText
Fd.Size = 15
MyDB.TableDefs("Authors").Fields.Append Fd ' Add field to collection.

ругается, что объект Fd не определён

Вообщем просветите : как изменить конфигурацию таблиц

[Andrey Fedorov]

Вообще - нормальный SQL синтаксис модификации существующей таблицы ищется в HELP-е по словам ALTER TABLE...

[alibek]

Ты не указал Set Fd = New Field

[basicom]

добавил:

Set Fd = New Field

теперь ругается на метод Append:

ConfigRS.Append Fd

что ещё делаю не правильно ????

и если не затруднит, то пример с использованием ALTER TABLE (не в общих чертах а из кода)

[Andrey Fedorov]

Примерчик для ADO/DAO:

Код: Выделить всё

    Dim s As String
   
    ' ADO
    Dim cn As New ADODB.Connection, ra As New ADODB.Recordset
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Open "Data Source=" & App.Path & "\Demo.mdb"
    ' Посмотрим сколько полей в таблице (для получения имени нового поля)
    ra.MaxRecords = 1
    ra.Open "SELECT * FROM tblDemo", cn, adOpenStatic, adLockOptimistic
    s = "T" & ra.Fields.Count + 1
    ra.Close
    ' Добавим новое поле
    cn.Execute "ALTER TABLE tblDemo ADD COLUMN " & s & " TEXT(25)"
   
    ' DAO
    Dim db As DAO.Database, rd As DAO.Recordset
    Set db = DBEngine.OpenDatabase(App.Path & "\Demo.mdb", , False)
    ' Посмотрим сколько полей в таблице (для получения имени нового поля)
    Set rd = db.OpenRecordset("SELECT TOP 1 * FROM tblDemo")
    s = "T" & rd.Fields.Count + 1
    rd.Close
    ' Добавим новое поле
    cn.Execute "ALTER TABLE tblDemo ADD COLUMN " & s & " TEXT(25)"

[alibek]

А как именно ругается?

[basicom]

Спасибо! В DAO всё работает!