获取表中字段类型(文本)

Function TypeName(num)
	Select Case num
		Case 3
			TypeName = "自动编号/数字"
		Case 6
			TypeName = "货币"
		Case 7
			TypeName = "日期/时间"
		Case 11
			TypeName = "是/否"
		Case 202
			TypeName = "文本"
		Case 203
			TypeName = "备注/超链接"
		Case 205
			TypeName = "OLE对象"
		End Select
End Function

Function TypeName(num)
	Select Case num
		Case 2
			TypeName = "smallint"
		Case 3
			TypeName = "int"
		Case 4
			TypeName = "real"
		Case 5
			TypeName = "float"
		Case 6
			TypeName = "money/smallmoney"
		Case 11
			TypeName = "bit"
		Case 12
			TypeName = "sql_variant"
		Case 17
			TypeName = "tinyint"
		Case 20
			TypeName = "bigint"
		Case 72
			TypeName = "uniqueidentifier"
		Case 128
			TypeName = "binary/timestamp"
		Case 129
			TypeName = "char"
		Case 130
			TypeName = "nchar"
		Case 131
			TypeName = "decimal/numeric"
		Case 135
			TypeName = "datetime/smalldatetime"
		Case 200
			TypeName = "varchar"
		Case 201
			TypeName = "text"
		Case 202
			TypeName = "nvarchar"
		Case 203
			TypeName = "ntext"
		Case 204
			TypeName = "varbinary"
		Case 205
			TypeName = "image"
		End Select
End Function