LOTUS CONNECTOR

例:UseRowID プロパティ
次の例は、「行 ID による選択」を有効にしてから、行 ID を使って、Informix などのデータベース内の行にアクセスする方法を示します。次に示すように、スクリプトの中の qry.SQL = [SQL ステートメント] の前に「qry.UseRowID = True」ステートメントを必ず指定してください。

Uselsx "*LSXODBC"

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.UseRowID = True
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

関連項目