标题:我要用vb和sql做个商品入库的系统模块,
只看楼主
t469116416
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2014-1-10
结帖率:80%
已结贴  问题点数:20 回复次数:9 
我要用vb和sql做个商品入库的系统模块,
商品原来有库存的,现在添加的商品数量要加在原来的 数据上这个怎么写代码啊。

我先是用条形码查询,查询的是商品信息表,然后要修改的是商品库存表。如何写代码 跪求大神
搜索更多相关主题的帖子: 条形码 如何 
2014-01-25 17:26
alike
Rank: 2
等 级:论坛游民
威 望:1
帖 子:9
专家分:34
注 册:2014-1-8
得分:0 
我觉得你思路很清晰了,代码有什么问题?
先查询商品信息表,条件是条形码,得到商品信息表.A字段
然后insert into商品库存表.A字段
如果还有问题,那就把代码贴出来
2014-01-26 09:14
vbvcr51
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:18
帖 子:364
专家分:1724
注 册:2013-11-3
得分:0 
库存录入,最好能有自动显示历史记录,供操作者方便选择,这样一来可以加快输入,另外也增加软件的质量,使客户更好的喜欢使用你开发的软件。可以找我聊。发站内信。
2014-01-26 12:43
t469116416
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2014-1-10
得分:0 
对不起大家,图发错了 ,
2014-01-26 13:14
t469116416
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2014-1-10
得分:0 
回复 2楼 alike
Private Sub Command5_Click(Index As Integer)
Dim cn As New ADODB.Connection
Dim rss As New ADODB.Recordset
rss.CursorLocation = adUseClient
ConnectionString = "Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=sa;Initial Catalog=csjxcglxt;Data Source=TANGJIANQIAO-PC"
cn.Open ConnectionString
If Text3.Text = "" Then
MsgBox "请填写关键词!", vbExclamation, "提示信息"
Exit Sub
End If
rss.Open "select * from 商品库存表 where  商品编号 = str(" & Text3.Text & ")", cn, adOpenKeyset, adLockOptimistic
If rs.RecordCount = 0 Then
MsgBox "没有这条记录!", vbExclamation, "提示信息"
End If
rss!商品库存量 = rss!商品库存量 + Val(" text4.text")
rss.Update
End Sub

Private Sub Form_Load()
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.Open "Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=sa;Initial Catalog=csjxcglxt;Data Source=TANGJIANQIAO-PC"
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cnn
rs.Open "select * from 商品信息表", cnn, adOpenDynamic, adLockBatchOptimistic
Set cmm = New
Set cmm.ActiveConnection = cnn
End Sub
这是我的代码,不能实现功能,
2014-01-26 13:16
t469116416
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2014-1-10
得分:0 
回复 2楼 alike
我是新手有很多不会的地方代码也是各种不知道怎么简单,所以很多重复的地方。
2014-01-26 13:20
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
得分:20 
rss!商品库存量 = rss!商品库存量 + Val(text4.text)

无知
2014-01-26 13:29
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
得分:0 

无知
2014-01-26 13:30
t469116416
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2014-1-10
得分:0 
回复 7楼 Artless
十分感谢,完成了
2014-01-26 13:35
t469116416
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2014-1-10
得分:0 
回复 7楼 Artless
大神其实刚刚又出问题了,就是如果库存为0,库存表内无记录,就不能添加了,怎么样才能让原本无记录的可以像添加记录一样,先添加一个。
2014-01-26 13:42



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-426852-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.372705 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved