エクセルファイルのadoでの編集

質問

下記のようにエクセルのレコード編集をこころみていますが
下記のように氏名に重複があると、重複レコードが一緒に編集されてしまいます。アドバイスをいただけないでしょうか。「加藤」さんのほうは問題なく編集できます。

id,氏名,住所
15,山田太郎,東京都
18,山田太郎,栃木県
20,加藤太郎,岩手県

sCoString = "DBQ=" & Server.MapPath("" & Session("DB") & "") & "; ReadOnly=False;"
sCoString = sCoString & "DefaultDir=" & Server.MapPath("./") & ";"
sCoString = sCoString & "Driver={Microsoft Excel Driver (*.xls)};"
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open sCoString
sSQL = Session("SR") & " where id = " & Request("key")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sSQL, cn, 3, 3, 1
For i = 0 to rs.fields.count - 1 'Each Fld in Rs.fields
If rs.fields(i).name <> "id" Then
Response.write getcgivalue(rs.fields(i).name) & "<BR>"
rs(rs.fields(i).name) = getcgivalue(rs.fields(i).name)
End if
next
rs.UpDate

function getcgivalue(str)
getcgivalue= Request.Form(str) 'POST
if getcgivalue="" then getcgivalue= Request.QueryString(str) 'GET
end function

回答No.1

naganaga_001 · ベストアンサー

お世話になります。

> sSQL = Session("SR") & " where id = " & Request("key")
Session("SR") や Request("key") に何がはいっているのか解らないので、
Response.Write(sSQL)
して、実際に発行している SQL を確認されてはいかがでしょうか。