| 发表于：2007-03-07 19:20:08 楼主 |
dim upcmd as new sqlcommand
upcmd.connection = module1.sqlconn
me.sqlda.updatecommand = upcmd
upcmd.commandtext = "update 库存表 set 数量=@数量 where 名称=@名称 and 尺寸=@尺寸 and 颜色=@颜色 "
dim p1 as new sqlparameter（ "@名称 ", sqldbtype.char)
p1.sourcecolumn = "@名称 "
upcmd.parameters.add（p1)
dim p2 as new sqlparameter（ "@尺寸 ", sqldbtype.int)
p2.sourcecolumn = "@尺寸 "
upcmd.parameters.add（p2)
dim p3 as new sqlparameter（ "@颜色 ", sqldbtype.char)
p3.sourcecolumn = "@颜色 "
upcmd.parameters.add（p3)
dim p5 as new sqlparameter（ "@数量 ", sqldbtype.int)
p5.sourcecolumn = "@数量 "
upcmd.parameters.add（p5)
dim insercmd as new sqlcommand
sqlda.insertcommand = insercmd
insercmd.connection = module1.sqlconn
insercmd.commandtext = "insert into 销售表（名称,尺寸,颜色,价格,数量) values（@名称,@尺寸,@颜色,@价格,@数量) "
dim inserpam1 as new sqlparameter（ "@名称 ", sqldbtype.char)
inserpam1.sourcecolumn = "@名称 "
insercmd.parameters.add（inserpam1)
dim inserpam2 as new sqlparameter（ "@尺寸 ", sqldbtype.int)
inserpam2.sourcecolumn = "@尺寸 "
insercmd.parameters.add（inserpam2)
dim inserpam3 as new sqlparameter（ "@颜色 ", sqldbtype.char)
inserpam3.sourcecolumn = "@颜色 "
insercmd.parameters.add（inserpam3)
dim inserpam4 as new sqlparameter（ "@价格 ", sqldbtype.int)
inserpam4.sourcecolumn = "@价格 "
insercmd.parameters.add（inserpam4)
dim inserpam5 as new sqlparameter（ "@数量 ", sqldbtype.int)
inserpam5.sourcecolumn = "@数量 "
insercmd.parameters.add（inserpam5)
try
me.sqlda.insertcommand = insercmd
sqlda.updatecommand = upcmd
me.sqlda.fillschema（ds, schematype.source, "库存表 ")
me.sqlda.update（me.ds, "销售表 ")
me.ds.acceptchanges（)
msgbox（ "销售成功 ", msgboxstyle.information, "提示 ")
catch ex as exception
msgbox（ex.message)
end try |
|
|
|
|
