怎麼從VB中得知我打開的數據庫表中某個字段的字段類型？

Question

Rs 即為：dim rs as adodb.recordset我degub.print rs.fields.item(1).type 得到值為：200
我查到數據庫表中此類型為：varchar
誰知道在msdn中可以有它們的對應表嗎，我查不到？

Answer 1

以前手上有一个ASP的数据库管理程序，现在搞丢了，到网上下下这方面的程序

Answer 2

固定 adTinyInt 16  
固定 adSmallInt 2  
固定 adInteger 3  
固定 adBigInt 20  
固定 adUnsignedTinyInt 17  
固定 adUnsignedSmallInt 18  
固定 adUnsignedInt 19  
固定 adUnsignedBigInt 21  
固定 adSingle 4  
固定 adDouble 5  
固定 adCurrency 6  
固定 adDecimal 14  
固定 adNumeric 131  
固定 adBoolean 11  
固定 adError 10  
固定 adGuid 72  
固定 adDate 7  
固定 adDBDate 133  
固定 adDBTime 134  
固定 adDBTimestamp 135 7 
可变 adBSTR 8 130 
可变 adChar 129 200 
可变 adVarChar 200  
可变 adLongVarChar 201 200 
可变 adWChar 130  
可变 adVarWChar 202 130 
可变 adLongVarWChar 203 130 
可变 adBinary 128  
可变 adVarBinary 204  
可变 adLongVarBinary 205 204 

Answer 3

长度 常量 编号 替换 
固定 adTinyInt 16  
固定 adSmallInt 2  
固定 adInteger 3  
固定 adBigInt 20  
固定 adUnsignedTinyInt 17  
固定 adUnsignedSmallInt 18  
固定 adUnsignedInt 19  
固定 adUnsignedBigInt 21  
固定 adSingle 4  
固定 adDouble 5  
固定 adCurrency 6  
固定 adDecimal 14  
固定 adNumeric 131  
固定 adBoolean 11  
固定 adError 10  
固定 adGuid 72  
固定 adDate 7  
固定 adDBDate 133  
固定 adDBTime 134  
固定 adDBTimestamp 135 7 
可变 adBSTR 8 130 
可变 adChar 129 200 
可变 adVarChar 200  
可变 adLongVarChar 201 200 
可变 adWChar 130  
可变 adVarWChar 202 130 
可变 adLongVarWChar 203 130 
可变 adBinary 128  
可变 adVarBinary 204  
可变 adLongVarBinary 205 204 

Answer 4

'*********************************************************
'* 名称：FieldType
'* 功能：返回字段类型
'* 用法：FieldType(nType as integer)
'*********************************************************
Public Function FieldType(nType As Integer) As String
    Select Case nType
        Case 128
            FieldType = "BINARY"
        Case 11
            FieldType = "BIT"
        Case 129
            FieldType = "CHAR"
        Case 135
            FieldType = "DATETIME"
        Case 131
            FieldType = "DECIMAL"
        Case 5
            FieldType = "FLOAT"
        Case 205
            FieldType = "IMAGE"
        Case 3
            FieldType = "INT"
        Case 6
            FieldType = "MONEY"
        Case 130
            FieldType = "NCHAR"
        Case 203
            FieldType = "NTEXT"
        Case 131
            FieldType = "NUMERIC"
        Case 202
            FieldType = "NVARCHAR"
        Case 4
            FieldType = "REAL"
        Case 135
            FieldType = "SMALLDATETIME"
        Case 2
            FieldType = "SMALLMONEY"
        Case 6
            FieldType = "TEXT"
        Case 201
            FieldType = "TIMESTAMP"
        Case 128
            FieldType = "TINYINT"
        Case 17
            FieldType = "UNIQUEIDENTIFIER"
        Case 72
            FieldType = "VARBINARY"
        Case 204
            FieldType = "VARCHAR"
        Case 200
            FieldType = ""
    End Select
End Function

Answer 5

ADO支持这个功能的
dim mRst as new adodb.redcordset
mRst.Open "Select Field1 frmo TableName",conn
mRSt.Fields.Item(0).Type

Answer 6

'用法如下  FieldType(Rs.Fields("字段").Type)Dim adoCN As New ADODB.Connection       '定义数据库的连接存放数据和代码Dim rstSchema
Dim strCnn As New ADODB.RecordsetPrivate Sub Form_Load()
      
  str1 = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=wktrade;Data Source=net5"
  adoCN.Open str1
  strCnn.Open "select * from dm_users", adoCN, adOpenDynamic, adLockBatchOptimistic
  Debug.Print FieldType(strCnn.Fields("staffcode").Type)
  strCnn.Close
  adoCN.Close
End Sub

Answer 7

'用法如下  FieldType(Rs.Fields("字段").Type)Dim adoCN As New ADODB.Connection       '定义数据库的连接存放数据和代码Dim rstSchema
Dim strCnn As New ADODB.RecordsetPrivate Sub Form_Load()
      
  str1 = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=wktrade;Data Source=net5"
  adoCN.Open str1
  strCnn.Open "select * from dm_users", adoCN, adOpenDynamic, adLockBatchOptimistic
  Debug.Print FieldType(strCnn.Fields("staffcode").Type)
  strCnn.Close
  adoCN.Close
End Sub

Answer 8

to  kevincomein(白菜) (  ) 
:在msdn中查什麼可以查到順？
to lihonggen0(李洪根,用VB，标准答案来了) (  ) ：好像不對，strCnn.Fields("staffcode").Type=200時應該是：varchar 可是你的在那裡為“” 了