質問編集履歴
2
本題と関係ない別処理のソースがあったので、削除
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -92,10 +92,6 @@
|
|
|
92
92
|
|
|
93
93
|
End While
|
|
94
94
|
|
|
95
|
-
End Using
|
|
96
|
-
|
|
97
|
-
|
|
98
|
-
|
|
99
95
|
|
|
100
96
|
|
|
101
97
|
Catch ex As Exception
|
1
書式の改善
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -54,7 +54,7 @@
|
|
|
54
54
|
|
|
55
55
|
|
|
56
56
|
|
|
57
|
-
'列名取得要の設定
|
|
57
|
+
'列名取得要の設定
|
|
58
58
|
|
|
59
59
|
Colums = oCn.GetSchema("Columns", New String() {Nothing, Nothing, Query})
|
|
60
60
|
|
|
@@ -66,7 +66,7 @@
|
|
|
66
66
|
|
|
67
67
|
|
|
68
68
|
|
|
69
|
-
'列名を
|
|
69
|
+
'列名を取得
|
|
70
70
|
|
|
71
71
|
For i As Integer = 0 To Colums.Rows.Count - 1
|
|
72
72
|
|
|
@@ -76,7 +76,7 @@
|
|
|
76
76
|
|
|
77
77
|
|
|
78
78
|
|
|
79
|
-
'要素を取得
|
|
79
|
+
'要素を取得
|
|
80
80
|
|
|
81
81
|
While DBDateReader.Read()
|
|
82
82
|
|
|
@@ -94,13 +94,13 @@
|
|
|
94
94
|
|
|
95
95
|
End Using
|
|
96
96
|
|
|
97
|
-
|
|
97
|
+
|
|
98
98
|
|
|
99
99
|
|
|
100
100
|
|
|
101
101
|
Catch ex As Exception
|
|
102
102
|
|
|
103
|
-
|
|
103
|
+
|
|
104
104
|
|
|
105
105
|
Finally
|
|
106
106
|
|