Как добавить новое поле в таблицу?

[Slavicos]

Надо добавить новое поле (столбец) в уже имеющуюся таблицу в базе данных.

[Konst_One]

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

ALTER TABLE ADD MyColumn varchar(16)

[Slavicos]

А вот нифигулечки.

Или какая то подготовка требуется.

Пишет "ожидается конец выражения" и выделяет слово add.

[alibek]

А как пишешь?
Надеюсь, не в IDE?

[Slavicos]

Умные все (кроме меня, конечно - посыпаю голову пеплом)! А как надо-то?

Или примерчик "в три строчки"
Всего-то надо добавить поле dbMemo с именем типа Me.Text3.Text в таблицу ... ну, например, strTableName из БД strDBName.

[alibek]

Подключаешься к БД (искать по слову ADODB.Connection) и посылаешь эту команду (искать по слову Execute).

[Slavicos]

Ну ...
Это уже конкретная задача к поиску.
Спасибо.

[Slavicos]

А что за дела ?

Вылезает ошибка:
"Run-time error '-2147467259 (80004005)':
[Microsoft][ODBC Driver Manager] Data sourse name not found and no
default driver specified"

Эта ошибка вылезает на словах:
Con.Open

Подключено:
Microsoft ActiveX Data Objects (Multi-dimensional) 2.7 Library
Microsoft ActiveX Data Objects 2.0 Library
Microsoft ActiveX Data Objects Recordset 2.7 Library

[Slavicos]

А что за дела ?

Вылезает ошибка:
"Run-time error '-2147467259 (80004005)':
[Microsoft][ODBC Driver Manager] Data sourse name not found and no
default driver specified"

Эта ошибка вылезает на словах:
Con.Open

Подключено:
Microsoft ActiveX Data Objects (Multi-dimensional) 2.7 Library
Microsoft ActiveX Data Objects 2.0 Library
Microsoft ActiveX Data Objects Recordset 2.7 Library

[Konst_One]

connectionstring - тебе нужен к твоему источнику правильно указать, см примеры и поиск по форуму

[GB826]

Data soursename not found and no
default driver specified"


Забавно :о)

А код можно?

[Slavicos]

Да легко. Вот отрывок:

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


    Dim Con As ADODB.Connection

'теперь добавим новое поле в БД, учитывая, что по итогам предыдущих проверок,
'такая БД есть, такая таблица есть и такого поля нет
    Set Con = New ADODB.Connection
    Con.ConnectionString = "dsn=" & Me.Text1.Text
    Con.Open
    Con.Execute ("ALTER " & me.text2.text & " ADD " & me.Text3.text & " dbmemo")
    Con.Close
    Set Con = Nothing

Предполагается (да так и есть), что файл *.mdb лежит вместе с программой.
Кстати, в следующих строках
Con.ConnectionString = "dsn=" & Me.Text1.Text
и
Con.Execute ("ALTER " & me.text2.text & " ADD " & me.Text3.text & " dbmemo")
пробовал и с кавычками и с другим расположением кавычек, но вообще, наверно, провильно именно так.

[Konst_One]

ODBC DSN создал к своей базе с именем , которое ты в Me.Text1 вводишь:?:

[Slavicos]

Да, именно так.

Вводится имя базы данных, имя таблицы и имя нового поля.