寒风是死神的个人资料 - RAT

寒风是死神寒风是死神

关注数: 0 粉丝数: 0 发帖数: 181 关注贴吧数: 6

终于被几率了一次

vb的adodc控件这是程序的一部分，为什么我保存的数据库数据在关闭后才保存到access数据库中 Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 'udp接收 On Error Resume Next '接收错误则继续执行 Dim a As String Winsock1.GetData a If a = Replace("#" & Str(Format(Now, "yyyymmdd")) & huohao & s & "02" & "#", " ", "") Then '收到以存储数据 Call cunsj Call danxuan End If If a = Replace("#" & Str(Format(Now, "yyyymmdd")) & qz.Text & "04" & "#", " ", "") Then '强行打开成功 Call quw Call danxuan End If If a = "06" Then '存物失败 MsgBox "存物失败" End If End Sub Private Sub danxuan() '单选框状态 Adodc4.Recordset.MoveFirst Dim i As Integer For i = 0 To 7 Option1(i).Enabled = False Next i For i = 0 To 7 If Adodc4.Recordset.Fields("状态") = "已取" Then Option1(Val(Adodc4.Recordset.Fields("柜号")) - 1).Enabled = True End If Adodc4.Recordset.MoveNext Next i End Sub Private Sub cunsj() ' 存数据 Adodc3.Recordset.MoveLast Adodc3.Recordset.AddNew Adodc3.Recordset.Fields("货号") = Replace(Str(Format(Now, "yyyymmdd")) & huohao, " ", "") Adodc3.Recordset.Fields("柜号") = s Adodc3.Recordset.Fields("控制方式") = "01" Adodc3.Recordset.Fields("时间（存/取）") = Format(Now, "yyyy-mm-dd") Adodc3.Recordset.Fields("状态") = "已存" Adodc3.Recordset.Update End Sub Private Sub quw() '取物记录 Adodc3.Recordset.MoveLast Adodc3.Recordset.AddNew Adodc3.Recordset.Fields("柜号") = qz.Text Adodc3.Recordset.Fields("控制方式") = "02" Adodc3.Recordset.Fields("时间（存/取）") = Format(Now, "yyyy-mm-dd") Adodc3.Recordset.Fields("状态") = "已取" Adodc3.Recordset.Fields("备注") = "管理员" Adodc3.Recordset.Update End Sub

1 下一页