LOTUS CONNECTOR

例:IsSupported メソッド
次のエージェントはデータソースのサポートオプションを表示します。

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

関連項目