Foxtable(狐表)用户栏目专家坐堂 → [求助]如何解决在多用户情况下自动编号重复问题?


  共有3031人关注过本帖树形打印复制链接

主题:[求助]如何解决在多用户情况下自动编号重复问题?

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/20 8:43:00 [显示全部帖子]


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/20 9:35:00 [显示全部帖子]

第一句SQL之前和最后一句SQL之后,而且需要改代码,使用同一个cmd变量

Try
    Connections("数据源").BeginTransaction() 
'开始事务
    Dim cmd As new 
SQLCommand
    cmd.ConnectionName = 
"数据源"
    cmd.CommandText = 
"Delete From {订单} Where [订单编号] = 32"
    cmd.
ExecuteNonQuery
    cmd.CommandText = 
"Delete From {订单明细} Where [订单编号] = 32"
    cmd.
ExecuteNonQuery
    Connections("数据源").Commit 
'提交事务,所有操作生效

Catch
 ex As Exception '如果出错 
    Connections("数据源").Rollback() 
'回滚事务,撤销所有操作

End
 Try

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/20 10:01:00 [显示全部帖子]

是的,因为有update,在事务没有结束之前,其他人就无法update同一行了

 回到顶部