こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

VisualStudioでデータベースへの登録ができないので教えてください

全くのプログラミング初心者ですが、仕事で作らなければならないため困っています。
VisualStudioで以下のように記述しましたが、Accessで作ったデータベースに登録ができません。
どこを直せば良いかアドバイスをお願いします。

'text欄の書き込み処理------------------------------------------
For intX=1 to maxanswer
sSQL="select qs_no,ans_no,text from T_qs_ans where id=" & id & " and ans_no =" & intX
Set AnsRs=DB.Execute(sSQL)

if Not AnsRs.EOF then
if AnsRs("text")=1 then 'text欄がある場合
if request("text" & intX)<>"" then 'text欄に書き込みがあった場合
sSQL="insert into T_qs_ans_text (id,qs_no,ans_no,text,kubun,votenum,kubunA) values "
sSQL=sSQL & "(" & id & "," & intX & ",'" & request("text" & intX)
sSQL=sSQL & "'," & kubun & "," & kubunA & "," & votenum & ")"
DB.Execute(sSQL)
end if
end if
end if
'--------------------------------------------------------------
Next

投稿日時 - 2007-03-01 19:33:17

QNo.2794551

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

-広告-
-広告-

回答(1)

ANo.1

言語は何でしょう?
VisualStudioを使っているといってますがVBAのように見える

sSQL="insert into T_qs_ans_text (id,qs_no,ans_no,text,kubun,votenum,kubunA) values "
sSQL=sSQL & "(" & id & "," & intX & ",'" & request("text" & intX)
sSQL=sSQL & "'," & kubun & "," & kubunA & "," & votenum & ")"

ans_noとkubunAのValueがないのでinsertのSQLを修正してください。

sSQL=sSQL & "(" & id & "," & intX & "," & ans_no & " '" & request("text" & intX)
sSQL=sSQL & "'," & kubun & "," & kubunA & "," & votenum & "," & kubunA & ")"

投稿日時 - 2007-03-05 11:14:45

-広告-
-広告-

あなたにオススメの質問

-広告-
-広告-