Try
            conn.Open()
            Dim strUpsql As String = "insert into [user](username,password,realname,sex,personID,ask,answer,email"
            strUpsql += ",userclass,age,classid,adddate,logintimes,lastlogin,score,addIP) "
            '在这里添加要插入的值
            strUpsql += "values('" & username.Text & "','" & md5password & "','" & realname.Text & "','" & sex.Text & "',"
            strUpsql += "'" & personID.Text & "','" & ask.Text & "','" & answer.Text & "','" & email.Text & "',"
            strUpsql += "'" & userclass.Text & "'," & age & "," & "NULL,'" & adddate & "',0,NULL,0,'" & userIP & "')"
            Response.Write(strUpsql)
            Dim cmd As New OleDbCommand(strUpsql, conn)
            cmd.ExecuteNonQuery()
            conn.Close()
            conn = Nothing
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try我有如上原代码,运行的时候提示说:INSERT INTO 语句的语法错误.
sql语句输出如下:insert into [user](username,password,realname,sex,personID,ask,answer,email,userclass,age,classid,adddate,logintimes,lastlogin,score,addIP) values('test','098F6BCD4621D373CADE4E832627B4F6','test','男','510891196902276752','test','test','test','common',20,NULL,'2009-4-20',0,NULL,0,'127.0.0.1')
请高手指点啊!!谢谢!!!

解决方案 »

  1.   

    你把SQL語句放到SQL中測試一下能不能過.
      

  2.   

    用SQL SERVER 运行下,看有什么错误,这样检查眼睛好累
      

  3.   


    Try 
       conn.Open() 
     Dim strUpsql As String = "insert into[user]([username],[password],realname,[sex],personID,ask,answer,[email]" 
                strUpsql += ",userclass,age,classid,adddate,logintimes,lastlogin,score,addIP) " 
                '在这里添加要插入的值 
                strUpsql += " values ('" & username.Text & "','" & md5password & "','" & realname.Text & "','" & sex.Text & "'," 
                strUpsql += "'" & personID.Text & "','" & ask.Text & "','" & answer.Text & "','" & email.Text & "'," 
                strUpsql += "'" & userclass.Text & "'," & age & "," & "NULL,'" & adddate & "',0,NULL,0,'" & userIP & "')" 
                Response.Write(strUpsql) 
                Dim cmd As New OleDbCommand(strUpsql, conn) 
                cmd.ExecuteNonQuery() 
                conn.Close() 
                conn = Nothing 
            Catch ex As Exception 
                Response.Write(ex.Message) 
            End Try 
      

  4.   

    我没有装SQL SERVER啊!!!
      

  5.   


    Try 
       conn.Open() 
     Dim strUpsql As String = "insert     into   [user]([username],[password],realname,[sex],personID,ask,answer,[email]," 
     strUpsql += " userclass,age,classid,adddate,logintimes,lastlogin,score,addIP) " 
                '在这里添加要插入的值 
                strUpsql += " values ('" & username.Text & "','" & md5password & "','" & realname.Text & "','" & sex.Text & "'," 
                strUpsql += "'" & personID.Text & "','" & ask.Text & "','" & answer.Text & "','" & email.Text & "'," 
                strUpsql += "'" & userclass.Text & "'," & age & "," & "NULL,'" & adddate & "',0,NULL,0,'" & userIP & "')" 
                Response.Write(strUpsql) 
                Dim cmd As New OleDbCommand(strUpsql, conn) 
                cmd.ExecuteNonQuery() 
                conn.Close() 
                conn = Nothing 
            Catch ex As Exception 
                Response.Write(ex.Message) 
            End Try