LOTUS CONNECTOR

例:GetParameter メソッド
次の例は Postopen サブルーチンにおいて SQL 検索のパラメータを取得するフォームアクション (2 番目の Click サブルーチン) を示しています。Postopen サブルーチンの検索に 2 つパラメータが含まれていますが、アクションは可変数のパラメータに対して動作します。

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 WHERE " & _
"LASTNAME = ?lastName?AND FIRSTNAME = ?firstName?"
End Sub

Sub Click(Source As Button)
Dim inputParameter As String
For i = 1 To result.NumParameters
inputParameter = Inputbox$(result.GetParameterName(i), _
"Parameter " & i)
Call result.SetParameter _
(i, "'" & inputParameter & "'")
Next
End Sub

Sub Click(Source As Button)
Dim msg As String
msg = "Parameter name = parameter value" & Chr(10)
For i = 1 To result.NumParameters
msg = msg & Chr(10) & result.GetParameterName(i) _
& " = " & result.GetParameter(i)
Next
Messagebox msg,, "Parameters"
End Sub

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

関連項目