获取ACCESS表结构
来源:互联网 发布:淘宝客数据采集器 编辑:程序博客网 时间:2024/05/21 22:24
经常有朋友问怎么得到ACCESS的表结构。
- Public Sub getTables()
- Dim rs As New ADODB.Recordset
- Dim conn As ADODB.Connection
- Dim sSql As String
- Set conn = CurrentProject.Connection
- sSql = "select id,Name from MSysObjects where Type=1 and flags=0"
- rs.Open sSql, conn
- Do While Not rs.EOF
- Debug.Print "****"; rs.Fields("Name").Value; "****************"
- getTableColumns rs.Fields("Name").Value
- rs.MoveNext
- Loop
- rs.Close
- Set rs = Nothing
- Set conn = Nothing
- End Sub
- Public Sub getTableColumns(sTableName As String)
- Dim rs As New ADODB.Recordset
- Dim conn As ADODB.Connection
- Dim fld As ADODB.Field
- Set conn = CurrentProject.Connection
- rs.Open sTableName, conn, , , adCmdTable
- For Each fld In rs.Fields
- Debug.Print fld.Name, sFldType(fld.Type), fld.NumericScale, fld.Precision
- Next
- rs.Close
- Set rs = Nothing
- Set conn = Nothing
- End Sub
- Public Function sFldType(iType As Integer)
- Select Case iType
- Case 20
- sFldType = "BigInt"
- Case 128
- sFldType = "Binary"
- Case 11
- sFldType = "Boolean"
- Case 8
- sFldType = "BSTR"
- Case 136
- sFldType = "Chapter"
- Case 129
- sFldType = "Char"
- Case 6
- sFldType = "Currency"
- Case 7
- sFldType = "Date"
- Case 133
- sFldType = "DBDate"
- Case 134
- sFldType = "DBTime"
- Case 135
- sFldType = "DBTimeStamp"
- Case 14
- sFldType = "Decimal"
- Case 5
- sFldType = "Double"
- Case 0
- sFldType = "Empty"
- Case 10
- sFldType = "Error"
- Case 64
- sFldType = "FileTime"
- Case 72
- sFldType = "GUID"
- Case 9
- sFldType = "IDispatch"
- Case 3
- sFldType = "Integer"
- Case 13
- sFldType = "IUnknown"
- Case 205
- sFldType = "LongVarBinary"
- Case 201
- sFldType = "LongVarChar"
- Case 203
- sFldType = "LongVarWChar"
- Case 131
- sFldType = "Numeric"
- Case 138
- sFldType = "PropVariant"
- Case 4
- sFldType = "Single"
- Case 2
- sFldType = "SmallInt"
- Case 16
- sFldType = "TinyInt"
- Case 21
- sFldType = "UnsignedBigInt"
- Case 19
- sFldType = "UnsignedInt"
- Case 18
- sFldType = "UnsignedSmallInt"
- Case 17
- sFldType = "UnsignedTinyInt"
- Case 132
- sFldType = "UserDefined"
- Case 204
- sFldType = "VarBinary"
- Case 200
- sFldType = "VarChar"
- Case 12
- sFldType = "Variant"
- Case 139
- sFldType = "VarNumeric"
- Case 202
- sFldType = "VarWChar"
- Case 130
- sFldType = "WChar"
- Case Else
- sFldType = "unKnown"
- End Select
- End Function
- 获取ACCESS表结构
- ASP获取ACCESS数据库表名及结构的代码
- ASP获取ACCESS数据库表名及结构的代码
- access导出表结构
- access 表结构详细
- java获取Oracle和access数据库结构
- 获取Access系统表
- 获取Access系统表
- 添加/修改access表结构
- ADO ACCESS 获取表名
- 获取Access表的信息
- 复制access表结构到另一个access表
- 动态创建ACCESS数据库及其表结构
- 本文使用c#通过oledb可获取excel文件表的结构信息,同理也可以获得access等数据库的表结构信息,实现如下:
- 获取数据库表结构
- 获取数据库表结构
- 获取表结构
- java 获取表结构
- 调试:GetOpenFileName()在装有Adobe Acrobat 7.0的SP2以上XP系统上调用时的崩溃问题
- 理解ASP.NET 2.0中的单点登录 (转)
- JavaScript的一些实用技巧-3
- 超强的指针 *一辈子都找不到的牛B贴
- 在服务器端运行JavaScript文件(二)
- 获取ACCESS表结构
- JavaScript的一些实用技巧-4
- JavaScript的一些实用技巧-5
- 性能测试
- 不到半年“鸟巢”已经变成了这样!
- JavaScript的一些实用技巧-6
- error LNK2001: unresolved external symbol _WSACleanup@0错误的解决
- 大家看看 没有事情可以赚点小钱
- 你的灯还亮吗-无穷无尽的问题