vb.netでaccess内に作成したクエリを実行して、出力したいと考えております。
クエリーの要素はaccess上で表示された順番通りに取得出来るのですが、
列名がaccessで表示された順番通りに取得出来ず、困っております。
以下、ソースになります。
lang
1'DB操作用 2 Dim oCn As OleDbConnection = Nothing 3 Dim DBcmd As OleDbCommand = Nothing 4 Dim Query As String = "" 5 Dim DBCn As String = "" 6 Dim Colums As DataTable 7 8 'コネクション用文字列作成 9 DBCn = "Provider=Microsoft.Jet.OLEDB.4.0;" 10 DBCn &= "Data Source=" & DBpath & ";" 11 12 Try 13 'コネクションオブジェクト設定 14 oCn = New OleDbConnection(DBCn & "Mode=Share Exclusive;") 15 16 '発行するクエリを選択(別メソッドでクエリの文字列を生成するだけです) 17 Query = ChoiceQuery(Service) 18 19 'クエリを設定 20 DBcmd = New OleDbCommand("Execute " + Query, oCn) 21 oCn.Open() 22 23 '列名取得要の設定 24 Colums = oCn.GetSchema("Columns", New String() {Nothing, Nothing, Query}) 25 26 Dim DBDateReader As OleDbDataReader = DBcmd.ExecuteReader() 27 28 29 '列名を取得 30 For i As Integer = 0 To Colums.Rows.Count - 1 31 Console.WriteLine(Colums.Rows(i)(("COLUMN_NAME").ToString)) 32 Next i 33 34 '要素を取得 35 While DBDateReader.Read() 36 'カラムの数だけループ 37 For i = 0 To DBDateReader.FieldCount - 1 38 Console.WriteLine(DBDateReader(i).ToString()) 39 Next i 40 41 End While 42 43 Catch ex As Exception 44 45 Finally 46 If Not IsNothing(oCn) Then 47 oCn.Close() 48 oCn = Nothing 49 End If 50 End Try
上記のソースで出力すると、列名がaccess上の表示通りに取れず、
要素との関連性が分からなくなってしまいます。
列名をaccess上で表示された通りに取得出来る方法をご存じの方いらっしゃいましたら、ご教授お願いします。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。