LOTUS CONNECTORS
Examples: Handling an ODBC event
In this example, the values of a row in an ODBC table are displayed as fields on a form. The user can use actions to get the next and previous rows. The event handler AfterPositionChange displays the number of the current row in another field on the form.

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
 On Event AfterFirstRow From result Call
 AfterPositionChange
 On Event AfterLastRow From result Call AfterPositionChange
 On Event AfterNextRow From result Call AfterPositionChange
 On Event AfterPrevRow From result Call AfterPositionChange
 con.ConnectTo("ATDB")
 qry.SQL = "SELECT * FROM STUDENTS ORDER BY LASTNAME"
 result.Execute
 If Not source.EditMode Then
   source.EditMode = True
 End If
 result.FirstRow
 Call source.FieldSetText("Student_No", _
 Cstr(result.GetValue("STUDENT_NO")))
 Call source.FieldSetText("FirstName", _
 result.GetValue("FIRSTNAME"))
 Call source.FieldSetText("LastName", _
 result.GetValue("LASTNAME"))
 Call source.FieldSetText("Address", _
 result.GetValue("ADDRESS"))
 Call source.FieldSetText("City", _
 result.GetValue("CITY"))
 Call source.FieldSetText("State", _
 result.GetValue("STATE"))
 Call source.FieldSetText("Zip", _
 result.GetValue("ZIP"))
 Call source.FieldSetText("Phone", _
 result.GetValue("PHONE"))
 Call source.FieldSetText("Cr_to_date", _
 Cstr(result.GetValue("CR_TO_DATE")))
End Sub

Sub Click(Source As Button)
REM Action to get the next row
 Dim workspace As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 Set uidoc = workspace.CurrentDocument
 If Not result.IsEndOfData Then result.NextRow
 Call uidoc.FieldSetText("Student_No", _
 Cstr(result.GetValue("STUDENT_NO")))
 Call uidoc.FieldSetText("FirstName", _
 result.GetValue("FIRSTNAME"))
 Call uidoc.FieldSetText("LastName", _
 result.GetValue("LASTNAME"))
 Call uidoc.FieldSetText("Address", _
 result.GetValue("ADDRESS"))
 Call uidoc.FieldSetText("City", result.GetValue("CITY"))
 Call uidoc.FieldSetText("State", result.GetValue("STATE"))
 Call uidoc.FieldSetText("Zip", result.GetValue("ZIP"))
 Call uidoc.FieldSetText("Phone", result.GetValue("PHONE"))
 Call uidoc.FieldSetText("Cr_to_date", _
 Cstr(result.GetValue("CR_TO_DATE")))
End Sub

Sub Click(Source As Button)
REM Action to get the previous row
 Dim workspace As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 Set uidoc = workspace.CurrentDocument
 If Not result.IsBeginOfData Then result.PrevRow
 Call uidoc.FieldSetText("Student_No", _
 Cstr(result.GetValue("STUDENT_NO")))
 Call uidoc.FieldSetText("FirstName", _
 result.GetValue("FIRSTNAME"))
 Call uidoc.FieldSetText("LastName", _
 result.GetValue("LASTNAME"))
 Call uidoc.FieldSetText("Address", _
 result.GetValue("ADDRESS"))
 Call uidoc.FieldSetText("City", result.GetValue("CITY"))
 Call uidoc.FieldSetText("State", result.GetValue("STATE"))
 Call uidoc.FieldSetText("Zip", result.GetValue("ZIP"))
 Call uidoc.FieldSetText("Phone", result.GetValue("PHONE"))
 Call uidoc.FieldSetText("Cr_to_date", _
 Cstr(result.GetValue("CR_TO_DATE")))
End Sub

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

Sub AfterPositionChange(res As ODBCResultSet)
 Dim ws As New NotesUIWorkspace
 Dim source As NotesUIDocument
 Set source = ws.CurrentDocument
 Call source.FieldSetText("RowNumber", Cstr(res.CurrentRow))
End Sub

See Also