LOTUS CONNECTOR

例:Query プロパティ
次の例は、フォームの 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
 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)
 con.Disconnect
End Sub

関連項目