VB 操作必须有一个可更新的查询

发布网友发布时间：2024-09-30 10:18

我来回答

共1个回答

热心网友时间：2024-10-20 01:53

照你的描述确实是这样的，但是你是在其他地方调试还是有上传空间上了？？给他everyone的权限应该就可以了

文件夹【右击】->属性->安全，没有就点击添加看看了

2.==============================================

看你的截图，意思就是表中没有查找到匹配的记录。。无法进行更新操作，所以你必须判断排除没有记录的情况

这样的话对比你的sql

rs.Open "SELECT Order.* FROM [Order] where oId=" & oIdTxt.Text, cn, adOpenKeyset, adLockOptimistic 这句话你是要查找匹配old是否为我们传过来的值：oldTxt.Text

你需要完善下程序，查找到对应记录才去修改记录，没有查找到就提示无此记录。。这样就不会提示没有相关记录。。完善如下：

rs.Open "SELECT Order.* FROM [Order] where oId=" & oIdTxt.Text, cn, adOpenKeyset, adLockOptimistic

if rs.eof then

response.write("<script language='javascript'>alert('查找不到记录！！');location.href='index.asp';</script>")

response.end() //这边的写法我是根据asp写的，vb的我也很久没涉及的，不大了解写法，你在去看看具体怎么写，道理都是一样的。。。

else

rs.Fields(3) = Add_oSalesManCombo.Text
rs.Fields(4) = agIdTxt.Text
rs.Fields(5) = TolPriceTxt.Text
rs.Fields(7) = OrderStaCom.Text
rs.Fields("Remarks") = RichTextBox1.Text
rs.Update
rs.MoveLast

end if