VB连接ACCESS数据库修改编号出现“VB 键入信息不足影响到多行,无法为更新定位行,一些值已在最后读取更改

Adodc3.RecordSource = "select * from 原材料入库记录 order by 日期,订单号,项目": Adodc3.Refresh

If Adodc3.Recordset.RecordCount > 0 Then Adodc3.Recordset.MoveFirst
b1 = 1
Do Until (Adodc3.Recordset.EOF Or Adodc3.Recordset.BOF)
Adodc3.Recordset.Fields(0) = b1
b1 = b1 + 1
Adodc3.Recordset.MoveNext
Loop
我的要求是打开记录就重新排一下编号
程序好像是从第一条记录开始一条条改的怎么会无法定位
第一条记录编号1第二条就是2第三条就是3每次移一条加1,可能是有相同记录就会产生这样和错误,不知道是为什么

第1个回答  2010-12-17
b1=1
b1=b1+1

这。。。。。

关于ASP连接Excel数据库无法更新的问题
注意... 今天做一个Access库中的数据向Excel表中导入的ASP时,出现一个关于Excel数据库无法更新的问题。错误提示:Microsoft JET Database Engine (0x80004005)操作必须使用一个可更新的查询。注意:Excel数据库中的表能正常读出,但不能更新。已排出不是IIS目录权限问题,因为同目录下的是Access数据库就没这个问题,能更...

如何用VB建立数据库
1、首先点击打开主菜单栏中的“外接程序”选项。2、然后在弹出来的窗口中点击打开“可视化数据管理器”,出现下图中的界面。3、然后单击文件中的新建,选择“microsot access”,“version 7.0”,弹出保存界面,点击保存后出现如下界面。4、然后右键单击properties,选择“新建表”,输入表名称,添加字段。

相似回答