ADO 添加记录
我们可以使用 SQL INSERT INTO 命令向数据库中的表中添加一条记录。
向数据库表中添加一条记录
我们要向 Northwind 数据库的 Customers 表中添加一条新记录。我们首先创建一个包含我们要收集数据字段的表单
<html>
<body>
<form method="post" action="demo_add.asp">
<table>
<tr>
<td>客户 ID:</td>
<td><input name="custid"></td>
</tr><tr>
<td>公司名称:</td>
<td><input name="compname"></td>
</tr><tr>
<td>联系人姓名:</td>
<td><input name="contname"></td>
</tr><tr>
<td>地址:</td>
<td><input name="address"></td>
</tr><tr>
<td>城市:</td>
<td><input name="city"></td>
</tr><tr>
<td>邮政编码:</td>
<td><input name="postcode"></td>
</tr><tr>
<td>国家:</td>
<td><input name="country"></td>
</tr>
</table>
<br><br>
<input type="submit" value="添加新记录">
<input type="reset" value="取消">
</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("没有更新权限！")
else
Response.Write("<h3>" & recaffected & " 条记录已添加</h3>")
end if
conn.close
%>
</body>
</html>
重要
如果您使用 SQL INSERT 命令，请注意以下事项：
- 如果表包含主键，请确保为该主键字段添加一个唯一、非 Null 的值（否则，提供程序可能不会添加记录，或者会发生错误）。
- 如果表包含 AutoNumber 字段，请不要在 SQL INSERT 命令中包含此字段（该字段的值将由提供程序自动处理）。
没有数据的字段怎么办？
在 MS Access 数据库中，如果将 AllowZeroLength 属性设置为 Yes，您可以在文本、超链接和备忘录字段中输入零长度字符串 ("")。
注意：并非所有数据库都支持零长度字符串，并且在添加带有空白字段的记录时可能会导致错误。检查您的数据库支持的数据类型非常重要。
