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

関連項目