Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/ms-access/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/cmake/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Ms access Ms Access VB6更新记录集而不是复制_Ms Access_Vb6 - Fatal编程技术网

Ms access Ms Access VB6更新记录集而不是复制

Ms access Ms Access VB6更新记录集而不是复制,ms-access,vb6,Ms Access,Vb6,您好,我正在使用vb6 ms access后端,而不是更新它复制的记录并创建一个新条目。由于与其他表的关系,“我的表”不使用主键。我怎样才能使它更新记录而不重复这里是我的代码 Private Sub cmdSave_Click() With Connect.rsitem .Open , , adOpenDynamic, adLockOptimistic If EditItem = False Then .AddNew !itemno = txt

您好,我正在使用vb6 ms access后端,而不是更新它复制的记录并创建一个新条目。由于与其他表的关系,“我的表”不使用主键。我怎样才能使它更新记录而不重复这里是我的代码

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
。不过,我不确定这两种方法是否都有好处。