UC知道insert语句插入问题（在线给分）
来源：百度知道 编辑：UC知道 时间：2024/06/17 08:20:51
f request("act")="save" then
dim pname,number1,tprice
pname = request("productname")
number1 =request("number1")
tprice = request("tprice")
dim sql,sql1,sql2
sql1="select * from productname where name='"&pname&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql1,conn,1,1
if not rs.eof then
sql = "update productname set number1 = number1 - "&number1&",tprice=tprice-"&tprice&" where name='"&pname&"'"
else
sql = "insert into productname (name,number1,tprice) values ('"&pname&"','"&number1&"','"&tprice&"')"
end if
sql2="select * from productname"
set rs2=server.CreateObject("adodb.recordset")
rs2.open sql2,conn,1,3
sql2 = "insert into xiaoshou (name,num
dim pname,number1,tprice
pname = request("productname")
number1 =request("number1")
tprice = request("tprice")
dim sql,sql1,sql2
sql1="select * from productname where name='"&pname&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql1,conn,1,1
if not rs.eof then
sql = "update productname set number1 = number1 - "&number1&",tprice=tprice-"&tprice&" where name='"&pname&"'"
else
sql = "insert into productname (name,number1,tprice) values ('"&pname&"','"&number1&"','"&tprice&"')"
end if
sql2="select * from productname"
set rs2=server.CreateObject("adodb.recordset")
rs2.open sql2,conn,1,3
sql2 = "insert into xiaoshou (name,num
conn.execute(sql2) 是不是忘了写了？
光拼SQL语句，不执行，打死也插不进去呀。
不是很清楚xiaoshou这个表的设计是什么样的，
大概猜测一下
name是varchar型的
number1和tprice应该是数值型的
对于varchar型的数据，插入的时候要带上''
而对于数值型的数据，用不着
insert语句改为
sql2 = "insert into xiaoshou (name,number1,tprice) values ('''pname&''',number1,tprice)"