2013-05-27 65 views
0

嗨,我使用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 

回答

1

做选择查询第一..

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 
+0

这是一个很酷的方式与SELECT语句来做到这一点,我从没想到了!我总是使用'rs.findfirst()'和'if .nomatch'。我不确定是否有任何好处。 – Grant