从recordset.field.type属性获取ADO数据类型的名称？

Question

我需要从Access表中生成字段（名称，类型和大小）的列表。这个简单的VB代码给我几乎我需要什么：

Set rs = CurrentDb.OpenRecordset("myTable") 
For x = 0 To rs.Fields.Count - 1 
    Print #1, rs.Fields(x).Name & vbTab & rs.Fields(x).Type & vbTab & rs.Fields(x).Size 
Next 

但是课程的“类型”就像是“10”，而不是像“将varchar”数字常量。

我要做到这一点：

Select Case rs.Fields(x).Type 
    Case adChar 
    fieldType = "adChar" 
    Case adInteger 
    fieldType = "adInteger" 
    Case adDouble 
ETCETERA.... 

但我不知道是否有更好的办法，像DataTypeEnum.FindName（类型）：什么？

如果这是一个“愚蠢的问题”，提前道歉，但我没有在VB每天工作，谷歌没有产生明确的答案。

Answer 1

上述问题中的评论答案非常好，不幸的是他们归结为“你无法从这里得到。”没有简单的方法在字段中获取包含的数据类型。我能来最接近的是为快速正脏做到这一点：

Function Scripting() 
    Dim rs As DAO.Recordset 
    Dim ff As String 
    Dim fieldType As String 
    ff = "c:\Users\me\Desktop\Structure.txt" 
    Open ff For Output As #1 
    Set rs = CurrentDb.OpenRecordset("myTable") 
    For x = 0 To rs.Fields.Count - 1 
     Print #1, rs.Fields(x).Name & vbTab & TypeName(rs.Fields(x).Value) & vbTab & rs.Fields(x).Size 
    Next 
    Close #1 
    rs.Close 
    Set rs = Nothing 
End Function 

你会得到很好的建议转到Allen Browne的优秀网页，并抓住他的FieldTypeName（）函数更好的解决方案。

感谢大家（mehow，blackhawk，Chris Rolliston和Tim Williams）的回答。