LOTUS CONNECTOR

例:ODBCConnection クラス
次のエージェントは、新しい ODBCConnection オブジェクトを宣言して、ユーザーが指定したデータソースに接続します。

Uselsx "*LSXODBC"

Sub Initialize
 Dim con As New ODBCConnection
 con.ConnectTo(Inputbox("ODBC data source name", "DSN"))
 While Not con.IsConnected
   dsn = Inputbox("ODBC data source name", _
   "Connection not made ...")
   If dsn = "" Then Exit Sub
   con.ConnectTo(dsn)
 Wend
 Messagebox "Connected to " & con.DataSourceName,, _
 "Connection made ..."
 con.Disconnect
End Sub

関連項目