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("增加?料: 名? = ??型??<P>")

修改?料?的?料

若要修改?料?的?料，首先使用ado??到Access?料?ntopsamp.mdb，下SQL指令?找待修改的?料，??果?回到rs1的recordset?中，ASP程式?如下：

Set rs1 = Server.CreateObject("ADODB.Recordset")

sql = "SELECT * FROM ?品 WHERE 名?='??型??'"

rs1.Open sql,conn1,1,3,1

若找到待修改的?料，?定?料表各??位的值，最後下?Update方法，即?新增的?料?存到?料表?中，ASP程式?如下：

if not rs1.EOF then

randomize

no1 = round(rnd() * 10)

new1 = "??型??-" & no1

rs1("名?").Value = new1

rs1.Update

Response.Write("修改?料成: 名?= " & rs1("名?") & "<p>")

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,1

若找到待?除的?料，下?Delete方法，即可?除?料表中的此??料，ASP程式?如下：

if not rs1.EOF then

rs1.Delete

Response.Write("?除?料: 名? = " & new1)

end if

conn1.Close