【問題の一覧表】
問題の追加
番号 | 問題文 | 回答群 | 正解答 |
<%
'--- DBファイルの名前を指示
DBfile = Server.MapPath("./quiz.mdb")
'--- データベース接続オブジェクトの準備
Set DB = Server.CreateObject("ADODB.Connection")
'--- DBファイルを開く
DB.Open "DRIVER=Microsoft Access Driver (*.mdb);FIL=MS Access;DBQ=" & DBfile
'--- 全部のデータをRCに取り出す
Set RC = DB.Execute("select * from mondai order by number")
Do While not RC.Eof
%>><%=RC("number")%>
| <%=RC("Text")%>
| <%=RC("Answer")%>
| <%=RC("Ansnum")%>
|
<%
'--- 次のデータを読み出せ
RC.MoveNext
Loop
RC.Close
'--- DBファイルを閉じる
DB.Close
'--- 接続オブジェクトの解除
Set DB = Nothing
%>