質問編集履歴
1
ソースコード中、必要ない部分の消去。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -11,6 +11,7 @@
|
|
|
11
11
|
|
|
12
12
|
Set rs = New ADODB.Recordset
|
|
13
13
|
|
|
14
|
+
//SQL文
|
|
14
15
|
strSQL = "select sum(number_of_people) AS number_by_course, reservation.course_id, name_of_course, reservation_date from reservation inner join [order] on reservation.course_id = [order].course_id group by reservation.course_id, name_of_course, reservation_date order by reservation_date"
|
|
15
16
|
db.Execute (strSQL)
|
|
16
17
|
|
|
@@ -24,13 +25,6 @@
|
|
|
24
25
|
|
|
25
26
|
End With
|
|
26
27
|
|
|
27
|
-
rdate = rs.Fields("reservation_date")
|
|
28
|
-
rdate2 = Format(rdate, "yyyy年mm月dd日")
|
|
29
|
-
sdate2 = Format(rdate2, "yyyy年mm月dd日")
|
|
30
|
-
|
|
31
|
-
courseid = rs.Fields("course_id")
|
|
32
|
-
bycourse = rs.Fields("number_by_course")
|
|
33
|
-
|
|
34
28
|
Do Until rs.EOF
|
|
35
29
|
|
|
36
30
|
For Each wst In Worksheets
|