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

関連項目