Readygo技术搜索引擎 网络搜索 efish 2008-1-17 18:20:28

如何确定一个表中某个int型的字段的最大值(多人同时操作时)

楼主yvqq（yvqq）2002-09-14 09:38:16 在 VB / 基础类 提问

我是这样做这个函数的,但两个人同时存盘时,后提交的哪个就有问题了  
  Public   Function   zdbh(tablename   As   String,   Optional   thefirst   As   Long   =   10001)  
          Dim   rs   As   New   ADODB.Recordset  
          Dim   i   As   Long  
          rs.ActiveConnection   =   cn  
          rs.CursorLocation   =   adUseClient  
          rs.CursorType   =   adOpenKeyset  
          rs.Open   "select   max(cast(   序号   as     int))   as   序号   from   "   &   tablename   &   "     where   出入库类型="3""  
          On   Error   GoTo   erro  
          If   rs.RecordCount   <   1   Then  
                  zdbh   =   thefirst  
          Else  
                  zdbh   =   CLng(rs!序号   &   "")   +   1  
          End   If  
          rs.Close  
          Exit   Function  
  erro:  
              zdbh   =   thefirst  
              rs.Close  
  End   Function 问题点数：0、回复次数：2Top

1 楼Stiven_PFan（爱卿儿）回复于 2002-09-14 10:59:28 得分 0

如果是多人进行操作的网络版系统，要等到其它的系统进行了事务提交后，才能选出正确结果Top

2 楼yvqq（yvqq）回复于 2002-09-14 11:00:46 得分 0

能够给个例子吗?兄弟吗Top