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

関連項目