擷取ACCESS表結構

經常有朋友問怎麼得到ACCESS的表結構。

1. Public Sub getTables()
2.     Dim rs As New ADODB.Recordset
3.     Dim conn As ADODB.Connection
4.     Dim sSql As String
5.     
6.     
7.     Set conn = CurrentProject.Connection
8.     sSql = "select id,Name from MSysObjects where Type=1 and flags=0"
9.     rs.Open sSql, conn
10.     Do While Not rs.EOF
11.         Debug.Print "****"; rs.Fields("Name").Value; "****************"
12.         getTableColumns rs.Fields("Name").Value
13.         rs.MoveNext
14.     Loop
15.     rs.Close
16.     Set rs = Nothing
17.     Set conn = Nothing
18.     
19. End Sub
21. Public Sub getTableColumns(sTableName As String)
22.     Dim rs As New ADODB.Recordset
23.     Dim conn As ADODB.Connection
24.     Dim fld As ADODB.Field
26.     Set conn = CurrentProject.Connection
27.     rs.Open sTableName, conn, , , adCmdTable
29.     
30.     For Each fld In rs.Fields
31.         Debug.Print fld.Name, sFldType(fld.Type), fld.NumericScale, fld.Precision
32.         
33.     Next
34.     
35.     rs.Close
36.     Set rs = Nothing
37.     Set conn = Nothing
39. End Sub
43. Public Function sFldType(iType As Integer)
44.     Select Case iType
45.         Case 20
46.             sFldType = "BigInt"
47.         Case 128
48.             sFldType = "Binary"
49.         Case 11
50.             sFldType = "Boolean"
51.         Case 8
52.             sFldType = "BSTR"
53.         Case 136
54.             sFldType = "Chapter"
55.         Case 129
56.             sFldType = "Char"
57.         Case 6
58.             sFldType = "Currency"
59.         Case 7
60.             sFldType = "Date"
61.         Case 133
62.             sFldType = "DBDate"
63.         Case 134
64.             sFldType = "DBTime"
65.         Case 135
66.             sFldType = "DBTimeStamp"
67.         Case 14
68.             sFldType = "Decimal"
69.         Case 5
70.             sFldType = "Double"
71.         Case 0
72.             sFldType = "Empty"
73.         Case 10
74.             sFldType = "Error"
75.         Case 64
76.             sFldType = "FileTime"
77.         Case 72
78.             sFldType = "GUID"
79.         Case 9
80.             sFldType = "IDispatch"
81.         Case 3
82.             sFldType = "Integer"
83.         Case 13
84.             sFldType = "IUnknown"
85.         Case 205
86.             sFldType = "LongVarBinary"
87.         Case 201
88.             sFldType = "LongVarChar"
89.         Case 203
90.             sFldType = "LongVarWChar"
91.         Case 131
92.             sFldType = "Numeric"
93.         Case 138
94.             sFldType = "PropVariant"
95.         Case 4
96.             sFldType = "Single"
97.         Case 2
98.             sFldType = "SmallInt"
99.         Case 16
100.             sFldType = "TinyInt"
101.         Case 21
102.             sFldType = "UnsignedBigInt"
103.         Case 19
104.             sFldType = "UnsignedInt"
105.         Case 18
106.             sFldType = "UnsignedSmallInt"
107.         Case 17
108.             sFldType = "UnsignedTinyInt"
109.         Case 132
110.             sFldType = "UserDefined"
111.         Case 204
112.             sFldType = "VarBinary"
113.         Case 200
114.             sFldType = "VarChar"
115.         Case 12
116.             sFldType = "Variant"
117.         Case 139
118.             sFldType = "VarNumeric"
119.         Case 202
120.             sFldType = "VarWChar"
121.         Case 130
122.             sFldType = "WChar"
123.         Case Else
124.             sFldType = "unKnown"
125.     End Select
127. End Function