急救！ 把access数据库导入sqlserver2000后， 使用rs.addnew方法无法添加数据！

我把access导入sqlserver2000后，使用rs.addnew 无法插入数据，怎么回事啊？
部分代码：
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select * From pers"
rs.Open sql,conn,1,3
rs.AddNew
rs("username")=username
rs("realname")=realname
if request("nameprotect")="true" then
rs("nameprotect")=true
else
rs("nameprotect")=false
end if
rs("polity")=polity
rs("marry")=marry
rs("province")=province
rs("city")=city
rs("birthday")=birthday
rs("nation")=nation
rs("interest")=interest
rs("graduation")=graduation
rs("zhuanye")=zhuanye
rs("degree")=degree
rs("engdegree")=engdegree
rs("comdegree")=comdegree
rs("experiences")=experiences
rs("danwei")=danwei
rs("nowjob")=nowjob
rs("skill")=skill
rs("jobprocess")=jobprocess
rs("yuexin")=yuexin
rs("baoxian")=baoxian
rs("zhufang")=zhufang
rs("jobform")=jobform
rs("jobclass")=jobclass
rs("position")=position
rs("moreposition")=moreposition
rs("jobarea")=jobarea
rs("introduces")=introduces
rs("tel")=tel
rs("address")=address
rs("zip")=zip
rs("homepage")=homepage
rs("oicq")=oicq
rs("time")=now()
rs("new")=true
rs("perslevel")=0
rs.update
rs.close
set rs=nothing

20 个解决方案

#1

RP?

#2

if request("nameprotect")="true" then 
rs("nameprotect")=1
else 
rs("nameprotect")=0
end if 

#3

什么错误??

#4

没有错误  程序正常执行   就是没有插入数据

#5

有你没有提交事务的可能性吗？

#6

我是个菜鸟，望高手明晰，什么提交事务的可能性。

#7

SQL2000里没有TRUE这玩意 ，是用1，0来表示，再看看你的在ACCESS里的那个自动编号的ID，在SQL2000里要改成标识也就是自增，另外看下你的字段里的数字类型，给个默认值，比如0

#8

肯定有错误吧
你是否有容错代码？
把容错代码去掉以后就可以看到错误提示了

#9

说法和二楼是一样的喽   是1，0的问题   我试试哈  

#10

应该是你在转换过程中一些字段类型变了，导致无法写入

access转sqlserver2000经常出现这样的问题

#11

检查你数据库连接的地方是否有
on error resume next这个东西
有就去掉就提示错误了

#12

Set rs = Server.CreateObject("ADODB.RecordSet") 
sql = "select * From pers" 
rs.Open sql,conn,3,1 
把这个 去掉 on error resume next 就能看到错误提示了 

#13

rs("time")=now() 
这个合适吗   不是说sqlserver要用getdate（）的吗   
没有容错代码啊

#14

on error resume next 已经注释掉了啊  

#15

去掉都不提示错误？
是不是还有啊？

确保表单名前后一致

确保变量有值的情况下

插入不进数据库


那么就只可能是有字段的类型不统一导致无法插入

这样程序就会出错

有容错代码的话，那他就不会提示了

#16

我的错  我的错   连接头一行  就是容错代码  

#17

 无法显示网页 
您要访问的网页有问题，无法显示。 

--------------------------------------------------------------------------------





HTTP 500 - 内部服务器错误 
Internet Explorer  

#18

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<!--#include file="inc/Conn.asp"-->
<!--#include file="Inc/eshopcode.asp"-->
<!--#include file="inc/MD5.asp"-->
<%
If Request.QueryString("action")="" Then
Response.Redirect "Index.asp"
Else
     Ip_address=Request.ServerVariables ("HTTP_X_FORWARDED_FOR")
     If Ip_address=""      Then
     Ip_address= Request.ServerVariables ("REMOTE_ADDR")
 end if
UserName=Trim(Request.Form("UserName"))
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
if checkstr2(UserName)=true then
       response.Write("<center>您输入的用户名中含有'~!@#$%^&*(),.<>{}[]等特殊字符，请检查重填！<br><a href='"&server_v1&"'>返回上一页</a></center>")
       response.End()
end if
Password=Trim(Request.Form("Password"))
if checkstr2(Password)=true then
       response.Write("<center>您输入的密码中含有'~!@#$%^&*(),.<>{}[]等特殊字符，请检查重填！<br><a href='"&server_v1&"'>返回上一页</a></center>")
       response.End()
end if
Password=MD5(Password,16)
usertruepas=trim(request.form("password"))
sex=request.form("sex")
Question=checkstr(Trim(Request.Form("Question")))
Answer=md5(Trim(Request.Form("Answer")),16)
email=checkstr(Trim(Request.Form("email")))
if username="" or password="" then
response.Write("<center>不好意思，您填写的不完整，请后退重填，有问题请联系管理员。</center>")
response.End()
end if
Set ob=Conn.Execute("Select * From Dv_User Where UserName='"&UserName&"' ")
If Not(ob.Eof and ob.Bof) Then
    Response.write "<script language='javascript'>" & chr(13)
Response.write "alert('用户名已存在!');" & Chr(13)
Response.write "history.go(-1);"&Chr(13)
Response.write "</script>" & Chr(13)
    Response.End 
Else
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select * From Dv_User"
rs.Open sql,conn,1,3
rs.AddNew
rs("UserName")=UserName
rs("usersex")=sex
rs("UserPassWord")=Password
rs("usertruepas")=usertruepas
rs("userQuesion")=Question
rs("userAnswer")=Answer
rs("Useremail")=email
if request.QueryString("type")="pers" then
rs("usertype")="pers"
else if request.QueryString("type")="comp" then
rs("usertype")="comp"
end if
end if
    Rs("JoinDate")=now()
Rs("Lockuser")=0
Rs("Userclass")="新手上路"
Rs("UserGroupID")=9
Rs("TitlePic")="level0.gif"
Rs("UserFace")="Images/userface/image1.gif"
rs("UserIM")="||||||||||||||||||"
    Rs("UserWidth")=32
Rs("Usertoday")="0|0|0|0|0"
Rs("UserHeight")=32
Rs("UserLogins")=1
Rs("LastLogin")=now()
Rs("userWealth")=100
Rs("userEP")=60
Rs("usercP")=30
Rs("UserInfo")="||||||||||||||||||||||||||||||||||||||||||"
Rs("UserSetting")="1|||0|||0"
Rs("UserPower")=0
Rs("UserDel")=0
Rs("UserIsbest")=0
Rs("UserMoney")=0
Rs("UserTicket")=0
Rs("UserFav")="陌生人,我的好友,黑名单"
Rs("IsChallenge")=0
Rs("UserHidden")=0
Rs("UserLastIP")=ip_address
Rs.Update
rs.close
set rs=nothing
set rs2=server.createobject("adodb.recordset")
sql2="select * from dv_setup"
rs2.open sql2,conn,1,3
rs2("Forum_UserNum")=rs2("Forum_UserNum")+1
rs2("Forum_lastUser")=username
rs2.update
rs2.close
set rs2=nothing
end if
if request.QueryString("type")="pers" then
Session("PersUserName")=username
Session("PersPassWord")=password
session("usertype")="pers"
Session.Timeout = 30
response.Cookies("37job")("persusername")=username
response.Cookies("37job")("perspassword")=password
response.cookies("37job").Expires=date+1
Response.write "<script language='javascript'>" & chr(13)
Response.write "alert('注册成功!请接着填写求职信息');" & Chr(13)
Response.write "window.document.location.href='pers_reg3.asp';"&Chr(13)
Response.write "</script>" & Chr(13)
    Response.End 
end if
if request.QueryString("type")="comp" then
Session("CompUserName")=username
Session("CompPassWord")=password
session("usertype")="comp"
session("CompLevel")=0
Session.Timeout = 30
response.Cookies("37job")("compusername")=username
response.Cookies("37job")("comppassword")=password
response.cookies("37job").Expires=date+1
Response.write "<script language='javascript'>" & chr(13)
Response.write "alert('注册成功!请接着填写公司信息');" & Chr(13)
Response.write "window.document.location.href='comp_reg3.asp';"&Chr(13)
Response.write "</script>" & Chr(13)
    Response.End 
end if
end if
conn.Close
set conn=nothing
%>

#19

<%@LANGUAGE="vbscript.Encode" codepage ="936"%>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<!--#include file="inc/Conn.asp"-->
<!--#include file="Inc/eshopcode.asp"-->
<!--#include file="inc/MD5.asp"-->
<%
If Request.QueryString("action")="" Then
...

#20

不用加  看錯了

#21

• access转成sqlsever后无法添加数据,解决方法参考