Try
Dim Count As Integer
Connections("office_sql").BeginTransaction() '开始事务
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "Sele ct 物资名称, sum(数量) As 累计入库 from {物资明细} as a where 明细分类 = '入库' group by 物资名称 "
cmd.ExecuteScalar()
cmd.CommandText = "Sel ect 物资名称, sum(数量) As 累计出库 from {物资明细} as b where 明细分类 = '出库' group by 物资名称"
cmd.ExecuteScalar()
cmd.CommandText = "upd ate 库存物资 set 库存物资.库存数量 = a.累计入库-b.累计出库 from a,b,库存物资 where a.物资名称=库存物资.物资名称 and b.物资名称=库存物资.物资名称 "
cmd.ExecuteNonQuery()
Connections("office_sql").Commit '提交事务,所有操作生效
Catch ex As Exception '如果出错
Connections("office_sql").Rollback() '回滚事务,撤销所有操作
End Try
[此贴子已经被作者于2017/12/7 15:04:04编辑过]