Private Sub Command1_Click()
Dim sqlstr As String
If Text1.Text = "" Then
MsgBox "请输入入库单编号！", 0 + 48 + 0, "提示"
Text1.SetFocus
Exit Sub
End If
sqlstr = "select * from 入库单信息 where 入库单编号='" & Text1.Text & "'"
Set rs = Nothing
Call LinkData
rs.Open sqlstr, conn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
MsgBox "该入库单编号已经存在！", 0 + 48 + 0, "提示"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "体育设施编号不能为空！"
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox "货物数量不能为空！"
Text3.SetFocus
Exit Sub
End If
rs.Close
sqlstr = "insert into 入库单信息（入库单编号,体育设施编号,货物数量） values ('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "')"
rs.Open sqlstr, conn, adOpenKeyset, adLockOptimistic
sqlstr = "update 仓库储存信息 set 库存量信息=(select 仓库储存信息.库存量信息+入库单信息.货物数量 as a from 仓库储存信息,入库单信息 where 仓库储存信息.体育设施编号='" & Text2.Text & "' and 入库单信息.体育设施编号='" & Text2.Text & "'and 入库单信息.入库单编号='" & Text1.Text & "') where 体育设施编号='" & Text2.Text & "'"
rs.Open sqlstr, conn, adOpenKeyset, adLockOptimistic
MsgBox "入库单录入成功！", 0 + 48 + 0, "提示"
End Sub
Private Sub Command3_Click()
Form12.Hide
Form2.Show
End Sub
我已经确认VB程序与数据库已经完全对应好。。为什么一运行总是提示我rs.Open sqlstr, conn, adOpenKeyset, adLockOptimistic第一句语句错误。。给我搞迷了。。大家帮忙啊
|
