oo4o - TIPS - Dynasetが更新可能かチェックする

Dynasetが更新可能か調べたい場合はDynasetのメソッドUpdatableを使用します。更新可能な場合TRUEが、更新不可能な場合FALSEが戻されます。

サンプルコード

Private Sub CommandButton1_Click()
    Dim OraSession As Object
    Dim OraDatabase As Object
    Dim OraDynaset As Object

    On Error Resume Next
    Set OraSession = CreateObject("OracleInProcServer.XOraSession")
    Set OraDatabase = _
        OraSession.OpenDatabase("fcm2_fcmdb1", "scott/tiger", 0)
    If Err.Description <> "" Then
        MsgBox Err.Description, vbOKOnly + vbCritical, "接続エラー"
        Exit Sub
    End If

    Set OraDynaset = OraDatabase.CreateDynaset("SELECT * FROM emp", &H0&)
    MsgBox OraDynaset.Updatable

    Set OraDynaset = OraDatabase.CreateDynaset("SELECT * FROM emp", &H4&)
    MsgBox OraDynaset.Updatable

    Set OraDynaset = Nothing
    Set OraSession = Nothing
    Set OraDatabase = Nothing
End Sub

CreateDynasetのパラメータ&H4&は読取専用を表しています。１度目のメッセージボックスにはTrueが表示され、２度目のメッセージボックスにはFalseが表示されます。