LOTUS CONNECTORS

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

See Also