将循环变量插入一个 table 列
Insert looped variable to one table column
我有复选框表单,我正在尝试将我的循环值保存到一个变量中。
这就是我循环的方式:
For i = 1 to Request.Form("packages").count
Set packnamn = ObjConn.Execute ("Select * from services_package where id='"&
Request.Form("packages")(i) &"'")
panamn = packnamn("name") & "-"
Response.write panamn
Next
这将输出
Greece-English-Spanish-
现在我正在尝试将整个输出保存在我的 MySQL 中。但我只得到循环的最后一个值(西班牙语-),这是我的插入代码。
Dim sql1
sql1= "insert into tariff_plan(package)"
sql1=sql1 & " VALUES "
sql1=sql1 & "('" & panamn &"')"
on error resume next
ObjConn.Execute sql1,recaffected
if err<>0 then
Response.Write(err.description)
else
response.write "Saved"
End if
您必须将值添加到执行 response.write 的变量并在循环后执行插入。
panamn = ""
For i = 1 to Request.Form("packages").count
Set packnamn = ObjConn.Execute ("Select * from services_package where id='"&
Request.Form("packages")(i) &"'")
panamn = panamn & packnamn("name") & "-"
Next
Response.write panamn
'Do the insert here
我有复选框表单,我正在尝试将我的循环值保存到一个变量中。
这就是我循环的方式:
For i = 1 to Request.Form("packages").count
Set packnamn = ObjConn.Execute ("Select * from services_package where id='"&
Request.Form("packages")(i) &"'")
panamn = packnamn("name") & "-"
Response.write panamn
Next
这将输出
Greece-English-Spanish-
现在我正在尝试将整个输出保存在我的 MySQL 中。但我只得到循环的最后一个值(西班牙语-),这是我的插入代码。
Dim sql1
sql1= "insert into tariff_plan(package)"
sql1=sql1 & " VALUES "
sql1=sql1 & "('" & panamn &"')"
on error resume next
ObjConn.Execute sql1,recaffected
if err<>0 then
Response.Write(err.description)
else
response.write "Saved"
End if
您必须将值添加到执行 response.write 的变量并在循环后执行插入。
panamn = ""
For i = 1 to Request.Form("packages").count
Set packnamn = ObjConn.Execute ("Select * from services_package where id='"&
Request.Form("packages")(i) &"'")
panamn = panamn & packnamn("name") & "-"
Next
Response.write panamn
'Do the insert here