怪事:谁能说说这是什么原因?

[lurel]

Public Sub ConnectToDataBase()
'On Error GoTo HandleErr
Set ADOtj = New ADODB.Connection
With ADOtj
.Provider = "SQLOLEDB.1"
.Properties("Data Source").Value = "."
.Properties("Initial Catalog").Value = "tj"
.Properties("User ID").Value = "sa"
.Open
End With
End Sub



Public Function openqueryrecordset(sqlstring As String) As Boolean

Set ADOqry = New ADODB.Recordset
ADOqry.Open sqlstring, ADOtj

'If ADOqry.EOF = True And ADOqry.BOF = True Then
' openqueryrecordset = True
'Else
' openqueryrecordset = False
' End If
End Function

Public Sub CloseRecordset()
ADOqry.Close
Set ADOqry = Nothing
End Sub

Public Sub DisconnectFromDataBase()
ADOtj.Close
Set ADOtj = Nothing
End Sub


其中ADOqry,ADOtj在另一个模块中声明
Public ADOtj As ADODB.Connection
Public ADOqry As ADODB.Recordset
ado我也引用了

为什么在编译的时候告诉我在ADOqry.Close这行"对象变量或with块变量未设置"

[射天狼]

哪块出错了?

你不会是调用完了此函数之后又使用了吧!!
Public Sub DisconnectFromDataBase()
ADOtj.Close
Set ADOtj = Nothing
End Sub

[yoki]

因为你没有打开
改成If ADOqry.State = adStateOpen Then ADOqry.Close

[yoki]

同理ADOtj.Close
最好也改成
If ADOtj.State = adStateOpen Then ADOtj.Close
这样就不会存在关闭为打开的情况

[strongfisher]

Public ADOtj As new ADODB.Connection
Public ADOqry As new ADODB.Recordset

Public Function openqueryrecordset(sqlstring As String) As Boolean


ADOqry.Open sqlstring, ADOtj

'If ADOqry.EOF = True And ADOqry.BOF = True Then
' openqueryrecordset = True
'Else
' openqueryrecordset = False
' End If
End Function

[iget]

你在close之前有没有执行过openqueryrecordset?

[lxcc]

DisconnectFromDataBase一般在确信不再使用数据库之后再使用

[lurel]

可能大家都误会了
我是在用excel里面的vba,这是我的一个数据库模块,我想调用数据库时,只使用这几个函数就完了,这并不是一从头到尾执行下来了.
不过我知道我的问题所在了，我调试函数的时候单独执行了
Public Sub DisconnectFromDataBase()
ADOtj.Close
Set ADOtj = Nothing
End Sub

所以有错