您的位置：程序门 -> .net技术 -> vb.net

小弟很急``各位大哥能帮我下``

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

小弟很急``各位大哥能帮我下``

发表于：2007-02-06 14:01:59 楼主

那位大哥能帮小弟一把``我是先运行下面的代码``

if me.txtshoesid.text.trim.length = 0 and me.txtshoesid.text.trim.length then
msgbox（ "请输入正确的数据！ ", msgboxstyle.information, "提示 ")
me.txtshoesid.focus（)
me.combnoid.focus（)
exit sub
end if

sqlcmd.commandtext = "select 名称 ,尺寸 ,颜色,价格,数量 from 库存表 where 名称=@shoesid and 尺寸=@noid and 颜色=@colorid "
sqlcmd.parameters.add（ "@shoesid ", sqldbtype.varchar)
sqlcmd.parameters（ "@shoesid ").value = me.txtshoesid.text
sqlcmd.parameters.add（ "@noid ", sqldbtype.int)
sqlcmd.parameters（ "@noid ").value = me.combnoid.text
sqlcmd.parameters.add（ "@colorid ", sqldbtype.varchar)
sqlcmd.parameters（ "@colorid ").value = me.combcolorid.selecteditem
sqlcmd.connection = module1.sqlconn
sqlda.selectcommand = sqlcmd

dim sqldr as sqldatareader
try
module1.sqlconn.open（)
sqldr = sqlcmd.ＥＸＥＣutereader（commandbehavior.closeconnection)
if sqldr.read then
me.txtunitprice.text = sqldr（ "价格 ")
me.txtstockquantity.text = sqldr（ "数量 ")
end if
catch ex as exception
msgbox（ "发生错误: " & ex.message)
end try

end sub
然后在运行下面的代码``
private sub button1_click（byval sender as system.object, byval e as system.eventargs) handles button1.click
dim str as string
if module1.sqlconn.state <> connectionstate.open then
module1.sqlconn.open（)
end if
str = "insert into 销售表（名称,尺寸,颜色,价格) values （ ' " & txtshoesid.text.trim（) & " ', ' " & combnoid.selecteditem.tostring（) & " ', ' " & combcolorid.selecteditem.tostring（) & " ', ' " & txtunitprice.text.trim（) & " ') "
sqlcmd.connection = module1.sqlconn《运行会在这边停下来！！！》
sqlcmd.commandtype = commandtype.text
sqlcmd.commandtext = str
sqlda.selectcommand = sqlcmd
messagebox.show（ "销售成功 ", "提示信息 ")
txtshoesid.text = " "
combnoid.text = " "
combcolorid.text = " "
txtshoesid.focus（
然后会跳出一个“未处理的 "system.invalidoperatlionexception "类型的异常出现在system.data.dll中。
其他信息：sqlcommand是当前在忙open,fetching。
小弟急需要有那位好心的大哥能帮我下``应该在那边改，也顺便想大哥把我的代码复制下，然后修改下回复给小弟``小弟在这边先谢谢了~！~

发表于：2007-02-06 14:06:231楼得分:0

在每个函数的最后加上sqlconn.close（)

发表于：2007-02-06 14:08:532楼得分:0

module1.sqlconn.open（)改为
if module1.sqlconn.state <> connectionstate.open then
module1.sqlconn.open（)
end if

发表于：2007-02-06 14:09:093楼得分:0

sqlcmd.connection = module1.sqlconn, 把这段代码贴出来啊

发表于：2007-02-06 14:10:214楼得分:0

dim sqlcmd as new sqlcommand
sqlcmd.connection = module1.sqlconn

*****************************************************************************
欢迎使用csdn论坛专用阅读器 : csdn reader（附全部源代码)

最新版本：20070130

http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html

发表于：2007-02-06 15:32:485楼得分:0

可是还是不行我是照你们给我的修改方式可是还是出出现一样的是去哦`` 事情还是没有解决哦``
我现在都不知道怎么办哦``

发表于：2007-02-06 15:42:436楼得分:0

sqldr = sqlcmd.ＥＸＥＣutereader（commandbehavior.closeconnection)
if sqldr.read then
me.txtunitprice.text = sqldr（ "价格 ")
me.txtstockquantity.text = sqldr（ "数量 ")
end if
sqldr.close（);
sqlconn.close（)

发表于：2007-02-06 15:53:487楼得分:0

我是先执行下面的代码``
private sub txtcolorid_selectedindexchanged（byval sender as system.object, byval e as system.eventargs) handles combcolorid.selectedindexchanged
if me.txtshoesid.text.trim.length = 0 and me.txtshoesid.text.trim.length then
msgbox（ "请输入正确的数据！ ", msgboxstyle.information, "提示 ")
me.txtshoesid.focus（)
me.combnoid.focus（)
exit sub
end if

sqlcmd.commandtext = "select 名称 ,尺寸 ,颜色,价格,数量 from 库存表 where 名称=@shoesid and 尺寸=@noid and 颜色=@colorid "
sqlcmd.parameters.add（ "@shoesid ", sqldbtype.varchar)
sqlcmd.parameters（ "@shoesid ").value = me.txtshoesid.text
sqlcmd.parameters.add（ "@noid ", sqldbtype.int)
sqlcmd.parameters（ "@noid ").value = me.combnoid.text
sqlcmd.parameters.add（ "@colorid ", sqldbtype.varchar)
sqlcmd.parameters（ "@colorid ").value = me.combcolorid.selecteditem
sqlcmd.connection = module1.sqlconn
sqlda.selectcommand = sqlcmd

dim sqldr as sqldatareader
try
if module1.sqlconn.state <> connectionstate.open then
module1.sqlconn.open（)
end if
sqldr = sqlcmd.ＥＸＥＣutereader（commandbehavior.closeconnection)
if sqldr.read then
me.txtunitprice.text = sqldr（ "价格 ")
me.txtstockquantity.text = sqldr（ "数量 ")
end if
catch ex as exception
msgbox（ "发生错误: " & ex.message)
module1.sqlconn.close（)
end try

module1.sqlconn.close（)
end sub
执行完后我接着执行二个代码``
module1.sqlconn.open（)
try
dim str as string

sqlcmd.connection = module1.sqlconn
str = "insert into 销售表（名称,尺寸,颜色,价格) values （ ' " & txtshoesid.text.trim（) & " ', ' " & combnoid.selecteditem.tostring（) & " ', ' " & combcolorid.selecteditem.tostring（) & " ', ' " & txtunitprice.text.trim（) & " ') "
sqlcmd.commandtype = commandtype.text
sqlcmd.ＥＸＥＣutenonquery（)
messagebox.show（ "成功！ ", "提醒 ", messageboxbuttons.ok, messageboxicon.information)

catch ex as exception
messagebox.show（ex.message)
module1.sqlconn.close（)
end try
这个现在也可以了```
但是主要的是我插入的数据没有加载到我的销售表里面``
小弟想请大哥们帮个忙``
到底是那边出先问题了```应该在那边改，也顺便想大哥把我的代码复制下，然后修改下回复给小弟``小弟在这边先谢谢了~！~

发表于：2007-02-06 15:59:498楼得分:0

帮顶下

发表于：2007-02-13 13:22:279楼得分:0

小弟现在已经解决这个问题了``

发表于：2007-02-17 06:43:2710楼得分:0

该回复于2007-12-21 19:39:12被管理员或版主删除

其他资讯