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