oo4o - 列名・列数の取得

OraDynasetオブジェクト.Fields.Count

OraDynasetオブジェクト.Fields(インデックス).Name

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", 0)

    For i = 0 To OraDynaset.Fields.Count - 1
        ThisWorkbook.ActiveSheet.Cells(1, i + 1) = OraDynaset.Fields(i).Name
    Next

    ' 解放
    Set OraDynaset = Nothing
    Set OraSession = Nothing
    Set OraDatabase = Nothing

End Sub