
asp写access数据库代码
我想实现如下要求:1、用Jet方式连接数据库zhoushan.mdb(在文件夹qu里面),查询qu1的表,dingdan字段有没有等于变量order_no的,有的话什么都...
我想实现如下要求:
1、用Jet方式连接数据库zhoushan.mdb(在文件夹qu里面),查询qu1的表,dingdan字段有没有等于变量order_no的,有的话什么都不做。没的话
rs("usename") = request("usename")
rs("dingdan") = request("order_no")
update进去
怎么写?
没有记录的话是不是不能用update啊 ?INSERT INTO ?
这样写可以吗?
dim db,Conn,Connstr,Rs,SQLstr
db = "/qu/zhoushan.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Conn.Open Connstr
SQLstr = "SELECT * FROM qu1 WHERE dingdan = '"& order_no &"'"
Set Rs = Conn.Execute(SQLstr)
If Rs.Eof Then
Conn.Execute("INSERT INTO qu1 (usename , dingdan , total_fee) VALUES ('"& request("usename") &"','"& request("order_no") &"','"& request("total_fee") &"')")
End If 展开
1、用Jet方式连接数据库zhoushan.mdb(在文件夹qu里面),查询qu1的表,dingdan字段有没有等于变量order_no的,有的话什么都不做。没的话
rs("usename") = request("usename")
rs("dingdan") = request("order_no")
update进去
怎么写?
没有记录的话是不是不能用update啊 ?INSERT INTO ?
这样写可以吗?
dim db,Conn,Connstr,Rs,SQLstr
db = "/qu/zhoushan.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Conn.Open Connstr
SQLstr = "SELECT * FROM qu1 WHERE dingdan = '"& order_no &"'"
Set Rs = Conn.Execute(SQLstr)
If Rs.Eof Then
Conn.Execute("INSERT INTO qu1 (usename , dingdan , total_fee) VALUES ('"& request("usename") &"','"& request("order_no") &"','"& request("total_fee") &"')")
End If 展开
2个回答
展开全部
set rs=conn.execute("select * from qu1 where dingdan ='"&request("order_no")&"'")
if rs.bof and rs.eof then
rs("usename") = request("usename")
rs("dingdan") = request("order_no")
rs.update
end if
if rs.bof and rs.eof then
rs("usename") = request("usename")
rs("dingdan") = request("order_no")
rs.update
end if
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询