出来るのだASP Q&A掲示板(過去LOG)
訪問数 52046
昨日 889
今日 776 【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。 |
![]() ![]() ![]() ![]() ![]() |
[5165] ACCESSの接続 Execute |
投稿者:りえさん 2005/08/01 17:55:25 |
ASPの初心者ですが、次のプログラムを実行するとどうしてもこのようなエラーが出てきます。 因みに、WINDOWS XP ACCESS 2000 です。 エラー タイプ Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Microsoft Access Driver] 更新可能なクエリであることが必要です。 原因は → ObjConn.Execute(StrSQL) らしいですが、どうしても間違っているとは思えないのですが。 良ければ、教えていただけませんでしょうか。 よろしくお願い致します。 <% '***** データベース(guestbook.mdb)に接続 ***** Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _ Server.Mappath("guestbook.mdb") '***** データが送信されたときはデータを追加 ***** If Request.Form("act") = "insert" Then '***** フォームからデータを受け取る ***** name = Request.Form("name") word = Request.Form("word") entrydate = Now '***** 名前とメッセージが空白でないときはデータ追加SQLを実行 ***** If name <> "" and word <> "" Then StrSQL = "insert into T_Message (name,word,entrydate) " & _ "values ('" & name & "','" & word & "',#" & entrydate & "#)" ObjConn.Execute(StrSQL) End If End If %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=x-sjis"> <title>ゲストブック</title> </head> <body> <% Response.Write "<h2>ゲストブック</h2>" %> <form method="POST" action="guestbook.asp"> <table border="1"> <tr> <td>お名前</td> <td><input type="text" name="name"></td> </tr> <tr> <td>メッセージ</td> <td><textarea rows="5" name="word" cols="30"></textarea></td> </tr> </table> <input type="submit" name="sub" value="送信"> <input type="hidden" name="act" value="insert"> </form> <% '***** レコードセットの作成 ***** '***** テーブル「T_Message」のフィールド「id」が大きい順に並べ替え ***** Set ObjRS = Server.CreateObject("ADODB.Recordset") StrSQL = "select * from T_Message order by id desc" ObjRS.Open StrSQL, ObjConn '***** データの表示 ***** Do Until ObjRS.EOF %> <hr> <% = ObjRS("name") %>----------<% = ObjRS("entrydate") %><BR> <% = ObjRS("word") %> <% ObjRS.MoveNext Loop %> </body> </html> <% '***** データベースへの接続を解除 ***** ObjRS.Close Set ObjRS = Nothing ObjConn.Close Set ObjConn = Nothing %> |
![]() ![]() |
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
TreeBBS For ASP V.0.1.3 |