vb执行sql server数据插入时出错了

Question

错误描述：将截断字符串或二进制数据
错误代码：－2147217833
这是什么意思啊
支个招啊

Answer 1

插入的STRING太长了，加大数据库字段的长度

Answer 2

添加用户信息的函数：
Public Function AddUser(ByRef user As ClsItemUser) As Boolean
’ClsItemUser是存储用户信息的实体对象的类
On Error GoTo ON_ERROR
    Dim strsql As String
    Dim strPWD As String    strPWD = c1.Md5_String_Calc(Trim(user.TuserPWD))  '加密用户密码
‘以下是执行的SQL语句
    strsql = "insert into userinfo(userNumber,userName,userAge,userSex,userProvince,userAnswer1,userAnswer2,userAnswer3,[userE-mail],userPWD) values('" & user.TuserNumber & "','" & user.TuserName & "','" & user.TuserAge & "','" & user.TuserSex & "','" & user.TuserProvince & "','" & user.TuserAnswer1 & "','" & user.TuserAnswer2 & "','" & user.TuserAnswer3 & "','" & user.TuserMail & "','" & strPWD & "')"    conConToDB.Execute (strsql)
    AddUser = True
    Exit Function
ON_ERROR:
    MsgBox "添加用户数据出错！"
    AddUser = Flase
End Function
各位帮我看下是strsql的问题吗

Answer 3

strPWD字符串太长了,把userPWD字段改成Text类型。

Answer 4

建议你增加几条语句：msgbox len(user.TuserName)，......
然后把得出的长度与数据库设计的字段长度作一比对，当有所获。