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