vb+sql 请问判断数据库字段类型的语句怎么写？

Question

vb+sql，程序代码如下：
 Select Case rst.Fields(strFieldName).Type
        Case 数字
        Case 字符
 End Select
 
 请问这里的数字，字符改用什么代替呢？

Answer 1

看这个：
http://www.csdn.net/develop/read_article.asp?id=15422

Answer 2

Select Case IsNumeric(rst.Fields(strFieldName))
        Case true
        Case false
 End Select

Answer 3

sorry,错误啦，字符也可以IsNumeric

Answer 4

RS.Open "EXEC sp_columns @table_name = 'Main'", cn
RS.MoveFirst
Do Until RS.EOF
   Debug.Print RS("TYPE_NAME")
   Debug.Print RS("PRECISION")
   Debug.Print RS("SCALE")
  RS.MoveNext
Loop
RS.Close

Answer 5

Dim rsTemp As Recordset
Select Case rsTemp.Fields(strfieldname).Type
    Case vbString '字符串
    Case vbDate '日期
    Case Else '为数字
End Sub