LOTUS CONNECTOR

例:ListTables メソッド
次のエージェントは ADTB データソースのすべてのテーブルの名前を表示します。

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

関連項目