急着交货,大伙帮着看看,散分相谢!!!两个以上combox不能同时使用(有代码)叩谢!!!

Terrior007 2003-11-21 01:53:20
dim string2 as string
string2 = ""
'cmb_P,cmb_Si 均为combox控件
'chk_P,chk_Si 为checkbox控件


If chk_P.Value = vbChecked Then
string2 = string2 & " " & cmb_P.Text
End If
If chk_Si.Value = vbChecked Then
string2 = string2 & " " & cmb_Si.Text
End If


’我用VB+SQL Server2000
’想要实现:选中chkbox时,对应的combox值存在string2中,然后存入数据库
‘一个时没问题,两个以上时:

错误提示:
多步OLE DB操作产生错误。如果有可能,请检查每个OLE DB状态值。
没有工作被完成。

小弟跪求答案,一定给分!
...全文
42 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
taosihai1only 2003-11-21
  • 打赏
  • 举报
回复
up
kimurakenshin 2003-11-21
  • 打赏
  • 举报
回复
代码没有错误,是不是数据库连接时的错误,或者没有急时释放资源??
Terrior007 2003-11-21
  • 打赏
  • 举报
回复
谢谢各位的指点了!!


存入数据库的代码如下:

我想存入数据库的代码应该是好的,因为我只选一个的时候没有问题;
Debug调试显示:string2的值是对的,但是就是不能存入数据库;

to SoHo_Andy(冰):我把字段设为varchar(200),错误依然啊,请问这种字段应该用什么类型啊,多大??

dim string2 as string
string2 = ""

dim mrc as recordset
txtSQL = "select * from baogao"
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.AddNew
'cmb_P,cmb_Si 均为combox控件
'chk_P,chk_Si 为checkbox控件


If chk_P.Value = vbChecked Then
string2 = string2 & " " & cmb_P.Text
End If
If chk_Si.Value = vbChecked Then
string2 = string2 & " " & cmb_Si.Text
End If


mrc.Fields(n) = string2
mrc.Update
mrc.Close

再次谢谢大家的关注,在线等
老马鲍勃 2003-11-21
  • 打赏
  • 举报
回复
我觉得你应该使用VB里的DATAFORMAT函数,我用它非常好用
SoHo_Andy 2003-11-21
  • 打赏
  • 举报
回复
经常有啦,就是数据库字段设计的长度不够
你要保存进去的字符串太长,就会报这种多步OLE DB 的错误
boydgmx 2003-11-21
  • 打赏
  • 举报
回复
认真检查写库代码,用debug认真检查每个生成的SQL语句
dysqw 2003-11-21
  • 打赏
  • 举报
回复
请帖出存入数据库的代码
lemonchen 2003-11-21
  • 打赏
  • 举报
回复
看一下你的保存过程和数据库结构吧
flc 2003-11-21
  • 打赏
  • 举报
回复
你应该看看你数据库连接的代码,检查是否出错,我认为你的以上的代码没有什么错误,请贴出你的连接代码。
flc 2003-11-21
  • 打赏
  • 举报
回复
关注

7,771

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧