LOTUS CONNECTOR

例:GetRowStatus メソッド
次のボタンの例は現在の行の状態を表示します。ボタンを含むフォームにはほかのスクリプトが含まれます。それらは、グローバル変数を宣言する、結果セットをロードする、および結果セットを処理するスクリプトです。グローバル宣言と Postopen スクリプトの一部を次に示します。

Uselsx "*LSXODBC"

Dim con As ODBCConnection
Dim qry As ODBCQuery
Dim result As ODBCResultSet

Sub Postopen(Source As Notesuidocument)
 Set con = New ODBCConnection
 Set qry = New ODBCQuery
 Set result = New ODBCResultSet
 Set qry.Connection = con
 Set result.Query = qry
 con.ConnectTo("ATDB")
 qry.SQL = "SELECT * FROM STUDENTS ORDER BY LASTNAME"
 result.Execute
 ...
End Sub

Sub Click(Source As Button)
 Dim msg As String
 Select Case result.GetRowStatus
 Case DB_UNCHANGED :msg =  _
 "No change - same as on database"
 Case DB_ALTERED :msg = "Changed by SetValue"
 Case DB_UPDATED :msg = "UpdateRow has occurred"
 Case DB_DELETED :msg = "Deleted by DeleteRow"
 Case DB_NEWROW :msg = "New row awaiting SetValue"
 End Select
 Messagebox msg,, "Current row status"
End Sub

関連項目