如何取得表中字段的数据类型名称？

mrd_wxqs

如何取得表中字段的数据类型名称,
      如string,integer,long等,这些名称对应的代码又是什么.
      比如,字段.type=1,这个1对应的名称是什么.
      用vartype常数返回的值与字段.type是一致吗？
谢谢!

todaynew

Public Function GetfilType(Tbname as string,Filname as string) as string
'功能:获得字段类型
Dim rs As New ADODB.Recordset
rs.Open Tbname, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
GetfilType=rs(Filname).Type
End Function

Public Function GetfilType(Tbname as string) as string
'功能:获得字段类型列表，可用做组合框或列表框数据源
Dim rs As New ADODB.Recordset
Dim i as long
rs.Open Tbname, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
for i=0 to rs.fields.count-1
    GetfilType=GetfilType & rs(i).name & ";" & rs(i).Type
next
End Function

mrd_wxqs

谢谢todaynew的解答.
用这个函数返回的type值与vartype常数值不一致,这两者之间是没有对应关系吗?
还有用type返回的是字段类型的数值,如何才能返回字段类型的名称呢?
谢谢!