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

会写SQL语句吧，用个CString 类型的构建一个SQL语句，用下面这句执行：

try

{

记录集 = m_pConnection->Execute((_bstr_t)strSQL,NULL,adCmdText)

}

catch(...)

{

}

添加、修改、删除都一样，只是SQL语句不一样。

再给你一个有用的函数：

//根据字段返回值

CString GetFieldValue(CString strField)

{

_variant_t value

CString strValue

value=m_Rst->GetCollect((_bstr_t)strField)

if(value.vt==VT_EMPTY ||value.vt==VT_NULL)

strValue=""

else

{

strValue=(char*)(_bstr_t)value

strValue.TrimRight()

strValue.TrimLeft()

}

return strValue

}

---