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

1、Microsoft Access窗口中，选择文件菜单中的打开选项，打开一个已有的数据库。

2、数据库中有两张表格，如下图所示。

3、数据库中，表格学生信息是课程成绩的子表。

4、如果直接在子表中插入记录，会提示不能添加或修改。

5、其实，只需在主表中，插入相关的主键和记录。

6、接着，就可以在子表中插入相关记录了。

7、如果要在子表中插入字段，只需选择单击以添加选项。

8、新增字段后，输入字段名即可。

---