Вы правы, в таблице DataDictionary есть не все данные для последующего создания таблиц ( много нужно допиливать руками).
Поэтому выкладываю процедуру, которая создает таблицу DataDictionary - и которая может делать не все, что хотелось бы.
Запускается процедура открытием формы fDataDictionary. Форму выложить не могу- допустивый размер вложения (150Kb) не позволяет.
Прошу посмотреть ее, и, по возможности, доработать- что бы кроме имени таблицы, имен полей, их вида были еще все остальные свойства
И в процедуре по воссозданию таблиц- также учитывать все свойства.
Такая не простая задачка.
Возможно кто-либо захочет ее решить?
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.
Option Compare Database
Option Explicit
Private Sub Form_Load()
Me.lstColumns.Requery
End Sub
Private Sub Form_Open(Cancel As Integer)
Dim cnn As ADODB.Connection
Dim cmdDelete As ADODB.Command
Dim rstDictionary As ADODB.Recordset
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim col As ADOX.Column
Set cnn = CurrentProject.Connection
Set cmdDelete = New ADODB.Command
Set cmdDelete.ActiveConnection = cnn
cmdDelete.CommandText = "Delete * From DataDictionary"
cmdDelete.Execute
Set rstDictionary = New ADODB.Recordset
rstDictionary.Open "Select * From DataDictionary", cnn, adOpenStatic, adLockOptimistic
Set cat = New ADOX.Catalog
Set cat.ActiveConnection = CurrentProject.Connection
For Each tbl In cat.Tables
If Left(tbl.Name, 4) <> "MSys" And _
Left(tbl.Name, 4) <> "USys" And _
Left(tbl.Name, 4) <> "TMP" Then
For Each col In tbl.Columns
rstDictionary.AddNew
rstDictionary.Fields("TableName").Value = tbl.Name
rstDictionary.Fields("ColumnName").Value = col.Name
rstDictionary.Fields("Type").Value = TranslateType(col.Type)
rstDictionary.Update
Next col
End If
Next tbl
rstDictionary.Close
End Sub
Public Function TranslateType(intType As Integer) As String
Select Case intType
Case adUnsignedTinyInt
TranslateType = "Byte"
Case adCurrency
TranslateType = "Currency"
Case adDate
TranslateType = "Date/Time"
Case adNumeric
TranslateType = "Decimal"
Case adDouble
TranslateType = "Double"
Case adLongVarWChar
TranslateType = "Memo"
Case adSmallInt
TranslateType = "Integer"
Case adInteger
TranslateType = "Long Integer"
Case adLongVarBinary
TranslateType = "OLE Object"
Case adGUID
TranslateType = "Replication ID"
Case adSingle
TranslateType = "Single"
Case adVarWChar
TranslateType = "Text"
Case adBoolean
TranslateType = "Yes/No"
End Select
End Function
