Access97 SQLでINSERT されない

質問

Access97を使って下記のようなモジュールを作成しました。
　が、接続DAT　にはデータが追加されません。
　何故でしょうか？

　　j = 10
i = 1
strSQL = ""
Do Until i = j
JIJI = JI(i)
strSQL = "INSERT INTO 接続DAT (重複ID,区別記号"
strSQL = strSQL & ") VALUES ("
strSQL = strSQL & "'" & JIJI & "'"
strSQL = strSQL & ", '" & D & "'"
strSQL = strSQL & ")"
Set DB = CurrentDb()
DB.Execute strSQL
Set DB = Nothing
Set RS = Nothing
i = i + 1
Loop

回答No.1

PAPA0427 · ベストアンサー

j = 10
i = 1
strSQL = ""
Set DB = CurrentDb()
Do Until i = j
JIJI = JI(i)
strSQL = "INSERT INTO 接続DAT (重複ID,区別記号"
strSQL = strSQL & ") VALUES ("
strSQL = strSQL & "'" & JIJI & "'"
strSQL = strSQL & ", '" & D & "'"
strSQL = strSQL & ")"
DB.Execute strSQL
i = i + 1
Loop
Set DB = Nothing
Set RS = Nothing

ところで、「Set RS = Nothing 」てなんですか？不要だと思いますが。Ｊｉ（ｉ）には値が入っていますよね？

お礼

回答ありがとうございます。
JI(i)には　データが入っています。
RS　は不要でした。失礼しました。