oo4o - 列名・列数の取得Advertisement列数の確認
表の列数を取得するには OraDynaset のプロパティ Fields.Count を利用する。
書式 OraDynasetオブジェクト.Fields.Count 列名の取得
列名を参照する場合、OraDynaset のプロパティ Name を利用する
書式 OraDynasetオブジェクト.Fields(インデックス).Name サンプルコード
次の例では、emp表の列名を参照している
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
結果サンプル 
Advertisement |
ショートカット・634・634ブログ ・このカテゴリのトップページに戻る ・Incubator(Pukiwiki) ・634ラボ UIコレクションギャラリー ZO-3ジェネレーター サイト検索Y!ログール |
