Access2003. Можно изменить размер поля заполненной таблицы?

[igor_m]

Имеется ввиду текстовое поле.
Пробовал через ADO и ADOX присваивать новое значение Size и SizeDefined. Ругается, говорит в данном контексте операция невыполнима. Можно изменить как-то в имеющейся таблице, кроме как создать новую таблицу с нужным размером полей и туда все данные поместить?

[ger_kar]

Я честно сказать вообще из прочитанного ничего не понял. Сначала речь идет о таблице, потом имеется ввиду текстовое поле. Поле таблицы с типом данных текст что-ли? Если это, то какой размер нужно поменять - размер отображаемой ячейки (представление), либо символьный размер для данных. Опять же как поменть, вручную или программно, в какую сторону, увеличить - пожалуйста, а вот уменьшить без потерь, вряд-ли.

[iGrok]

Имеется в виду программное изменение размера(ёмкости, если хочешь) текстового поля в таблице базы данных через, например, ADOX.

Если мне не изменяет память, через ADOX этого сделать нельзя. Но можно при помощи выполнения запроса типа ALTER TABLE ALTER COLUMN.

[igor_m]

Я честно сказать вообще из прочитанного ничего не понял. Сначала речь идет о таблице, потом имеется ввиду текстовое поле. Поле таблицы с типом данных текст что-ли?

Да, речь шла о полях таблицы типа текст. При импорте данных текстовые поля по умолчанию устанавливаются size=255 байт, при том, что реально намного меньше. Вручную задалбывает лазить в конструктор и менять. Хочу сделать программно.
Простое переопределение свойства МоеПоле.Size=НовоеЗначение не получается, Access ругается если есть уже значения в поле, что "в данном контексте такая операция невыполнима". Если поле пустое (только что добавлено в таблицу и данных еще в нем нет) тогда можно переопределить его длину.
Спросил - есть ли методы или библиотеки позволяющие изменить длину поля в котором уже есть данные (типа как в конструкторе руками можно поменять).
Что касается увеличения/уменьшения - это по барабану. Когда в конструкторе меняешь, Access просто предупреждает, что длинные строки могут быть отрезаны. Это уже мои проблемы, в смысле, что запросом максимальная длина существующих значений в поле определяется за долю секунды - трудностей тут нет.

[ger_kar]

Но можно при помощи выполнения запроса типа ALTER TABLE ALTER COLUMN.

Проверил, метод работает, как в сторону увеличения, так и в сторону уменьшения, но запустить запрос удалось только через DoCmd, пробовал через ADODB, не получилось.
Только так:

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

Public Sub Test()
    Dim strSQL      As String
    strSQL = "ALTER TABLE tblКонтрагенты ALTER COLUMN Наименование TEXT(5)"
    DoCmd.RunSQL strSQL
End Sub

Интересно, а можно вообще обойтись без DoCmd?

[ger_kar]

Все прекрасно работает как через ADO, так и через DAO, я просто затупил, как всегда подвели малозаметные мелочи
Через ADO:

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

CurrentProject.Connection.Execute "ALTER TABLE tblTest ALTER COLUMN Tester Text(33)"

Через DAO:

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

CurrentDb.Execute "ALTER TABLE tblTest ALTER COLUMN Tester Text(3)"

[igor_m]

Благодарю за помощь.
Не пользовался ALTER TABLE. Все сразу упростилось.