LOTUS CONNECTOR

例:FieldSize メソッド
次のエージェントは SQL 検索を実行し、結果セット内の各フィールドの列番号、名前、サイズを表示します。

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) _
   & " " & result.FieldSize(i)
 Next
 Messagebox msg,, "Field names and sizes"
 result.Close(DB_CLOSE)
 con.Disconnect
End Sub

関連項目