LOTUS CONNECTOR

例:TrimTrailingSpaces プロパティ
次のエージェントは、データベース内の 16 文字の DESCRIP 列を調べ、すべて空白の行を語句「The Description」に置き換えます。

Sub Initialize
 Dim con As New ODBCConnection
 Dim qry As New ODBCQuery
 Dim result As New ODBCResultSet
 Set qry.Connection = con
 Set result.Query = qry
 con.ConnectTo("ATDB")
 REM WHERE clause contains 16 spaces
 qry.SQL = "SELECT * FROM STUDENTS WHERE DESCRIP = '                '"
 result.TrimTrailingSpaces = False
 result.Execute
 result.LastRow
 For i = 1 To result.NumRows
   result.CurrentRow = i
   Call result.SetValue("DESCRIP", "The Description.")
   result.UpdateRow
 Next
 result.Close(DB_CLOSE)
 con.Disconnect
End Sub

関連項目