VB数据库 如何修改几条相同数据中的一条

Question

sql = "select * from 货物信息 where 物品型号 like '" & Text1.Text & "'" Rs.Open sql, Conn, 1, 3 If Not Rs.BOF Or Not Rs.EOF Then Rs("物品型号") = Text1 Rs("体积") = Text2 Rs("重量") = Text5 Rs("数量") = Text4 Rs.Update End If Rs.Close
在不改变表结构的情况下，如何修改上面代码就能实现修改数据库中相同数据中的一条,，，因为("物品型号") 里相同的数据修改不了，怎样实现修改呢？

Answer 1

sql = "select * from 货物信息 where 物品型号 like '" & Text1.Text & "'"
Rs.Open sql, Conn, 1, 3
If Not Rs.BOF Or Not Rs.EOF Then
Rs("物品型号") = Text1
Rs("体积") = Text2
Rs("重量") = Text5
Rs("数量") = Text4
Rs.Update
End If
Rs.Close
没弄明白你的意思，但原则上，数据库中不应包含所有字段都完全相同的多条记录，否则就应视为数据库本身设计不合理，从而给软件的设计带来很大麻烦。
如果你举例来说明你的问题，可能有办法帮助你。
另外，
If Not Rs.BOF Or Not Rs.EOF Then
应为
If Not Rs.BOF And Not Rs.EOF Then

追问

就是跳出来的相同的物品型号，就修改不了。

Answer 2

首先，确定需要修改的是什么内容。根据问题中的代码，不明白要修改的是什么。
其次，确定要修改的数据是哪一条记录，根据问题内容，不能确定需要修改哪条。一般在数据库中是不会存储完全相同的两条记录的。
如果是修改符合sql语句中的任意一条记录，那么， 可以试一下这个方法，不过，这样的修改可能会带来不确定的结果，因为根本不知道究竟修改了哪条数据记录。


if rs.recordcount>1 then'在这里用记录集数据条数作为判断依据 
    rs.movefirst
    '问题中的那些赋值语句
    rs.update
else
    msgbox "没有符合条件的记录！"
endif
rs.close

Answer 3

你的数据库设计的有问题,一个物品型号对应多个数据了,你用文本框修改数据,这样当你输入一个物品型号时,显示的是符合这个物品型号的所有数据中的一个,
给你的货物信息表设个主键吧
如果你不想改变表结构的话,你可以用datagrid控件显示所有的数据,然后编程修改选中的的一个

Answer 4

你需要修改数据表记录时：
Rs.Open sql, Conn, 1, 3 不能是这样的，应该是
Rs.Open sql, Conn, 2, 3

追问

可以修改，但是查询出来的记录总是显示最后一条，而不是要修改的这一条。如何让它显示修改后的这一条？

追答

你不是已经解决了吗？

Answer 5

adai_008 | 五级
sql = "select * from 货物信息 where 物品型号 like '" & Text1.Text & "'"
Rs.Open sql, Conn, 1, 3
If Not Rs.BOF Or Not Rs.EOF Then