質問編集履歴
4
記載ミスを修正
title
CHANGED
File without changes
|
body
CHANGED
@@ -74,7 +74,7 @@
|
|
74
74
|
objADO.Execute _
|
75
75
|
"SELECT コンピューター名, Format([日時],'yyyy/mm/dd') AS 日付, Format(Sum([期間]),'hh:nn:ss') AS 利用時間計" & _
|
76
76
|
" INTO time_master.csv " & _
|
77
|
-
" FROM log_master1.csv where 操作種別 = '
|
77
|
+
" FROM log_master1.csv where 操作種別 = '終了'" & _
|
78
78
|
" GROUP BY コンピューター名, Format([日時],'yyyy/mm/dd');"
|
79
79
|
|
80
80
|
|
@@ -100,7 +100,7 @@
|
|
100
100
|
objADO.Execute _
|
101
101
|
"SELECT 端末機名, Format([日時],'yyyy/mm/dd') AS 日付, Format(Sum([期間]),'hh:nn:ss') AS 利用時間計" & _
|
102
102
|
" INTO time_master.csv " & _
|
103
|
-
" FROM log_master1.csv where 操作種別 = '
|
103
|
+
" FROM log_master1.csv where 操作種別 = '終了'" & _
|
104
104
|
" GROUP BY コンピューター名, Format([日時],'yyyy/mm/dd');"
|
105
105
|
|
106
106
|
|
@@ -127,7 +127,7 @@
|
|
127
127
|
objADO.Execute _
|
128
128
|
"SELECT 端末機名, Format([日時],'yyyy/mm/dd') AS 日付, Format(Sum([期間]),'hh:nn:ss') AS 利用時間計" & _
|
129
129
|
" INTO time_master.csv " & _
|
130
|
-
" FROM log_master1.csv where 操作種別 = '
|
130
|
+
" FROM log_master1.csv where 操作種別 = '終了'" & _
|
131
131
|
" GROUP BY コンピューター名, Format([日時],'yyyy/mm/dd');"
|
132
132
|
|
133
133
|
|
3
誤字
title
CHANGED
File without changes
|
body
CHANGED
@@ -54,8 +54,8 @@
|
|
54
54
|
コンピューター名と端末機名は完全に一致しています。
|
55
55
|
|
56
56
|
ソート順は、
|
57
|
-
|
57
|
+
1)日時
|
58
|
-
|
58
|
+
2)端末機名
|
59
59
|
です
|
60
60
|
|
61
61
|
正常に完了する状態:
|
@@ -109,7 +109,7 @@
|
|
109
109
|
|
110
110
|
end sub
|
111
111
|
|
112
|
-
↑は集計関数の関係上、
|
112
|
+
↑は集計関数の関係上、GROUP BY側も変更が必要かと考えました
|
113
113
|
|
114
114
|
②が発生する状態:(select文のカラム・GROUP BY 句のみ変更)
|
115
115
|
sub time_add()
|
@@ -137,7 +137,7 @@
|
|
137
137
|
end sub
|
138
138
|
|
139
139
|
### 試したこと
|
140
|
-
GROUP BY 以下の指定カ
|
140
|
+
GROUP BY 以下の指定カラムを変更したり、削除したりしたのですが、
|
141
141
|
②が発生します
|
142
142
|
|
143
143
|
また、AS句の文言を変更した場合にも②が発生します
|
2
記載ミスの修正
title
CHANGED
File without changes
|
body
CHANGED
@@ -111,7 +111,7 @@
|
|
111
111
|
|
112
112
|
↑は集計関数の関係上、ORDER By側も変更が必要かと考えました
|
113
113
|
|
114
|
-
②が発生する状態:(select文のカラム・
|
114
|
+
②が発生する状態:(select文のカラム・GROUP BY 句のみ変更)
|
115
115
|
sub time_add()
|
116
116
|
|
117
117
|
Dim objADO
|
1
pathの記載ミスを修正
title
CHANGED
File without changes
|
body
CHANGED
@@ -65,7 +65,7 @@
|
|
65
65
|
Dim strPath
|
66
66
|
|
67
67
|
|
68
|
-
strPath = "c
|
68
|
+
strPath = "c:\csvdata\"
|
69
69
|
|
70
70
|
Set objADO = CreateObject("ADODB.Connection")
|
71
71
|
objADO.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & _
|
@@ -91,7 +91,7 @@
|
|
91
91
|
Dim strPath
|
92
92
|
|
93
93
|
|
94
|
-
strPath = "c
|
94
|
+
strPath = "c:\csvdata\"
|
95
95
|
|
96
96
|
Set objADO = CreateObject("ADODB.Connection")
|
97
97
|
objADO.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & _
|
@@ -118,7 +118,7 @@
|
|
118
118
|
Dim strPath
|
119
119
|
|
120
120
|
|
121
|
-
strPath = "c
|
121
|
+
strPath = "c:\csvdata\"
|
122
122
|
|
123
123
|
Set objADO = CreateObject("ADODB.Connection")
|
124
124
|
objADO.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & _
|