我要用vb和sql做个商品入库的系统模块， - 编程论坛

#2

alike2014-01-26 09:14

我觉得你思路很清晰了，代码有什么问题？
先查询商品信息表，条件是条形码，得到商品信息表.A字段
然后insert into商品库存表.A字段
如果还有问题，那就把代码贴出来

#3

vbvcr512014-01-26 12:43

库存录入，最好能有自动显示历史记录，供操作者方便选择，这样一来可以加快输入，另外也增加软件的质量，使客户更好的喜欢使用你开发的软件。可以找我聊。发站内信。

#4

t4691164162014-01-26 13:14

对不起大家，图发错了，

只有本站会员才能查看附件，请登录

#5

t4691164162014-01-26 13:16

回复 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
这是我的代码，不能实现功能，

#6

t4691164162014-01-26 13:20

回复 2楼 alike

我是新手有很多不会的地方代码也是各种不知道怎么简单，所以很多重复的地方。

#7

Artless2014-01-26 13:29

rss!商品库存量 = rss!商品库存量 + Val(text4.text)

#8

Artless2014-01-26 13:30

结帖率：0
https://bbs.bccn.net/thread-332567-1-1.html

#9

t4691164162014-01-26 13:35

回复 7楼 Artless

十分感谢，完成了

#10

t4691164162014-01-26 13:42

回复 7楼 Artless

大神其实刚刚又出问题了，就是如果库存为0，库存表内无记录，就不能添加了，怎么样才能让原本无记录的可以像添加记录一样，先添加一个。