一段程序:
AdoRs.Open "select * from table_mtjcfj", Cnn, adOpenKeyset, adLockOptimistic
AdoRs1.Open "select * from table_mtjctj order by 序号 desc", Cnn, adOpenKeyset,adLockOptimistic
If AdoRs1.RecordCount > 0 Then
AdoRs1.MoveFirst
xuhao = AdoRs1.Fields("序号")
Else
xuhao = 0
End If
For i = 1 To a + 1
xuhao = xuhao + 1
AdoRs1.AddNew
AdoRs1.Fields("序号") = xuhao
AdoRs1.Fields("摘要") = Text5.Text
AdoRs1.Update
For j = 1 To b
AdoRs.AddNew
AdoRs.Fields("序号") = xuhao
AdoRs.Fields("文件名") = text3.text
AdoRs.Update
Next j
Next i
AdoRs1.close
Adors.close这段程序老是出问题,不是“游标操作冲突”,就是数据无法修改。
请各位大虾指点一下,谢谢!!
AdoRs.Open "select * from table_mtjcfj", Cnn, adOpenKeyset, adLockOptimistic
AdoRs1.Open "select * from table_mtjctj order by 序号 desc", Cnn, adOpenKeyset,adLockOptimistic
If AdoRs1.RecordCount > 0 Then
AdoRs1.MoveFirst
xuhao = AdoRs1.Fields("序号")
Else
xuhao = 0
End If
For i = 1 To a + 1
xuhao = xuhao + 1
AdoRs1.AddNew
AdoRs1.Fields("序号") = xuhao
AdoRs1.Fields("摘要") = Text5.Text
AdoRs1.Update
For j = 1 To b
AdoRs.AddNew
AdoRs.Fields("序号") = xuhao
AdoRs.Fields("文件名") = text3.text
AdoRs.Update
Next j
Next i
AdoRs1.close
Adors.close这段程序老是出问题,不是“游标操作冲突”,就是数据无法修改。
请各位大虾指点一下,谢谢!!
解决方案 »
- vb难点问题:如何修改变量地址?
- WebBrowser_V1的NewWindow事件中终止弹出窗口失败
- 如何改变excel某个格子的颜色
- VB调用VC++编写的DLL文件,报"实时错误‘49’DLL调用约定错误,请问是什么原因呀,谢谢
- 在PICTUREBOX中画了一些象素点,怎么picture属性=0?怎么将这些象素组成的图象赋给PICTURE?或者其他能得到图象的方法?并将其保存?
- 访问Access数据库,大家都是怎么做的?
- 我想实现如下的功能,不知这种思路能否行得通?
- 写出下面对象属性,事件或方法所代表的含义
- 哪位高手有关于数据库的需求分析书,请赏我一份,100分相送!!!
- 在用户自定义控件中使用Implements语句时出错,请大家帮助
- 急:vb如何实现JPG图片转换为BMP图片?
- 求助:有关数码相机照片EXIF信息的问题
AdoRs1.Open "select * from table_mtjctj order by 序号 desc", Cnn, adOpenKeyset,adLockBatchOptimistic
2.加上rs.requery试试。