Uselsx "*LSXODBC"

Sub Initialize
 Dim con As New ODBCConnection
 Dim qry As New ODBCQuery
 Dim result As New ODBCResultSet
 Dim msg As String
 Set qry.Connection = con
 Set result.Query = qry
 con.ConnectTo("ATDB")
 qry.SQL = "SELECT * FROM STUDENTS"
 result.Execute
 msg = "Fields in STUDENTS table:"& Chr(10)
 For i = 1 To result.NumColumns
   msg = msg & Chr(10) & i & " " & result.FieldName(i) _
   & " " & GetDataType(result.FieldNativeDataType(i))
 Next
 Messagebox msg,, "Field names"
 result.Close(DB_CLOSE)
 con.Disconnect
End Sub

Function GetDataType(typeConst As Integer) As String
 Select Case typeConst
 Case SQL_CHAR :GetDataType = "CHAR"
 Case SQL_NUMERIC :GetDataType = "NUMERIC"
 Case SQL_DECIMAL :GetDataType = "DECIMAL"
 Case SQL_INTEGER :GetDataType = "INTEGER"
 Case SQL_SMALLINT :GetDataType = "SMALLINT"
 Case SQL_FLOAT :GetDataType = "FLOAT"
 Case SQL_REAL :GetDataType = "REAL"
 Case SQL_DOUBLE :GetDataType = "DOUBLE"
 Case SQL_DATE :GetDataType = "DATE"
 Case SQL_TIME :GetDataType = "TIME"
 Case SQL_TIMESTAMP :GetDataType = "TIMESTAMP"
 Case SQL_VARCHAR :GetDataType = "VARCHAR"
 Case SQL_BINARY :GetDataType = "BINARY"
 Case SQL_VARBINARY :GetDataType = "VARBINARY"
 Case SQL_LONGVARCHAR :GetDataType = "LONGVARCHAR"
 Case SQL_LONGVARBINARY :GetDataType = "LONGVARBINARY"
 Case SQL_BIGINT :GetDataType = "BIGINT"
 Case SQL_TINYINT :GetDataType = "TINYINT"
 Case SQL_BIT :GetDataType = "BIT"
 End Select
End Function

関連項目

FieldNativeDataType メソッド

用語集