0

次のコードがあります

Dim dbMnt As OleDb.OleDbConnection
dbMnt = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\temp\data.mdb")
dbMnt.Open()

Dim qdfTabCols As DataTable = dbMnt.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Columns, New Object(){Nothing, Nothing, "Table1")

Dim dr As DataRow
For Each dr In qdfTabCols
    Msgbox(dr("TABLE_NAME") & " " & dr("COLUMN_NAME") & " " & dr("DATA_TYPE"))
    'In here I would like to test the column data type
Next

「For Each」内では、さまざまな列のデータ型をテストし、それらを異なる方法で処理したいと考えています。以前は、dbText、dbMemo、dbDate を使用していました。この「If」ステートメントを VB.net でどのように記述しますか?

If (dr("DATA_TYPE") = ????) Then
4

1 に答える 1

1

私が間違っていなければ、 OleDbType EnumDATA_TYPEが含まれます。これを試して ：

If (dr("DATA_TYPE") = OleDb.OleDbType.DBDate) Then
于 2013-01-31T15:22:02.653 に答える