LOTUS CONNECTORS

Examples: ODBCConnection class
This agent declares a new ODBCConnection object and connects to a user-specified data source.

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

See Also