LOTUS CONNECTOR

例:Connection プロパティ
次のフォームスクリプトの例は、Postopen スクリプトに必要な検索の接続を設定します。ODBCQuery の Connection プロパティは、ODBCConnection オブジェクトを指定しなければなりません。ODBCResultSet の Query プロパティは、ODBCQuery オブジェクトを指定しなければなりません。

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
End Sub

Sub Click(Source As Button)
Dim firstName As String
Dim lastName As String
Dim msg As String
con.ConnectTo("ATDB")
qry.SQL = "SELECT * FROM STUDENTS"
result.Execute
If result.IsResultSetAvailable Then
msg = "Student names:"& Chr(10)
Do
result.NextRow
firstName = result.GetValue("FIRSTNAME", _
firstName)
lastName = result.GetValue("LASTNAME", _
lastName)
msg = msg & Chr(10) & firstName & " " & _
lastName
Loop Until result.IsEndOfData
Messagebox msg,, "Student names"
result.Close(DB_CLOSE)
Else
Messagebox "Cannot get result set"
Exit Sub
End If
con.Disconnect
End Sub

関連項目