Как на ВБ6 програмно добавить таблицу?

[Pavlenko_e]

Как на ВБ6 програмно добавить таблицу?

[Al Khamid]

H2O

[alibek]

Если в DAO, то через коллекцию TableDefs. Если в ADO, то надо подключить ADOX (Microsoft ADO Extension) и работать с объектом Catalog (коллекция Tables).

[Pavlenko_e]

Какую таблицу? Если MS Access, то:

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

Sub sAddTable(dbX as DAO.Database, strTableName as String, strFieldName as string, lngType, intSize as Integer)
'dbX - ссылка на объект Database
'strTableName - имя добавляемой таблицы
'strFieldName - имя поля
'lngType - тип поля (text, integer, long, memo ...)
'intSize - размер в байтах (нужно только для текстового поля)

dim tblX as DAO.TableDef, fldX as DAO.Field

    set tblX = dbX.CreateTableDef(strTableName)
    set fldX = tblX.CreateField(strFieldName,lngType,intSize)
    tblX.Fields.Append fldX
    tblX.Fields.Refresh
    dbX.TableDefs.Append tblX
    dbX.TableDefs.Refresh
end sub


Обрати внимание, что при создании таблицы ОБЯЗАТЕЛЬНО нужно создать хотя бы одно поле, иначе таблица не будет добавлена.
Если вдруг не знаешь, то объект Database создается методом OpenDataBase:

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

set dbX=DAO.OpenDataBase(<Путь к файлу .MDB>)


Пасибки конечто... Но я не понял как вызывать Эту процедуру если не сложно можеш написать