Examples: ListTables method

The following agent displays the names of all the tables for the ADTB data source:

Uselsx "*LSXODBC"
Sub Initialize
  Dim con As New ODBCConnection
  Dim msg As String
  tables = con.ListTables("ATDB")
  msg = "ATDB contains the following tables:" & Chr(10)
  For n% = Lbound(tables) To Ubound(tables)
    msg = msg & Chr(10) & tables(n%)
  Next
  Messagebox msg,, "Tables for ATDB"
  con.Disconnect
End Sub