LOTUS CONNECTOR

例:FieldInfo メソッド
次のエージェントは SQL 検索を実行し、結果セットの各フィールドについて情報を表示します。

Uselsx "*LSXODBC"

Sub Initialize
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim msg As String
Dim fieldInfo As Variant
Set qry.Connection = con
Set result.Query = qry
con.ConnectTo("ATDB")
qry.SQL = "SELECT * FROM STUDENTS"
result.Execute
For i = 1 To result.NumColumns
fieldInfo = result.FieldInfo(i)
msg = "Field info:"& Chr(10)
msg = msg & Chr(10) & "Table name:" & _
fieldInfo(DB_INFO_TABLENAME)
If fieldInfo(DB_INFO_READONLY) = DB_READONLY Then
msg = msg & Chr(10) & "Read-only"
Elseif fieldInfo(DB_INFO_READONLY) = _
DB_READWRITE Then
msg = msg & Chr(10) & "Read-write"
Else
msg = msg & Chr(10) & _
"Read-only status unknown"
End If
msg = msg & Chr(10) & "Display size:" & _
fieldInfo(DB_INFO_DISPLAYSIZE)
msg = msg & Chr(10) & "Length:" & _
fieldInfo(DB_INFO_LENGTH)
msg = msg & Chr(10) & "Native data type:" & _
fieldInfo(DB_INFO_NATIVE_DATATYPE)
msg = msg & Chr(10) & "Precision:" & _
fieldInfo(DB_INFO_PRECISION)
Messagebox msg,, i & " " & result.FieldName(i)
Next
result.Close(DB_CLOSE)
con.Disconnect
End Sub

関連項目