質問編集履歴
2
本題と関係ない別処理のソースがあったので、削除
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -45,9 +45,7 @@
|
|
|
45
45
|
Next i
|
|
46
46
|
|
|
47
47
|
End While
|
|
48
|
-
End Using
|
|
49
48
|
|
|
50
|
-
|
|
51
49
|
Catch ex As Exception
|
|
52
50
|
|
|
53
51
|
Finally
|
1
書式の改善
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -26,18 +26,18 @@
|
|
|
26
26
|
DBcmd = New OleDbCommand("Execute " + Query, oCn)
|
|
27
27
|
oCn.Open()
|
|
28
28
|
|
|
29
|
-
|
|
29
|
+
'列名取得要の設定
|
|
30
30
|
Colums = oCn.GetSchema("Columns", New String() {Nothing, Nothing, Query})
|
|
31
31
|
|
|
32
32
|
Dim DBDateReader As OleDbDataReader = DBcmd.ExecuteReader()
|
|
33
33
|
|
|
34
34
|
|
|
35
|
-
'列名を
|
|
35
|
+
'列名を取得
|
|
36
36
|
For i As Integer = 0 To Colums.Rows.Count - 1
|
|
37
37
|
Console.WriteLine(Colums.Rows(i)(("COLUMN_NAME").ToString))
|
|
38
38
|
Next i
|
|
39
39
|
|
|
40
|
-
|
|
40
|
+
'要素を取得
|
|
41
41
|
While DBDateReader.Read()
|
|
42
42
|
'カラムの数だけループ
|
|
43
43
|
For i = 0 To DBDateReader.FieldCount - 1
|
|
@@ -46,10 +46,10 @@
|
|
|
46
46
|
|
|
47
47
|
End While
|
|
48
48
|
End Using
|
|
49
|
-
Flag = True
|
|
50
49
|
|
|
50
|
+
|
|
51
51
|
Catch ex As Exception
|
|
52
|
-
|
|
52
|
+
|
|
53
53
|
Finally
|
|
54
54
|
If Not IsNothing(oCn) Then
|
|
55
55
|
oCn.Close()
|