LOTUS CONNECTORS

Examples: ListProcedures method
The following agent displays the names of all procedures for the ADTB data source:

Uselsx "*LSXODBC"

Sub Initialize
 Dim con As New ODBCConnection
 Dim msg As String
 tables = con.ListProcedures("ATDB")
 msg = "ATDB contains the following procedures:" & Chr(10)
 If Ubound(tables) = 0 Then
   Messagebox "No procedures for ATDB",, _
   "Procedures for ATDB"
   Exit Sub
 End If
 For n% = Lbound(tables) To Ubound(tables)
   msg = msg & Chr(10) & tables(n%)
 Next
 Messagebox msg,, "Procedures for ATDB"
 con.Disconnect
End Sub

See Also