asp+access 有关select的删除、修改、添加
一个text和一个菜单select,其中select从数据库读出,又当点击select中的选项,然后在text中出现相应的选项,对选项可以进行删除、修改、添加,假如数据表...
一个text和一个菜单select,其中select从数据库读出,又当点击select中的选项,然后在text中出现相应的选项,对选项可以进行删除、修改、添加,假如数据表名为A,select选项内容在数据表中的字段名为“place”,比如 select可以是广东,山东、、、
麻烦各位大虾了 展开
麻烦各位大虾了 展开
展开全部
ateObject("adodb.recordset")
rs.open "select * from 表1",conn,1,3
rs.AddNew
rs("编号A")=trim(request.form("编号A"))
rs("大类名称A")=request.form("大类名称A")
rs.Update
rs.Close
set rs=nothing
rs.AddNew
rs.open "select * from 表2",conn,1,3
rs("编号B")=trim(request.form("编号B"))
rs("小类名称B")=trim(request.form("小类名称B"))
rs("大类名称A")=request.form("大类名称A")
rs.Update
rs.Close
set rs=nothing
'同时修改
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from 表1",conn,1,3
rs("编号A")=trim(request.form("编号A"))
rs("大类名称A")=request.form("大类名称A")
rs.Update
rs.Close
set rs=nothing
rs.open "select * from 表2",conn,1,3
rs("编号B")=trim(request.form("编号B"))
rs("小类名称B")=trim(request.form("小类名称B"))
rs("大类名称A")=request.form("大类名称A")
rs.Update
rs.Close
set rs=nothing
'同时删除
conn.execute ("delete from 表1 where 大类名称A='"&大类名称A&"'")
conn.execute ("delete from 表2 where 大类名称A='"&大类名称A&"'")
rs.open "select * from 表1",conn,1,3
rs.AddNew
rs("编号A")=trim(request.form("编号A"))
rs("大类名称A")=request.form("大类名称A")
rs.Update
rs.Close
set rs=nothing
rs.AddNew
rs.open "select * from 表2",conn,1,3
rs("编号B")=trim(request.form("编号B"))
rs("小类名称B")=trim(request.form("小类名称B"))
rs("大类名称A")=request.form("大类名称A")
rs.Update
rs.Close
set rs=nothing
'同时修改
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from 表1",conn,1,3
rs("编号A")=trim(request.form("编号A"))
rs("大类名称A")=request.form("大类名称A")
rs.Update
rs.Close
set rs=nothing
rs.open "select * from 表2",conn,1,3
rs("编号B")=trim(request.form("编号B"))
rs("小类名称B")=trim(request.form("小类名称B"))
rs("大类名称A")=request.form("大类名称A")
rs.Update
rs.Close
set rs=nothing
'同时删除
conn.execute ("delete from 表1 where 大类名称A='"&大类名称A&"'")
conn.execute ("delete from 表2 where 大类名称A='"&大类名称A&"'")
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询