Excel VBAで”rs.MoveNext”が機能しません。
Do Until EOFループの中で、SQL文で取得したいくつかのレコードのうち、何度も一番最初のレコード読み込んでしまうのですが、原因がわからなく、困っております。
解決方法をお持ちの方、ご教授いただければ幸いです。
以下、ソースコードになります。
よろしくお願いいたします。
Set rs = New ADODB.Recordset
//SQL文
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"
db.Execute (strSQL)
With rs
.CursorType = adOpenForwardOnly .LockType = adLockReadOnly .Open Source:=strSQL, _ ActiveConnection:=db, _ Options:=adCmdText
End With
Do Until rs.EOF
For Each wst In Worksheets
省略
Next wst rs.MoveNext
Loop
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2016/10/25 01:09
2016/10/25 01:11
2016/10/25 01:13
2016/10/25 01:23
2016/10/25 01:31
2016/10/25 01:40
2016/10/25 02:02 編集
2016/10/25 02:03