关于Recordset的updatebatch问题,急,在线等

zhaohua 2003-09-12 11:05:33
我的系统原来的数据库是sql-server7,用vb6开发运行正常,现在改为sql-server2000,将原数据库的数据导入,我在系统中用了大量的recordset.updatebatch更新数据库,现在我发现数据库升级后有些recordset.updatebatch语句并没有更新数据库(不起作用)并且没有任何错误信息。这就造成了很多数据丢失和不一致,请大家帮忙解决,急这是我公司的核心系统!!
...全文
72 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhaohua 2003-09-12
  • 打赏
  • 举报
回复
我的系统中有事务并能正常提交,系统在sql7时非常稳定,sql2000与sql7在与ado结合方面有没有什么变化?
strongfisher 2003-09-12
  • 打赏
  • 举报
回复
用recordset.update
加事务处理来解决问题
zhaohua 2003-09-12
  • 打赏
  • 举报
回复
可是我做的都是批量更新
gzqg 2003-09-12
  • 打赏
  • 举报
回复
遇到过相同情况,后来是换成recordset.update了.
SQL语法大全 SQL语法大全 1. ASP与Access数据库连接: 2. ASP与SQL数据库连接: 建立记录集对象: set rs=server.createobject("adodb.recordset") rs.open SQL语句,conn,3,2 3. SQL常用命令使用方法: (1) 数据记录筛选: sql="select * from 数据表 where 字段名=字段值 order by 字段名 [desc]" sql="select * from 数据表 where 字段名 like \'%字段值%\' order by 字段名 [desc]" sql="select top 10 * from 数据表 where 字段名 order by 字段名 [desc]" sql="select * from 数据表 where 字段名 in (\'值1\',\'值2\',\'值3\')" sql="select * from 数据表 where 字段名 between 值1 and 值2" (2) 更新数据记录: sql="update 数据表 set 字段名=字段值 where 条件表达式" sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式" (3) 删除数据记录: sql="delete from 数据表 where 条件表达式" sql="delete from 数据表" (将数据表所有记录删除) (4) 添加数据记录: sql="insert into 数据表 (字段1,字段2,字段3 …) values (值1,值2,值3 …)" sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表) (5) 数据记录统计函数: AVG(字段名) 得出一个表格栏平均值 COUNT(*|字段名) 对数据行数的统计或对某一栏有值的数据行数统计 MAX(字段名) 取得一个表格栏最大的值 MIN(字段名) 取得一个表格栏最小的值 SUM(字段名) 把数据栏的值相加 引用以上函数的方法: sql="select sum(字段名) as 别名 from 数据表 where 条件表达式" set rs=conn.excute(sql) 用 rs("别名") 获取统的计值,其它函数运用同上。 (5) 数据表的建立和删除: CREATE TABLE 数据表名称(字段1 类型1(长度),字段2 类型2(长度) …… ) 例:CREATE TABLE tab01(name varchar(50),datetime default now()) DROP TABLE 数据表名称 (永久性删除一个数据表) 4. 记录集对象的方法: rs.movenext 将记录指针从当前的位置向下移一行 rs.moveprevious 将记录指针从当前的位置向上移一行 rs.movefirst 将记录指针移到数据表第一行 rs.movelast 将记录指针移到数据表最后一行 rs.absoluteposition=N 将记录指针移到数据表第N行 rs.absolutepage=N 将记录指针移到第N页的第一行 rs.pagesize=N 设置每页为N条记录 rs.pagecount 根据 pagesize 的设置返回总页数 rs.recordcount 返回记录总数 rs.bof
含全套代码+数据库文件 mdb private sub txtoldpassword lostfocus if oldpassword <> txtoldpassword text then msgbox "密码不正确 " "密码错误" txtoldpassword setfocus end if end sub private sub form unload cancel as integer set mclsmidtier nothing lusersrs close userrs close set lusersrs nothing set userrs nothing end sub private sub startpos cmdadduser enabled true cmddeleteuser enabled true lstusers tabindex 0 txtusername tabindex 1 txtpassword tabindex 2 txtreenter tabindex 3 txtoldpassword tabindex 4 cmdadduser tabindex 6 cmddeleteuser tabindex 7 cmdchangepassword tabindex 8 lblpassword top 600 txtpassword top 600 lblreenter top 960 txtreenter top 960 lbloldpassword top 1320 txtoldpassword 1320 lblnewpassword top 1680 lstusers enabled true txtusername enabled true lblpassword visible true txtpassword visible true lblnewpassword visible false lblreenter visible false txtreenter visible false lbloldpassword visible false txtoldpassword visible false end sub private sub changepos cmdadduser enabled false cmddeleteuser enabled false lblpassword visible false txtpassword visible true txtpassword top 960 lblnewpassword top 960 lblreenter top 1320 txtreenter top 1320 lbloldpassword top 600 txtoldpassword top 600 txtoldpassword tabindex 1 txtpassword tabindex 2 txtreenter tabindex 3 lstusers enabled false txtusername enabled false lblnewpassword visible true lblreenter visible true txtreenter visible true lbloldpassword visible true txtoldpassword visible true end sub private const margin size 60 " in twips " variables for data binding private datprimaryrs as adodb recordset " variables for enabling column sort private m isortcol as integ

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧