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

関連項目