Examples: Connection property

The following example of form scripts sets up the necessary query connections in the Postopen script. The Connection property of ODBCQuery must specify an ODBCConnection object. The Query property of ODBCResultSet must specify the ODBCQuery object.

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
  If result.IsResultSetAvailable Then
    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)
  Else
    Messagebox "Cannot get result set"
    Exit Sub
  End If
  con.Disconnect
End Sub