本来这篇博客应该在上一篇日志应该写完的 , 但因为那里代码太免混乱 , 于是就把连接数据库和增删改查( 以ACC
ESS 数据库为准 )分开来了 , 继续不废话了 , 正题 :
1. 增加记录 insert
<% sql = "insert into leon (wang,ding) VALUES ('"&wang&"','"&ding&"')"
conn.execute(sql) %>
或者
<%Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from leon"
rs.open sql,conn
if rs.eof and rs.bof then
rs.addnew
rs("wang")=wang
rs("ding")=ding
rs.update
end if %>
2. 修改记录 modi
<% sql = "update leon set wang='"&wang&"',ding='"&ding&"' where id = "&id
conn.execute(sql) %>
或者
<%Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from leon where id="&id
rs.open sql,conn
if rs.eof and rs.bof then
rs("wang")=wang
rs("ding")=ding
rs.update
end if %>
3. 删除记录 delete
<% sql = "delete * from supply where id="&id
conn.execute(sql) %>
4. 查看记录 select
set rs = server.CreateObject("adodb.recordset")
sql = "select * from leon where userid = '"&userid&"' order by supply desc"
rs.open sql,conn,1,3
好了 , 增删改查都搞定了 , 基本上一个简单的系统程序就可以拿下了 . 哈
ESS 数据库为准 )分开来了 , 继续不废话了 , 正题 :
1. 增加记录 insert
<% sql = "insert into leon (wang,ding) VALUES ('"&wang&"','"&ding&"')"
conn.execute(sql) %>
或者
<%Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from leon"
rs.open sql,conn
if rs.eof and rs.bof then
rs.addnew
rs("wang")=wang
rs("ding")=ding
rs.update
end if %>
2. 修改记录 modi
<% sql = "update leon set wang='"&wang&"',ding='"&ding&"' where id = "&id
conn.execute(sql) %>
或者
<%Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from leon where id="&id
rs.open sql,conn
if rs.eof and rs.bof then
rs("wang")=wang
rs("ding")=ding
rs.update
end if %>
3. 删除记录 delete
<% sql = "delete * from supply where id="&id
conn.execute(sql) %>
4. 查看记录 select
set rs = server.CreateObject("adodb.recordset")
sql = "select * from leon where userid = '"&userid&"' order by supply desc"
rs.open sql,conn,1,3
好了 , 增删改查都搞定了 , 基本上一个简单的系统程序就可以拿下了 . 哈