求VB中数据库(ACCESS)的加减运算代码
小弟搞毕业设计,在这里实在搞不定了~~求助!超市管理系统中商品入库~原本仓库是有50个香蕉入库20根那么数据库里商品表就要加成70根请问如何写代码才能相加啊提示说缺少语句...
小弟搞毕业设计,在这里实在搞不定了~~求助!
超市管理系统中 商品入库~
原本仓库是有 50 个 香蕉 入库20根 那么数据库里商品表就要加成70根 请问如何写代码 才能相加啊
提示说缺少语句结束!~~!~!晕倒~~ 展开
超市管理系统中 商品入库~
原本仓库是有 50 个 香蕉 入库20根 那么数据库里商品表就要加成70根 请问如何写代码 才能相加啊
提示说缺少语句结束!~~!~!晕倒~~ 展开
1个回答
展开全部
Dim conn As ADODB.Connection
Dim strSql As String
strSql = "update 商品表 set 数量=数量+20 where name='香蕉'"
Set conn = OpenConnForAccess(App.Path & "\test.mdb")
RunTrans strSql
Public Function OpenConnForAccess(ByVal FileName As String) As ADODB.Connection
Dim AdoConn As New ADODB.Connection
With AdoConn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName & ";Persist Security Info=False"
.Open
End With
Set OpenConnForAccess = AdoConn
End Function
Public Function RunTrans(ByVal tranSql As String, ByVal AdoConn As ADODB.Connection)
With AdoConn
.BeginTrans
.Execute tranSql
.CommitTrans
End With
End Function
Dim strSql As String
strSql = "update 商品表 set 数量=数量+20 where name='香蕉'"
Set conn = OpenConnForAccess(App.Path & "\test.mdb")
RunTrans strSql
Public Function OpenConnForAccess(ByVal FileName As String) As ADODB.Connection
Dim AdoConn As New ADODB.Connection
With AdoConn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName & ";Persist Security Info=False"
.Open
End With
Set OpenConnForAccess = AdoConn
End Function
Public Function RunTrans(ByVal tranSql As String, ByVal AdoConn As ADODB.Connection)
With AdoConn
.BeginTrans
.Execute tranSql
.CommitTrans
End With
End Function
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |