向高手求教，vb6.0循环读取数据集丢失记录问题 - 编程论坛

#2

wmf20142018-10-04 11:42

在模块Const里将语句“Public Const CONNECT_LOOP_MAX = 10”改成“Public Const CONNECT_LOOP_MAX = 50”。
这代码写的

。

#3

风吹过b2018-10-04 13:59

'断开与数据库的连接
Private Sub Disconnect()
  Dim rc As Long
  '如果连接标记为假，标明已经断开连接，则直接返回
  If IsConnect = False Then
    Exit Sub
  End If
  '关闭连接
  cnn.Close
  '释放cnn
  Set cnn = Nothing
  '设置连接标记，表示已经断开与数据库的连接
  IsConnect = False
End Sub

'使用Connect_Num控制数据库连接
Public Sub DB_Disconnect()
  If Connect_Num >= CONNECT_LOOP_MAX Then
    Connect_Num = 0
    Disconnect
  End If
End Sub
'强制关闭api方式访问的数据库，计数器复位
Public Sub DBapi_Disconnect()
  Connect_Num = 0
  Disconnect
End Sub

--------
那天看这代码，在想，为啥连接要使用一定次数后关掉，为啥不是在整个程序运行期间保持一次一个连接。
没看到常量定义，不能就说问题出在这段代码中

大型工程，数据库操作模块是应该封装到一个模块里，代码的可读性和移植性要好很多。
但限制连接复用次数倒是第一次，然后，你会限制连接使用次数，那你得到结果，就应该是数据查询结果快照。
使用 command对象的 Execute 方法执行 sql ，你代码里已实现了，可以在这个函数的基础上，执行 select 的sql 命令，返回一个结果快照rs，而不要使用 rs.open 。这种快照好像与数据库断开连接的。
手机上回的，胡言乱语请谅解。

#4

pxinfosoft2018-10-04 23:22

回复 2楼 wmf2014

谢谢了，我是菜鸟的

#5

pxinfosoft2018-10-04 23:23

回复 3楼风吹过b

谢谢了老师