<%
Dbpath=server.MapPath("sjk/clients.mdb")
set Conn=server.createObject("ADODB.connection")
Conn.open "data source="&dbpath&";provider=microsoft.Jet.OLEDB.4.0;"
set Open_conn=Conn
If Err Then
err.Clear
Conn.close:set Conn=nothing
Response.Write "对不起,数据库连接出错。"
End If
Response.Write "数据库连接"
dim xing
dim tel
dim youxiang
xing="liyunqi"
tel="13244566767"
youxiang="liyunqi@163.com"
sql="INSERT INTO zhuce (xing,tel,"
sql=sql & "youxiang)"
sql=sql & " VALUES "
sql=sql & "('" &xing& "',"
sql=sql & "'" &tel& "',"
sql=sql & "'" & youxiang& "')"
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
Dbpath=server.MapPath("sjk/clients.mdb")
set Conn=server.createObject("ADODB.connection")
Conn.open "data source="&dbpath&";provider=microsoft.Jet.OLEDB.4.0;"
set Open_conn=Conn
If Err Then
err.Clear
Conn.close:set Conn=nothing
Response.Write "对不起,数据库连接出错。"
End If
Response.Write "数据库连接"
dim xing
dim tel
dim youxiang
xing="liyunqi"
tel="13244566767"
youxiang="liyunqi@163.com"
sql="INSERT INTO zhuce (xing,tel,"
sql=sql & "youxiang)"
sql=sql & " VALUES "
sql=sql & "('" &xing& "',"
sql=sql & "'" &tel& "',"
sql=sql & "'" & youxiang& "')"
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
%>
程序一直出错,原因,在于主键的设定
重要事项
在您使用 INSERT command 命令时,请注意以下事项:
- 如果表含有一个主键,请确保向主键字段添加的值是唯一且非空的(否则,provider 就不会追加此记录,亦或发生错误)
- 如果表含有一个自动编号的字段,请不要在 INSERT 命令中涉及此字段(这个字段的值是由 provider 负责的)