Examples: IsSupported method

The following agent displays the supported options of a data source:

Uselsx "*LSXODBC"
Sub Initialize
  Dim con As New ODBCConnection
  Dim msg As String
  If Not con.ConnectTo("ATDB") Then
    Messagebox "Could not connect to ATDB"
    Exit Sub
  End If
  msg = "The following options are supported:" & Chr(10)
  If con.IsSupported(DB_SUPP_CURSORS) Then
    msg = msg & Chr(10) & "Cursors"
  End If
  If con.IsSupported(DB_SUPP_PROCEDURES) Then
    msg = msg & Chr(10) & "Stored-procedure capability"
  End If
  If con.IsSupported(DB_SUPP_READONLY) Then
    msg = msg & Chr(10) & "Read-only mode"
  End If
  If con.IsSupported(DB_SUPP_SILENTMODE) Then
    msg = msg & Chr(10) &  _
    "Silent mode for ID or password failure"
  End If
  Messagebox msg,, "Supported options for ATDB"
  con.Disconnect
End Sub