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