teratail
回答率
85.30%
teratail header banner
teratail header banner
質問するログイン新規登録
トップに関する質問vbsのadodb処理について（集計関数）

編集履歴

質問編集履歴

4

記載ミスを修正

2019/03/28 04:26

投稿

amatsuno
amatsuno

スコア54

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

誤字

2019/03/28 04:26

投稿

amatsuno
amatsuno

スコア54

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
- ↑は集計関数の関係上、ORDER By側も変更が必要かと考えました
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

記載ミスの修正

2019/03/28 04:22

投稿

amatsuno
amatsuno

スコア54

title CHANGED
File without changes
body CHANGED
@@ -111,7 +111,7 @@
111
111
 
112
112
  ↑は集計関数の関係上、ORDER By側も変更が必要かと考えました
113
113
 
114
- ②が発生する状態：（select文のカラム・ORDEY BY 句のみ変更）
114
+ ②が発生する状態：（select文のカラム・GROUP BY 句のみ変更）
115
115
  sub time_add()
116
116
 
117
117
  Dim objADO

1

pathの記載ミスを修正

2019/03/28 04:19

投稿

amatsuno
amatsuno

スコア54

title CHANGED
File without changes
body CHANGED
@@ -65,7 +65,7 @@
65
65
  Dim strPath
66
66
 
67
67
 
68
- strPath = "c;\csvdata\"
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;\csvdata\"
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;\csvdata\"
121
+ strPath = "c:\csvdata\"
122
122
 
123
123
  Set objADO = CreateObject("ADODB.Connection")
124
124
  objADO.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & _