@634

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

Advertisement

Updatable

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&は読取専用を表しています。1度目のメッセージボックスにはTrueが表示され、2度目のメッセージボックスにはFalseが表示されます。

Advertisement

ショートカット

634
634ブログ
このカテゴリのトップページに戻る
Incubator(Pukiwiki)
634ラボ
   UIコレクションギャラリー
   ZO-3ジェネレーター

サイト検索


Y!ログール