AddNew 方法范例 (VBScript)

2009-1-8 10:31:40 3643

本范例使用 AddNew 方法来创建具有指定名称的新记录。

在 Active Server Page (ASP) 中使用下列范例。要查看此完整功能范例，C:mssdksamplesdataaccessrds 处必须存在数据源 AdvWorks.mdb（与 SDK 一起安装）。这是 Microsoft Access 数据库文件。

使用 Find 定位文件 Adovbs.inc，并将其放到计划使用的目录中。请将下列代码剪切并粘贴到记事本或其他文本编辑器中，并将其另存为 AddNew.asp。可以在任何客户端浏览器中查看结果。

要执行本范例，请在 HTML 表中添加虚构的新记录。单击“Add New”。要删除不需要的记录，请参阅 Delete 方法范例。

<%@Language = VBScript %>

ADO Open Method

ADO AddNew Method

<%
src = "C:mssdksamplesdataaccessrdsadvworks.mdb"
sC & src
'Create and Open Connection Object
Set OBJdbConn = Server.CreateObject("ADODB.Connection")
OBJdbConn.Open sConnStr
'Create and Open Recordset Object
Set RsCustomerList = Server.CreateObject("ADODB.Recordset")
RsCustomerList.ActiveConnection = OBJdbConn
RsCustomerList.CursorType = adOpenKeyset
RsCustomerList.LockType = adLockOptimistic
RsCustomerList.Source = "Customers"
RsCustomerList.Open
%>
If this is first time page is open, Form collection will be empty when data is entered.
run AddNew method
-->
<% If Not IsEmpty(Request.Form) Then
    If Not Request.Form("CompanyName") = "" Then
        RsCustomerList.AddNew
        RsCustomerList("CompanyName") = Request.Form("CompanyName")
        RsCustomerList("ContactLastName") = Request.Form("LastName")
        RsCustomerList("ContactFirstName") = Request.Form("FirstName")
        RsCustomerList("PhoneNumber") = Request.Form("PhoneNumber")
        RsCustomerList("City") = Request.Form("City")
        RsCustomerList("StateOrProvince") = Request.Form("State")
        RsCustomerList.Update
        RsCustomerList.MoveFirst
    End If
End If
%>

<% Do While Not RsCustomerList.EOF %>

<%
RScustomerList.MoveNext
Loop
%>

Company Name	Contact Name	Phone Number	City	State/Province
<%= RSCustomerList("CompanyName")%>	<%= RScustomerList("ContactLastName") & ", " %> <%= RScustomerList("ContactFirstName") %>	<%= RScustomerList("PhoneNumber")%>	<%= RScustomerList("City")%>	<%= RScustomerList("StateOrProvince")%>