Sub Initialize
 Dim con As New ODBCConnection
 Dim msg As String
 Dim dsnList as Variant
 dsnList = con.ListDataSources
 For n% = Lbound(dsnList) To Ubound(dsnList)
   msg = msg & dsnList(n%) & Chr(10)
 Next
 Messagebox msg,,"List of DSNs"
End Sub

Sub Initialize
 Dim con As New ODBCConnection
 Dim dsn As String
 Dim msg As String
 dsn = Inputbox("ODBC data source name", "DSN")
 REM If Not con.ConnectTo(dsn) Then
 con.ConnectTo(dsn)
 If Not con.IsConnected Then
   Messagebox "Could not connect to " & dsn,, _
   "Error"
   Exit Sub
 End If
 tables = con.ListTables(dsn)
 msg = dsn & " contains the following _
 tables:" & Chr(10)
 For n% = Lbound(tables) To Ubound(tables)
   msg = msg & Chr(10) & tables(n%)
 Next
 Messagebox msg,, "Tables for " & dsn
 con.Disconnect
End Sub

(Globals) (Declarations)
Dim con As ODBCConnection
Dim dataSources As Variant
Dim tables As Variant
Dim thisdsn As Integer
Dim thistable As Integer
Dim workspace As NotesUIWorkspace
Dim uidoc As NotesUIDocument

Sub Postopen(Source As Notesuidocument)
 Set workspace = New NotesUIWorkspace
 Set uidoc = workspace.CurrentDocument
 Set con = New ODBCConnection
 con.SilentMode = True
 dataSources = con.ListDataSources
 thisdsn = Lbound(dataSources)
 Call uidoc.FieldSetText("dataSource", & _
 dataSources(thisdsn))
 tables = con.ListTables(dataSources(thisdsn))
 If Ubound(tables) <> 0 Then
   thistable = Lbound(tables)
   Call uidoc.FieldSetText("Table", & _
   tables(thistable))
 End If
End Sub

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
 If con.IsConnected Then
   con.Disconnect
 End If
End Sub

REM "Data source" button
Sub Click(Source As Button)
 If thisdsn = Ubound(dataSources) Then
   thisdsn = Lbound(dataSources)
 Else
   thisdsn = thisdsn + 1
 End If
 Call uidoc.FieldSetText("dataSource", & _
 dataSources(thisdsn))
 tables = con.ListTables(dataSources(thisdsn))
 If Ubound(tables) <> 0 Then
   thistable = Lbound(tables)
   Call uidoc.FieldSetText("Table", & _
   tables(thistable))
 End If
End Sub

REM "Table" button
Sub Click(Source As Button)
 If Ubound(tables) <> 0 Then
   If thistable = Ubound(tables) Then
     thistable = Lbound(tables)
   Else
     thistable = thistable + 1
   End If
   Call uidoc.FieldSetText("Table", tables(thistable))
 End If
End Sub

REM "List tables" action
Sub Click(Source As Button)
 Dim msg As String
 con.ConnectTo(dataSources(thisdsn))
 If con.IsConnected Then
   fields = con.ListFields(tables(thistable))
   If Ubound(fields) <> 0 Then
     msg = tables(thistable) & _
     " contains the following fields:" & Chr(10)
     For o% = Lbound(fields) To Ubound(fields)
       msg = msg & Chr(10) & fields(o%)
     Next
     Messagebox msg,, con.DataSourceName
   Else
     Messagebox "No fields in "  _
     & tables(thistable),, _
     con.DataSourceName
   End If
   con.Disconnect
 End If
End Sub

REM "List procedures" action

Sub Click(Source As Button)
 Dim msg As String
 con.ConnectTo(dataSources(thisdsn))
 If con.IsConnected Then
   procs = con.ListProcedures
   If Ubound(procs) <> 0 Then
     msg = con.DataSourceName & _
     " contains the following procedures:" _
     & Chr(10)
     For o% = Lbound(procs) To Ubound(procs)
       msg = msg & Chr(10) & procs(o%)
     Next
     Messagebox msg,, con.DataSourceName
   Else
     Messagebox "No procedures",, _
     con.DataSourceName
   End If
   con.Disconnect
 End If End Sub