какдобавить поле в таблицу через ADO

Попробуй нечто типа

con.Execute "alter table mytable add column p3, char, not null;"

Пишу без проверок, так что посмотри справку по Access.

> Fatty
ADOX блокирует БД и переводит ее в монопольный режим использования. Не всегда приемлемо (ЯТД).

Подпись полю задается только через ADOX, другого варианта (именно для такого дела) нет. Вопрос - а кто мешает в запросе использовать конструкцию типа

select [pt3] as [Результат поля pt3] from mytable;

Из эксперимента (проводил на VB6, примерно с год назад): 2 проекта, один подключен был через ADOX, второй пытался подключиться через ADO (или ADOX). Скорее всего, я чего-то там перемудрил, но базу полностью захватил первый и не отпускал ни в какую.
По информации и общим впечатлениям обсуждения с vbstreets.ru - ADOX необходим фактически только в момент создания файла базы (того же Access, например) и некоторых специфических задач (типа ужать базу). После этого ADOX становится ненужным. Я, например, работаю с access'ной базой из-под лиспа через ado. Ничего так, пашет.

Ну извини, но тут не соглашусь. Подключись через ADO к любой существующей базе и выполни запрос вида

create table my_new_table (id autoincrement, name char(50));

Таблица будет создана (код пишу "всухую", поэтому запрос проверить не помешает). Добавив constraint, можно и ключи, и индексы задавать.
За ссылки thnx, сейчас гляну.

> Airiz
Вот пример как получить подпись поля
(готовый пример) посмотри на его основе
как его можно задать

' требуется ссылка на Microsoft DAO 3.6 Object Library
Private Function GetCaption(ByVal tblName As String, intNum As Integer) As String
On Error GoTo Err_Report
Dim tbls As TableDefs
Set tbls = CurrentDb.TableDefs
Dim tbl As TableDef
Set tbl = tbls(tblName)
If Not tbl Is Nothing Then
On Error Resume Next
GetCaption = tbl.Fields(intNum).Properties("Caption")
If Err Then
Err.Clear
GetCaption = tbl.Fields(intNum).Name
End If
On Error GoTo 0
Else
GetCaption = vbNullString
End If
Set tbl = Nothing
Set tbls = Nothing
Err_Report:
End Function
' Пример
Sub Test()
Dim i As Integer
i = 1
Dim tb As String
tb = "[Марки топлива]"
MsgBox GetCaption(tb, i)
End Sub

~'J'~

> Кулик Алексей aka kpblc
Повторю еще раз:
« Метод ADO позволяет работать ТОЛЬКО с существующими объектами независимо будь это таблица или запрос
Это цитата отца-основателя (Mr.Access)
Мне даже интересно как ты обратишься через ADO
к свойствам объекта, который еще не создан :)
~'J'~

> Fatty
я еще делала таким способом:

' Set fld = tdfNew.Fields("MEMBER")
' Set prop = fld.CreateProperty("Caption", dbText, "Memb")
' fld.Properties.Append prop
' prop = Nothing

Это насколько я поняла тоже через DAO. Потом на этой же ветке форума было сказано, что предпочтительнее использовать ADO, после чего и началось все это..