出来るのだASP Q&A掲示板(過去LOG)
訪問数 52046
昨日 889
今日 776 【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。 |
![]() ![]() ![]() ![]() ![]() |
[3743] "抽出条件でデータ型が一致しません。"のエラー |
投稿者:ナマズさん 2003/10/20 22:44:44 |
アクセスのデータベースにSQL文を使用してレコードの追加を行い、追加結果を出力するASPを作成したいのですが、「Microsoft JET Database Engine (0x80040E07) 抽出条件でデータ型が一致しません」のメッセージが表示され、更新結果を出力することができません。 同じ内容をSQLサーバで実行したときにはうまく行っていたものをacccesに置き換えたところ、うまくいかなくなったので、ソースの間違いというより、DBの問題かも知れませんが、色々ためしてもよくわからないので、ご協力お願いします。 ただテーブルの中身を見ると更新されているのでインサートの処理はうまくいっているようです。 _______________<以下ソース>____________________________ <%@ Language="VBScript" %> <% Option Explicit %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <!--ASP--> <head> <meta http-equiv="Content-Type" content="text/html;charset=Shift_JIS"> <title>insert</title> </head> <body text="green" link="#0066ff"vlink="#6666ff" alink="#99cc66" bgcolor="#ccfff"> <%Dim conn,rs Dim strconn,strSQL Dim innewshaincd,innewkanji1,innewkanji2,innewfuri1,innewfuri2,innewgen,innewyear,innewbirth,innewofficecd,innewoffice,objfiled innewshaincd=Request.form("newshaincd") innewkanji1=Request.form("newkanji1") innewkanji2=Request.form("newkanji2") innewfuri1=Request.form("newfuri1") innewfuri2=Request.form("newfuri2") innewgen=Request.form("newgen") innewyear=Request.form("newyear") innewbirth=Request.form("newbirth") innewofficecd=Request.form("newofficecd") innewoffice=Request.form("newoffice") strconn="PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=Tshain.mdb" strSQL="INSERT INTO Tshain(shaincd,kanji1,kanji2,kana1,kana2,gendercd,nendo,birthday,bushocd,busho)VALUES('" & innewshaincd &"','" & innewkanji1 &"','" & innewkanji2 &"','"& innewfuri1 &"','" & innewfuri2 &"','"& innewgen &"','"& innewyear &"','"& innewbirth &"','" & innewofficecd &"','"& innewoffice &"')" Set conn=Server.CreateObject("ADODB.connection") conn.connectionString=strconn conn.open Set rs=Server.CreateObject("ADODB.recordset") rs.Open strSQL,conn strSQL="SELECT * FROM Tshain Where shaincd ='" & innewshaincd & "'" rs.Open strSQL,conn Response.Write "<center><storng>社員CD" & innewshaincd & "の社員の登録内容</storong></center><br>" Response.Write "<table border='4' bgcolor='#ccff99'><tr><th>社員コード</th><th colspan='2'>氏名</th><th colspan='2'>フリガナ</th><th>性別CD</th><th>入社年度</th><th>生年月日</th><th>箇所コード</th><th>所属箇所</th></tr><tr>" For Each objfiled In rs.Fields Response.Write "<td>" & objfiled & "</td>" Next Response.Write "</table></tr>" %> </body> </html> ___________________<Tshainの定義>_________________ shaincd 整数型 kanji1 テキスト型 kanji2 テキスト型 kana1 テキスト型 kana2 テキスト型 gendercd 整数型 nendo 整数型 birthday 日付・時刻型 bushocd 整数型 busho テキスト型 |
![]() ![]() ![]() |
![]() ![]() ![]() ![]() ![]() |
TreeBBS For ASP V.0.1.3 |