女士访问VB6更新记录集,而不是重复
问题描述:
嗨,我使用vb6 ms访问后端,而不是更新它重复的记录,并创建一个新的条目。由于与其他表的关系,我的表不使用主键。我怎样才能使它更新记录,而不是重复这里是我的代码女士访问VB6更新记录集,而不是重复
Private Sub cmdSave_Click()
With Connect.rsitem
.Open , , adOpenDynamic, adLockOptimistic
If EditItem = False Then .AddNew
!itemno = txtItemNo.Text
!desc1 = txtDesc1.Text
!desc2 = txtDesc2.Text
!onhandqty = txtOnhandQty.Text
!unitprice = txtUnitPrice.Text
!Size = txtSize.Text
!upc = txtupc.Text
!Ordercost = txtOrderCost.Text
.Update
.Close
End sub
答
做选择查询第一..
Dim rs As DAO.Recordset
rs.Open "SELECT * FROM mytable WHERE itemno = '" & txtItemNo.Text & "'"
If Not rs.BOF and Not rs.EOF then
'save the record ......
End If
If rs.State = adStateOpen Then rs.Close
Set rs = Nothing
这是一个很酷的方式与SELECT语句来做到这一点,我从没想到了!我总是使用'rs.findfirst()'和'if .nomatch'。我不确定是否有任何好处。 – Grant