LOTUS CONNECTOR

例:ListDataSources メソッド
次のエージェントはローカルマシン上のすべてのデータソースの名前を表示します。

Uselsx "*LSXODBC"

Sub Initialize
 Dim con As New ODBCConnection
 Dim msg As String
 dsnList = con.ListDataSources
 For n% = Lbound(dsnList) To Ubound(dsnList)
   msg = msg & dsnList(n%) & Chr(10)
 Next
 Messagebox msg,,"List of DSNs"
 con.Disconnect
End Sub