Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменение даты создания таблицы и прочих свойств программно / 3 сообщений из 3, страница 1 из 1
26.02.2006, 18:29:01
    #33566257
Pantalone
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменение даты создания таблицы и прочих свойств программно
Работаю с Access, нужно программным путем менять дату создания у некоторых таблиц и описание таблицы (которое можно увидеть если кликнут на таблице правой мышкой и выбрать свойства), плюс некоторых описаний полей.
Могу я такое провернуть?
И в каких еще СУБД такое поддерживается?
...
Рейтинг: 0 / 0
26.02.2006, 20:15:41
    #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
26.02.2006, 20:27:07
    #33566404
Pantalone
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменение даты создания таблицы и прочих свойств программно
Спасибо!
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменение даты создания таблицы и прочих свойств программно / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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