LOTUS CONNECTOR

例:IsValueNull メソッド
次のスクリプトは、フィールドが入力されたときに実行され、結果セットの同じ名前の列が null の場合にメッセージを表示します。ボタンを含むフォームにはほかのスクリプトが含まれます。それらは、グローバル変数を宣言する、結果セットをロードする、および結果セットを処理するスクリプトです。グローバル宣言と 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 Entering(Source As Field)
 Dim workspace As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 Set uidoc = workspace.CurrentDocument
 If result.IsValueNull(uidoc.CurrentField) Then
   Messagebox "This field is null",, "Null field"
 End If
End Sub

関連項目