交流区软件相关 >> 怎样判断字段的类型是数字型，字符串，还是日期型
楼主 怎样判断字段的类型是数字型，字符串，还是日期型 Karlson,2013-05-16 12:32:58

DAO的示例：
Sub TypeX2()

     Dim dbsNorthwind As Database
     Dim fldLoop As Field

     Set dbsNorthwind = OpenDatabase("Northwind.mdb")

     Debug.Print "Fields in Employees TableDef:"
     Debug.Print "  Type - Name"

     ' Enumerate Fields collection of Employees table.
     For Each fldLoop In _
         dbsNorthwind.TableDefs!Employees.Fields
         Debug.Print "    " & FieldType(fldLoop.Type) & _
             " - " & fldLoop.Name
     Next fldLoop

     dbsNorthwind.Close

 End Sub


 Function FieldType(intType As Integer) As String

     Select Case intType
         Case dbBoolean
             FieldType = "dbBoolean"
         Case dbByte
             FieldType = "dbByte"
         Case dbInteger
             FieldType = "dbInteger"
         Case dbLong
             FieldType = "dbLong"
         Case dbCurrency
             FieldType = "dbCurrency"
         Case dbSingle
             FieldType = "dbSingle"
         Case dbDouble
             FieldType = "dbDouble"
         Case dbDate
             FieldType = "dbDate"
         Case dbText
             FieldType = "dbText"
         Case dbLongBinary
             FieldType = "dbLongBinary"
         Case dbMemo
             FieldType = "dbMemo"
         Case dbGUID
             FieldType = "dbGUID"
     End Select

 End Function
1
登录才能发表帖子，<点此登录>，如未注册<点此注册>
内容：

[移动版 | 传统版 | 回顶部]
Page created in 0.0781 seconds width 2 queries.