您的位置：程序门 -> vb -> vba

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

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

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

发表于：2007-01-13 12:09:58 楼主

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

发表于：2007-01-13 12:13:391楼得分:0

补充一点，这是在开发聊天软件的注册用户功能时出的错，也就是我要向数据库写入新用户信息时出此错，不解啊

发表于：2007-01-13 12:42:122楼得分:0

把你代码贴出来

发表于：2007-01-13 16:21:593楼得分:0

註冊信息輸入過多,數據表字段設定的字符長度不夠

发表于：2007-01-13 23:33:504楼得分:0

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

发表于：2007-01-14 00:37:175楼得分:0

添加用户信息的函数：
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.ＥＸＥＣute （strsql)
adduser = true
exit function

on_error:
msgbox "添加用户数据出错！ "
adduser = flase
end function
各位帮我看下是strsql的问题吗

发表于：2007-01-16 11:33:026楼得分:0

数据溢出了

数据类型的容量不够!

发表于：2007-01-16 12:55:117楼得分:0

减少sql语句的长度

发表于：2007-01-17 22:43:258楼得分:0

我加大了数据库字段的长度，但此法无效

发表于：2007-01-18 08:02:549楼得分:0

strpwd字符串太长了,把userpwd字段改成text类型。

发表于：2007-05-23 17:26:0510楼得分:0

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

其他资讯