ADO如何新增/修改/?h除儋料?斓馁Y料呢？

新增儋料?斓馁Y料

首先使用ado呗劫到Access儋料?祛topsamp.mdb，下SQL指令檫?①Y料表「?a品」的儋料，?⒔Y果?骰氐津s1的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 "?a品",conn1,1,3

使用Addnew方法以新增一剐儋料，ASP程式瘁如下：

rs1.Addnew

　

韵定儋料表各???谖坏闹担?您可以使用以下三肺遮法：

rs1("?谖幻?费").Value = 值

rs1("?谖幻?费") = 值

rs1(?谖豁?序) = 值

譬如真，ASP程式瘁如下：

rs1("名费").Value = "剐??型??呢"

rs1("?盗喀quot;) = 100

rs1(0) = "12345"

最後下??Update方法，即?⑿略龅馁Y料?Υ娴劫Y料表??中。

rs1.Update

rs1.Close

Response.Write("增加儋料: 名费 = 剐??型??呢<P>")

修改儋料?斓馁Y料

若要修改儋料?斓馁Y料，首先使用ado呗劫到Access儋料?祛topsamp.mdb，下SQL指令?ふ掖?修改的儋料，?⒔Y果?骰氐津s1的recordset??中，ASP程式瘁如下：

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

sql = "SELECT * FROM ?a品 WHERE 名费='剐??型??呢'"

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

若找到待修改的儋料，韵定儋料表各???谖坏闹担?最後下??Update方法，即?⑿略龅馁Y料?Υ娴劫Y料表??中，ASP程式瘁如下：

if not rs1.EOF then

randomize

no1 = round(rnd() * 10)

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

rs1("名费").Value = new1

rs1.Update

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

end if

?h除儋料?斓馁Y料

若要?h除儋料?斓馁Y料，首先使用ado呗劫到Access儋料?祛topsamp.mdb，下SQL指令?ふ掖??h除的儋料，?⒔Y果?骰氐津s1的recordset??中，ASP程式瘁如下：

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

sql = "SELECT * FROM ?a品 WHERE 名费='" & new1 & "'"

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

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

if not rs1.EOF then

rs1.Delete

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

end if

conn1.Close