LOTUS CONNECTOR

例:IsResultSetAvailable メソッド
次のエージェントは SQL 検索を実行し、結果セット内の各フィールドの列番号、名前、サイズを表示します。

Uselsx "*LSXODBC"

Sub Initialize
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim lastName As String
Set qry.Connection = con
Set result.Query = qry
con.ConnectTo("ATDB")
lastName = Inputbox$("Last name?", "Query")
qry.SQL = _
"SELECT * FROM STUDENTS WHERE LASTNAME = _
""" & lastName & """"
result.Execute
If result.IsResultSetAvailable Then
Messagebox lastName & " exists in STUDENTS"
Else
Messagebox lastName & " does not exist in STUDENTS"
End If
result.Close(DB_CLOSE)
con.Disconnect
End Sub

関連項目