Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ОписАние поля таблицы Access / 3 сообщений из 3, страница 1 из 1
12.01.2007, 13:11
    #34251464
assist
assist
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ОписАние поля таблицы Access
Здравствуйте!!!!

Есть БД Access, содержащая таблицу, в таблице для каждого поля есть описание. Можно ли извлечь эту информацию, а также изменить или удалить? И как это сделать? Подключаюсь через ADO.

Заранее благодарен!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.01.2007, 13:20
    #34251496
RVI
RVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ОписАние поля таблицы Access
Могу предложить пример, как программно изменить описание поля таблицы, правдо DAO:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Sub SetFieldDescription(ByVal TableName As String, ByVal FieldName As String, ByVal FieldDescription As String)
    Dim DB As DAO.Database
    Dim tbl As DAO.TableDef
    Dim fld As DAO.Field
    
    Set DB = CurrentDb()
    Set tbl = DB.TableDefs(TableName)
    Set fld = tbl.Fields(FieldName)
    
    On Error GoTo err_
    fld.Properties("Description") = FieldDescription
    
    Exit Sub
    
err_:
    If Err.Number =  3270  Then
        fld.Properties.Append fld.CreateProperty("Description", dbText, FieldDescription)
    Else
        Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext
    End If
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
20.09.2019, 18:31
    #39864814
kulib
kulib
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ОписАние поля таблицы Access
Здравствуйте! А никто не подскажет почему у меня это не работает? Тормозится на tdf.Properties.Append prp. Ошибка 3367 "Добавление объекта невозможно. Он уже входит в семейство"
Все референсы вроде подключены.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
Option Compare Database

Option Compare Database

Function TEST() '

DoCmd.SetWarnings False
    
    Dim dbs As DAO.Database, Properties As DAO.Properties
    Dim QName As String 'имя запроса

Set dbs = CurrentDb

'здесь просто убиваю тестовые результаты
On Error Resume Next
    DoCmd.DeleteObject acQuery, "Запрос NEW"
'    DoCmd.DeleteObject acQuery, "Запрос1 NEW"
On Error GoTo 0

QName = "Запрос" 'есть запрос на объединение здесь называется "Запрос2"


txtSQL = dbs.QueryDefs(QName).SQL
'просто создаю его копию
    Set MyQuery = dbs.CreateQueryDef(QName & " NEW", txtSQL)
        dbs.TableDefs.Refresh
'дальше хочу создать описание объекта (созданного запроса)
    sDescr = dbs.Containers("tables").Documents(QName).Properties("description") 'читаем описание объекта, которое есть по-любому (по условию)
    
    Set tdf = dbs.QueryDefs(QName)
    Set prp = tdf.CreateProperty("description", dbText, sDescr)
    dbs.TableDefs.Refresh
    tdf.Properties.Append prp 'здесь проявляется ошибка 3367
    Set tdf = Nothing
        
        
        Set MyQuery = Nothing
    Return

End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / ОписАние поля таблицы Access / 3 сообщений из 3, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 421ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1610468]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 35ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 39ms
get tp. blocked users:
 2ms
others: 307ms
total:  421ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]