ADO 添加记录

🌙
手机阅读
本文目录结构
axihe

ADO 添加记录

我们可以使用 SQL 的 INSERT INTO 命令向数据库中的表添加记录。

向数据库中的表添加记录

我们希望向 Northwind 数据库中的 Customers 表添加一条新的记录。我们首先要创建一个表单,这个表单包含了我们需要从中搜集数据的输入域:

<html>
    <body>

        <form method="post" action="demo_add.asp">
            <table>
                <tr>
                    <td>CustomerID:</td>
                    <td><input name="custid"></td>
                </tr>
                <tr>
                    <td>Company Name:</td>
                    <td><input name="compname"></td>
                </tr>
                <tr>
                    <td>Contact Name:</td>
                    <td><input name="contname"></td>
                </tr>
                <tr>
                    <td>Address:</td>
                    <td><input name="address"></td>
                </tr>
                <tr>
                    <td>City:</td>
                    <td><input name="city"></td>
                </tr>
                <tr>
                    <td>Postal Code:</td>
                    <td><input name="postcode"></td>
                </tr>
                <tr>
                    <td>Country:</td>
                    <td><input name="country"></td>
                </tr>
            </table>
            <br><br>
            <input type="submit" value="Add New">
            <input type="reset" value="Cancel">
        </form>

    </body>
</html>

当用户按下确认按钮时,这个表单就会被送往名为 “demo_add.asp” 的文件。文件 “demo_add.asp” 中含有可向 Customers 表添加一条新记录的代码:

<html>
<body>

    <%
    set conn=Server.CreateObject("ADODB.Connection")
    conn.Provider="Microsoft.Jet.OLEDB.4.0"
    conn.Open "c:/webdata/northwind.mdb"

    sql="INSERT INTO customers (customerID,companyname,"
    sql=sql & "contactname,address,city,postalcode,country)"
    sql=sql & " VALUES "
    sql=sql & "('" & Request.Form("custid") & "',"
    sql=sql & "'" & Request.Form("compname") & "',"
    sql=sql & "'" & Request.Form("contname") & "',"
    sql=sql & "'" & Request.Form("address") & "',"
    sql=sql & "'" & Request.Form("city") & "',"
    sql=sql & "'" & Request.Form("postcode") & "',"
    sql=sql & "'" & Request.Form("country") & "')"

    on error resume next
    conn.Execute sql,recaffected
    if err<>0 then
    Response.Write("No update permissions!")
    else
    Response.Write("<h3>" & recaffected & " record added</h3>")
    end if
    conn.close
    %>

</body>
</html>

重要事项

在您使用 INSERT command 命令时,请注意以下事项:

  • 如果表含有一个主键,请确保向主键字段添加的值是唯一且非空的(否则,provider 就不会追加此记录,亦或发生错误)
  • 如果表含有一个自动编号的字段,请不要在 INSERT 命令中涉及此字段(这个字段的值是由 provider 负责的)

关于无数据字段

在 MS Access 数据库中,假如您将 AllowZeroLength 属性设置为 “Yes”,您可以在文本、超链接以及备忘字段输入零长度的字符串 (“”)。

注释:并非所有的数据库都支持零长度的字符串,因而当添加带有空白字段的记录时可能会产生错误。因此,检查您使用的数据库所支持的数据类型是很重要的。

axihe

AXIHE / 精选资源

浏览全部教程

面试题

学习网站

前端培训
自己甄别

前端书籍

关于朱安邦

我叫 朱安邦,阿西河的站长,在杭州。

以前是一名平面设计师,后来开始接接触前端开发,主要研究前端技术中的JS方向。

业余时间我喜欢分享和交流自己的技术,欢迎大家关注我的 Bilibili 和抖音。

关注我: Github / 知乎

如果你加我的私人微信,麻烦写上您的 称呼,所在地区,职业,方便我备注,谢谢


本站的微信公众号

阿西河前端教程

Anbang

安邦的私人微信

微信号: yaolushan

Anbang

Bilibili(B站)

朱安邦

Anbang