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

ADO去执行SQL语句 delete from table详细应用可以这样首先引用一下ADO控件，或者在部件上添加ADO控件，这样就会自动引用然后下一步定义ADO控件将ADO控件连接到数据源再定义一个SQL语句，即是delete from table下一步就当然是执行这一句SQL语句了吧好了，删除完成详细应用代码dim conn as new ADODB.Connectionconnstring="provider=microsoft.jet.oledb.4.0data source =" &app.path &("/数据源路径")conn.Open connstringconn.execute "Delete from Table"msgbox "内容已经清除完毕"conn.close如果还有什么不明白的，欢迎继续追问

你再试下：

ADOQuery->Close()

ADOQuery->SQL->Clear()

ADOQuery->SQL->Add("select * from table where 1>0 or deleted()")

ADOQuery->Open()

---