как добавить программно новый столбец в таблицу? / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / как добавить программно новый столбец в таблицу?

9 сообщений из 9, страница 1 из 1

как добавить программно новый столбец в таблицу?

#32245714

nataSid

Гость

Привет. Подсунули программу на Access, а я новичок в этом.

импортирую свободную, внешнюю таблицу .mdb в свою базу данных. Потом надо программно добавить в нее новый столбец. Как это сделать?

...

Рейтинг:

0 / 0

25.08.2003, 08:35

| Ответить | Цитировать | Написать

как добавить программно новый столбец в таблицу?

#32245731

Alexander G

Участник

Откуда: Чукчи мы, однако

Сообщения: 3 280

Рейтинг: 0 / 0

проще всего через SQL

Код: plaintext

CurrentDb.Execute  "ALTER TABLE meTable ADD COLUMN myField TEXT(120 );"

...

Рейтинг:

0 / 0

25.08.2003, 09:06

| Ответить | Цитировать | Написать

как добавить программно новый столбец в таблицу?

#32245893

nataSid

Гость

Dim dbs As Database
Dim T1 As Recordset, T2 As Recordset, T3 As Recordset
Dim ok As Variant

Set dbs = DBEngine.Workspaces(0).Databases(0)
Set T1 = dbs.OpenRecordset("История услуг АПП", dbOpenDynaset)
Set T2 = dbs.OpenRecordset("Городские", dbOpenDynaset)

If yn = 7 Then
Exit Function
End If

myTable = "История услуг АПП"
myField = "who"
CurrentDb.Execute "ALTER TABLE myTable ADD COLUMN myField TEXT(15);"

У меня ошибку выдает, что не может найти таблицу или индекс.
Что делаю не так?

...

Рейтинг:

0 / 0

25.08.2003, 11:16

| Ответить | Цитировать | Написать

как добавить программно новый столбец в таблицу?

#32245911

Alexander G

Участник

Откуда: Чукчи мы, однако

Сообщения: 3 280

Рейтинг: 0 / 0

Вы же формируете строку c использованием переменной

Код: plaintext

1.
2.

myTable =  "История услуг АПП"  
myField =  "who"  
CurrentDb.Execute  "ALTER TABLE "  & myTable &  " ADD COLUMN "  & myField &  " TEXT(15 );"

...

Рейтинг:

0 / 0

25.08.2003, 11:25

| Ответить | Цитировать | Написать

как добавить программно новый столбец в таблицу?

#32245939

Alexander G

Участник

Откуда: Чукчи мы, однако

Сообщения: 3 280

Рейтинг: 0 / 0

Еще и имя таблицы с пробелами. Извиняюсь, тогда так
myTable = "История услуг АПП"
myField = "who"
CurrentDb.Execute "ALTER TABLE [" & myTable & "] ADD COLUMN " & myField & " TEXT(15);"

...

Рейтинг:

0 / 0

25.08.2003, 11:39

| Ответить | Цитировать | Написать

как добавить программно новый столбец в таблицу?

#32245944

nataSid

Гость

Ну да.....
Так все равно не работает.... Пишет, что ошибка синтаксиса в инструкции Alter Table....
Что еще не так?
Может таблицу не так открываю или еще что?
Подскажите. :) Ну новичок я в Аксесе...... и спросить не у кого.. :(

...

Рейтинг:

0 / 0

25.08.2003, 11:43

| Ответить | Цитировать | Написать

как добавить программно новый столбец в таблицу?

#32245971

Лох Позорный

Участник

Сообщения: 9 537

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.

Dim td As TableDef
Set td = CurrentDb.TableDefs![История услуг АПП]

Dim fld As Field
Set fld = td.CreateField( "who" , dbText,  15 )

td.Fields.Append fld

...

Рейтинг:

0 / 0

25.08.2003, 11:54

| Ответить | Цитировать | Написать

как добавить программно новый столбец в таблицу?

#32245976

nataSid

Гость

Спасибо )))))))

...

Рейтинг:

0 / 0

25.08.2003, 11:57

| Ответить | Цитировать | Написать

как добавить программно новый столбец в таблицу?

#32245981

assa

Участник

Откуда: мы сами не местные

Сообщения: 3 467

Рейтинг: 0 / 0

В общем случае
Dim sSQL AS String
sSQL = "Нечто вычисляемое в зависимости от"
CurrentDb.Execute sSQL

при ошибке: в отладчике спрашиваем:
?sSQL

, если ошибок в строке глазом не видим - тащим в окно запроса и там доводим до ума. Затем решаем обратную задачу (составление правленной строки SQL в VBA коде).

В вашем случае просто имеет смысл сделать все подстановки самому (они у Вас не меняются):

Const sSQL = "ALTER TABLE [История услуг АПП] ADD COLUMN who TEXT(15);"

туда подставляете "отлаженную" строку из конструктора запросов (вид "SQL").

...

Рейтинг:

0 / 0

25.08.2003, 12:00

| Ответить | Цитировать | Написать

9 сообщений из 9, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / как добавить программно новый столбец в таблицу?

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=32245893&tid=1679755]:	0ms
get settings:	9ms
get forum list:	15ms
check forum access:	3ms
check topic access:	3ms
track hit:	37ms
get topic data:	12ms
get forum data:	3ms
get page messages:	58ms
get tp. blocked users:	2ms
others:	223ms

total:	365ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы