VB.NET：确定查询结果集中字段的数据类型？

Question

我有我从数据库中获取的数字数据。它们都是数字，但它们是int,money和real的混合。

使用VB.NET，如何以编程方式确定结果集中字段的数据类型？

Answer 1

假设这个表：

CREATE TABLE TestTable 
(
Col1 int, 
Col2 dec(9,2), 
Col3 money 
) 

有了这些值：

INSERT INTO TestTable VALUES (1, 2.5, 3.45) 

您可以使用下面的代码来获取类型为.NET类型：

Dim DSN = "SERVER=XYZ;UID=XYZ;PWD=XYZ;DATABASE=XYZ" 
    Using Con As New SqlConnection(DSN) 
     Con.Open() 
     Using Com As New SqlCommand("SELECT * FROM TestTable", Con) 
      Com.CommandType = CommandType.Text 
      Using RDR = Com.ExecuteReader() 
       If RDR.Read Then 
        Trace.WriteLine(RDR.GetProviderSpecificFieldType(0)) 'Returns System.Data.SqlTypes.SqlInt32 
        Trace.WriteLine(RDR.GetProviderSpecificFieldType(1)) 'Returns System.Data.SqlTypes.SqlDecimal 
        Trace.WriteLine(RDR.GetProviderSpecificFieldType(2)) 'Returns System.Data.SqlTypes.SqlMoney 
       End If 
      End Using 
     End Using 
     Con.Close() 
    End Using 

你可以也可以使用它来获取该类型的SQL文本版本：

Dim DSN = "SERVER=XYZ;UID=XYZ;PWD=XYZ;DATABASE=XYZ" 
    Using Con As New SqlConnection(DSN) 
     Con.Open() 
     Using Com As New SqlCommand("SELECT * FROM TestTable", Con) 
      Com.CommandType = CommandType.Text 
      Using RDR = Com.ExecuteReader() 
       If RDR.Read Then 
        Using SC = RDR.GetSchemaTable() 
         Trace.WriteLine(SC.Rows(0).Item("DataTypeName")) 'Returns int 
         Trace.WriteLine(SC.Rows(1).Item("DataTypeName")) 'Returns decimal 
         Trace.WriteLine(SC.Rows(2).Item("DataTypeName")) 'Returns money 
        End Using 
       End If 
      End Using 
     End Using 
     Con.Close() 
    End Using 

编辑

这里是如何做到这类型的比较与格式化的东西助手功能一起。输出再一次假定上面的SQL。

Dim DSN = "SERVER=XYZ;UID=XYZ;PWD=XYZ;DATABASE=XYZ" 
    Using Con As New SqlConnection(DSN) 
     Con.Open() 
     Using Com As New SqlCommand("SELECT * FROM TestTable", Con) 
      Com.CommandType = CommandType.Text 
      Using RDR = Com.ExecuteReader() 
       If RDR.Read Then 
        Trace.WriteLine(FormatNumber(RDR.Item(0), RDR.GetProviderSpecificFieldType(0))) '1 
        Trace.WriteLine(FormatNumber(RDR.Item(1), RDR.GetProviderSpecificFieldType(1))) '2.50 
        Trace.WriteLine(FormatNumber(RDR.Item(2), RDR.GetProviderSpecificFieldType(2))) '$3.45 
       End If 
      End Using 
     End Using 
     Con.Close() 
    End Using 

Private Shared Function FormatNumber(ByVal number As Object, ByVal type As Type) As String 
    If number Is Nothing Then Throw New ArgumentNullException("number") 
    If type Is Nothing Then Throw New ArgumentNullException("type") 
    If type.Equals(GetType(System.Data.SqlTypes.SqlInt32)) Then 
     Return Integer.Parse(number) 
    ElseIf type.Equals(GetType(System.Data.SqlTypes.SqlDecimal)) Then 
     Return Decimal.Parse(number.ToString()).ToString("N") 
    ElseIf type.Equals(GetType(System.Data.SqlTypes.SqlMoney)) Then 
     Return Decimal.Parse(number.ToString()).ToString("C") 
    End If 
    Throw New ArgumentOutOfRangeException(String.Format("Unknown type specified : " & type.ToString())) 
End Function 

Answer 2

只能访问基础值而不访问数据库的结构，因此无法明确地告诉数据类型是什么类型。原因是Money，Real和Int值的领域存在重叠。例如，数字4可能既是真实的，也可能是金钱。

您能否就这个问题给我们更多的背景？你是否试图将原始数据库值转换为VB.Net中的Int样式值？你能告诉我们一些代码吗？