Question

vb6 中有没有可以判断数据库中的表已经打开或关闭的函数？

请问：同一个访问控件，如Adodc1，如果打开了一个表，再打开另一个表时，是否会关闭第一个已经打开的表？VB6 如何判断数据库中的记录表已经打开或关闭？

Answer 1

要判断记录集是打开的还是关闭的.

Recordset.State

AdStateClosed 默认，指示对象是关闭的。
AdStateOpen 指示对象是打开的。
AdStateConnecting 指示 Recordset 对象正在连接。
AdStateExecuting 指示 Recordset 对象正在执行命令。
AdStateFetching 指示 Recordset 对象的行正在被读取。

VB6 Ado 访问数据库,不需要管他数据库是否打开...查完一个表,可以直接查另外的表,查的时候之前那个会关掉...当然也可以用 Adodc1.Recordset.Close 关闭..

Answer 2

一般在一个模块里都rs.open rs.close
如果需要一直打开我都重新定义一个recordset,具体的没判断过

Public Conn As ADODB.Connection
Public Rs As ADODB.Recordset
Public TableName As String '临时数据库名字
Public strSQLServer As String 'SQL服务器地址
Public strSQLUser As String 'SQL用户名
Public strSQLPW As String 'SQL密码
Public strSQLDB As String 'SQL数据库
Public UserName As String '用户名
Public INIaddr As String 'ini文件地址
Public Login_time As String '登录时间
Public Exit_time As String '结束时间
Public L_DR As ADODB.Recordset '导入数据
Public L_LX As ADODB.Recordset '订单类型
Public lzr As Long '传递参数
Public L_DC As ADODB.Recordset '到处数据
Public L_DDCX As ADODB.Recordset '订单查询
Public L_KHXX As ADODB.Recordset '客户信息
Public L_KHYZ As ADODB.Recordset '数据验证
Public L_XTBH As ADODB.Recordset '系统编号
Public L_PRO As ADODB.Recordset '产品信息

Public Sub Main()
Set Conn = New ADODB.Connection
Set L_DDCX = New ADODB.Recordset
Set Rs = New ADODB.Recordset
Set L_DR = New ADODB.Recordset
Set L_LX = New ADODB.Recordset
Set L_KHXX = New ADODB.Recordset
Set L_KHYZ = New ADODB.Recordset
Set L_XTBH = New ADODB.Recordset
Set L_PRO = New ADODB.Recordset
Conn.ConnectionString = "provider=sqloledb;"
Conn.Properties("data source") = strSQLServer
Conn.Properties("initial catalog").Value = strSQLDB
Conn.Properties("user id").Value = strSQLUser
Conn.Properties("password").Value = strSQLPW
Conn.Open
Rs.open "select * from table1",conn,3,1