LOTUS CONNECTOR

例:HasRowChanged メソッド
次の例には行を更新するアクション (Click サブルーチン) が含まれます。実際の更新の前に、このプログラムがフェッチしてから行が別のプログラムによって更新されていないかどうかを検査します。

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 workspace As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 Set uidoc = workspace.CurrentDocument
 Call result.SetValue("STUDENT_NO", _
 Cint(uidoc.FieldGetText("Student_No")))
 Call result.SetValue("FIRSTNAME", _
 uidoc.FieldGetText("FirstName"))
 Call result.SetValue("LASTNAME", _
 uidoc.FieldGetText("LastName"))
 Call result.SetValue("ADDRESS", _
 uidoc.FieldGetText("Address"))
 Call result.SetValue("CITY", _
 uidoc.FieldGetText("City"))
 Call result.SetValue("STATE", _
 uidoc.FieldGetText("State"))
 Call result.SetValue("ZIP", _
 uidoc.FieldGetText("Zip"))
 Call result.SetValue("PHONE", _
 uidoc.FieldGetText("Phone"))
 Call result.SetValue("CR_TO_DATE", _
 uidoc.FieldGetText("Cr_to_date"))
 If result.HasRowChanged Then
   If Messagebox("Someone else changed this row " & _
   "after you fetched it." & _
   "Do you want to proceed?", MB_YESNO, _
   "Row was changed!")<> IDYES Then
     Exit Sub
   End If
 End If
 result.UpdateRow
End Sub

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
 result.Close(DB_CLOSE)
 con.Disconnect
End Sub

関連項目