经典论坛 » 后台数据库编程 » 麻烦大家帮我看下UPDATE的错误

xiangzi800 发表于 2008-7-4 22:50

麻烦大家帮我看下UPDATE的错误

麻烦大家帮我看下错在哪里,我已经把所有的字段设成 备注,还是错的

update member set username='学员姓名',password='登陆密码',sex='性　　别',birthday='出生日期',school='就读学校',studydate='入学时间',studygrade='',notebook='定级（段）记录定级（段）记录定级（段）记录 定级（段）记录定级（段）记录定级（段）记录 ',anything='获奖情况获奖情况获奖情况 获奖情况 ',classgrade='班别',classteacher='教练',rq1='日期1',bz1='备注1备注1备注1备注1',rq2='日期2日期2',bz2='备注2备注2 备注2备注2备注2 备注2 ',rq3='日期2日期2',rq4='日期4日期4',rq4='日期4日期4',addDate='2000-7-4',other='说明说明说明 说明说明说明说明说明说明说明说明说明说明 ' where memberid=245
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft JET Database Engine 错误 '80040e14'

UPDATE 语句的语法错误。


错误在红色那里,:

                  sql=sql & "rq4='" & rq4 & "',"
                  sql=sql & "rq4='" & rq4 & "',"
                                  sql=sql & "addDate='" & date() & "',"
                                  sql=sql & "other='" & other & "'"
                  sql=sql & " where memberid=" & memberid        
                               
                               
response.Write(sql)                                   
                        [color=Red]         conn.Execute(sql) [/color]




谢谢

zd8987 发表于 2008-7-5 00:37

错误不在这里，在前面if，没有闭合if end if
建议你可以这样，把那么多的sql语句中的所有的都去掉，只保留一个，看看行不行，如果还不行，那就是别的地方的原因，有时候报错的行数，不一定就是错误。

xiangzi800 发表于 2008-7-5 12:56

谢谢,我上面的程序是这样的:

[quote]

<%dim act
act=trim(request("act"))



memberid=trim(request("memberid"))



if act="save" then

        memberid        =trim(request.form("memberid"))                '用户名

        username        =trim(request.form("username"))                '用户名
        password        =trim(request.form("password"))                '用户名
        sex        =trim(request.form("sex"))                '用户名
        birthday        =trim(request.form("birthday"))                '用户名
        school        =trim(request.form("school"))                '用户名
        studydate        =trim(request.form("studydate"))                '用户名
        studygrade        =trim(request.form("studygrade"))                '用户名
        notebook        =trim(request.form("notebook"))                '用户名
        anything        =trim(request.form("anything"))                '用户名

        classgrade        =trim(request.form("classgrade"))                '用户名
        classteacher        =trim(request.form("classteacher"))                '用户名
        rq1        =trim(request.form("rq1"))                '用户名
        bz1        =trim(request.form("bz1"))                '用户名
        rq2        =trim(request.form("rq2"))                '用户名
        bz2        =trim(request.form("bz2"))                '用户名
        rq3        =trim(request.form("rq3"))                '用户名
        bz3        =trim(request.form("bz3"))                '用户名
        rq4        =trim(request.form("rq4"))                '用户名
        bz4        =trim(request.form("bz4"))                '用户名
        other        =trim(request.form("other"))                '用户名

       
set rs3=server.createObject("adodb.recordset")

          sql="update member set "         
                  sql=sql & "username='" & username & "',"
                  sql=sql & "password='" & password & "',"               
                  sql=sql & "sex='" & sex & "',"
                  sql=sql & "birthday='" & birthday & "',"
                  sql=sql & "school='" & school & "',"
                  sql=sql & "studydate='" & studydate & "',"
                  sql=sql & "studygrade='" & studygrade & "',"
                  sql=sql & "notebook='" & notebook & "',"                                  
                  sql=sql & "anything='" & anything & "',"
                                  
                                  
                                  
                  sql=sql & "classgrade='" & classgrade & "',"
                  sql=sql & "classteacher='" & classteacher & "',"
                  sql=sql & "rq1='" & rq1 & "',"
                  sql=sql & "bz1='" & bz1 & "',"                                  
                  sql=sql & "rq2='" & rq2 & "',"
                  sql=sql & "bz2='" & bz2 & "',"
                  sql=sql & "rq3='" & rq3 & "',"
                  sql=sql & "rq4='" & rq4 & "',"
                  sql=sql & "rq4='" & rq4 & "',"
                                  sql=sql & "addDate='" & date() & "',"
                                  sql=sql & "other='" & other & "'"
                  sql=sql & " where memberid=" & memberid        
                               
                               
response.Write(sql)   
                                  
                                 conn.Execute(sql)

       
       
response.write("<script language=javascript>alert('修改成功');")
response.Write("window.location.href='edit_member.asp';")
response.Write("</script>")       
       
       
       
       
        response.end

end if %>

[/quote]

查看完整版本: 麻烦大家帮我看下UPDATE的错误