powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменение даты создания таблицы и прочих свойств программно
3 сообщений из 3, страница 1 из 1
Изменение даты создания таблицы и прочих свойств программно
    #33566257
Pantalone
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Работаю с Access, нужно программным путем менять дату создания у некоторых таблиц и описание таблицы (которое можно увидеть если кликнут на таблице правой мышкой и выбрать свойства), плюс некоторых описаний полей.
Могу я такое провернуть?
И в каких еще СУБД такое поддерживается?
...
Рейтинг: 0 / 0
Изменение даты создания таблицы и прочих свойств программно
    #33566392
Код: plaintext
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.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
' Список всех свойств таблицы.
Sub GetProperties( _
  strTable As String)
    Dim db As DAO.Database
    Dim tbl As DAO.TableDef
    Dim prp As DAO.Property
    
    Set db = CurrentDb
    Set tbl = db.TableDefs(strTable)
    
    For Each prp In tbl.Properties
        Debug.Print prp.Name, prp.Value
    Next prp
    
    Set db = Nothing
End Sub

' Получить описание таблицы.
Function GetDescription( _
  strTable As String) As String
    Dim db As DAO.Database
    Dim tbl As DAO.TableDef
    Dim prp As DAO.Property
    
    On Error GoTo HandleErr:
    
    Set db = CurrentDb
    Set tbl = db.TableDefs(strTable)
    Set prp = tbl.Properties("Description")

    GetDescription = prp.Value
    
ExitHere:
    Set db = Nothing
    Exit Function

HandleErr:
    Select Case Err.Number
        Case  3270  ' Если нет описания.
            GetDescription = vbNullString
            Resume ExitHere
        Case Else
            MsgBox (Err.Number & " " & Err.Description)
    End Select
End Function

' Установить описание для таблицы.
Sub SetDescription( _
  strTable As String, _
  strDescription As String)
    Dim db As DAO.Database
    Dim tbl As DAO.TableDef
    Dim prp As DAO.Property
       
    Set db = CurrentDb
    Set tbl = db.TableDefs("tblCustomers")
    Set prp = tbl.Properties("Description")

    prp.Value = strDescription
    
    Set db = Nothing
End Sub

' Получить дату создания, дату последнего обновления.
Sub GetDates( _
  strTable As String)
    Dim db As DAO.Database
    Dim tbl As DAO.TableDef
        
    Set db = CurrentDb
    Set tbl = db.TableDefs(strTable)
     
    Debug.Print tbl.Properties("DateCreated")
    Debug.Print tbl.Properties("LastUpdated")

    Set db = Nothing
End Sub

' Установить дату создания и обновления.

' The DateCreated and LastUpdated properties, respectively,
' give you this information.
' Both properties return the date stamp applied to the table by
' the machine on which the table resided at the time it was stamped.
' These properties are only updated when the table's design changes.
...
Рейтинг: 0 / 0
Изменение даты создания таблицы и прочих свойств программно
    #33566404
Pantalone
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо!
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменение даты создания таблицы и прочих свойств программно
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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