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

回答No.1

mo_gu

言語は何でしょう？
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 & ")"