Access数据库添加数据问题

发布网友 发布时间：2022-04-09 19:59

我来回答

共5个回答

热心网友 时间：2022-04-09 21:28

改成这样：

<%
Dim spl,item,name,fclass,sclass,photo,newp,sphoto,hits,description,gw,size,nw
item = Trim(Request.Form("item"))
name=Trim(Request.Form("name"))
fclass=Trim(Request.Form("fclass"))
sclass=Trim(Request.Form("sclass"))
photo=Trim(Request.Form("photo"))
newp=Trim(Request.Form("new"))
sphoto=Trim(Request.Form("sphoto"))
hits=Trim(Request.Form("hits"))
description=Trim(Request.Form("description"))
gw=Trim(Request.Form("gw"))
size=Trim(Request.Form("size"))
nw=Trim(Request.Form("nw"))
if Request.Form("flag")="new" Then
set HVrs=Server.CreateObject("adodb.recordset")
sql = "Select * from data where item=''"&item&"'"
HVrs.Open sql,conn,1,3 '是HVrs不是rs
if Not HVrs.EOF Then
Response.Write("<center><p><b>该产品已经存在，</b></p>请<a href='reg.asp'>返回

</a>重新添加</center>")
Else
Set Urs=nothing '是nothing，不是nothin
Set Urs=Server.CreateObject("adodb.recordset")
sql = "Select * from data"
Urs.Open sql,conn,1,3
Urs.addnew
Urs("item")=item
Urs("name")=name
Urs("fclass")=fclass
Urs("sclass")=sclass
Urs("photo")=photo
Urs("new")=newp
Urs("sphoto")=sphoto
Urs("hits")=hits
Urs("description")=description
Urs("gw")=gw
Urs("size")=size
Urs("nw")=nw
Urs.update
Urs.Close
Set Urs=nothing
End if
End if
rs.Close
Set rs=nothing
Response.Write("<center><p class='STYLE1'>恭喜，新产品添加成功!</p>请进入<a

href='all.asp'>所有产品信息</a>管理产品信息</center>")
%><title>新产品添加</title>

热心网友 时间：2022-04-09 22:46

rs.Open sql,conn,1,3 在这一句前加上一句话就成了
加上set rs=server.createobject("adodb.recordset")

热心网友 时间：2022-04-10 00:21

未出现楼主说的问题1,请看看你的字段名字是不是写错了?如果正确,请确认一下你执行完insert
into
a
(newtext)
values('123')
后,ntext是否有把内容添加进去了

热心网友 时间：2022-04-10 02:12

ntext是保留字，password
也是。不能用作列名

热心网友 时间：2022-04-10 04:20

ntext
可变长度
Unicode
数据的最大长度为
230
-
1
(1,073,741,823)
个字符。存储大小是所输入字符个数的两倍（以字节为单位）。ntext
在
SQL-92
中的同义词是
national
text。
要为列得加[ntext]