質問編集履歴
1
ソースコード中、必要ない部分の消去。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -23,6 +23,8 @@
|
|
|
23
23
|
Set rs = New ADODB.Recordset
|
|
24
24
|
|
|
25
25
|
|
|
26
|
+
|
|
27
|
+
//SQL文
|
|
26
28
|
|
|
27
29
|
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"
|
|
28
30
|
|
|
@@ -50,20 +52,6 @@
|
|
|
50
52
|
|
|
51
53
|
|
|
52
54
|
|
|
53
|
-
rdate = rs.Fields("reservation_date")
|
|
54
|
-
|
|
55
|
-
rdate2 = Format(rdate, "yyyy年mm月dd日")
|
|
56
|
-
|
|
57
|
-
sdate2 = Format(rdate2, "yyyy年mm月dd日")
|
|
58
|
-
|
|
59
|
-
|
|
60
|
-
|
|
61
|
-
courseid = rs.Fields("course_id")
|
|
62
|
-
|
|
63
|
-
bycourse = rs.Fields("number_by_course")
|
|
64
|
-
|
|
65
|
-
|
|
66
|
-
|
|
67
55
|
Do Until rs.EOF
|
|
68
56
|
|
|
69
57
|
|