ADO如何新增修改删除数据库的记录呢？

一、新增数据库的记录

首先使用ado连结到access数据库ntopsamp.mdb，用sql指令打开表「产品」的记录，将结果传回到rs1的

recordset当中，asp程式码如下：

set conn1 = server.createobject("adodb.connection")

conn1.open "dbq="& server.mappath("ntopsamp.mdb") &";driver={microsoft access driver (*.mdb)};"

set rs1 = server.createobject("adodb.recordset")

rs1.open "产品",conn1,1,3

使用addnew方法以新增一条记录，asp程式码如下：

rs1.addnew　

设定记录表各个字段的值，您可以使用以下三种语法：

rs1("字段名称").value = 值

rs1("字段名称") = 值

rs1(字段顺序) = 值

譬如说，asp程式码如下：

rs1("名称").value = "笔记型电脑"

rs1("数量") = 100

rs1(0) = "12345"

最後下个update方法，即将新增的记录储存到表当中。

rs1.update

rs1.close

response.write("增加记录: 名称 = 笔记型电脑

")

修改数据库的记录

若要修改数据库的记录，首先使用ado连结到access数据库ntopsamp.mdb，下sql指令寻找待修改的记录，将结

果传回到rs1的recordset当中，asp程式码如下：

set rs1 = server.createobject("adodb.recordset")

sql = "select * from 产品 where 名称=笔记型电脑"

rs1.open sql,conn1,1,3

若找到待修改的记录，设定表各个字段的值，最後下个update方法，即将新增的记录储存到表当中，asp程式码

如下：

if not rs1.eof then

randomize

no1 = round(rnd() * 10)

new1 = "笔记型电脑-" & no1

rs1("名称").value = new1

rs1.update

response.write("修改记录成: 名称= " & rs1("名称") & "")

end if

删除数据库的记录

若要删除数据库的记录，首先使用ado连结到access数据库ntopsamp.mdb，下sql指令寻找待删除的记录，将结果传回到rs1的recordset当中，asp程式码如下：

set rs1 = server.createobject("adodb.recordset")

sql = "select * from 产品 where 名称=" & new1 & ""

rs1.open sql,conn1,1,3

若找到待删除的记录，下个delete方法，即可删除表中的此记录，asp程式码如下：

if not rs1.eof then

rs1.delete

response.write("删除记录: 名称 = " & new1)

end if

conn1.close