我在 VB6 中有一个需要迁移到 VBScript 的功能脚本。作为代码重组的一部分,我决定对使用函数返回记录集感兴趣。想要处理与数据库的连接以便事务关闭,因此将记录集写入内存对象对我来说很有意义。许多迭代试图确定我的语法有什么问题,我不确定哪个是最引人注目的。
Sub Main()
clientRecordset(" Exec [dbo].[StoredProc] ")
End Sub
Private function clientRecordset(sqlQuery)
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
Dim objConnection, objRecordset
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
Set clientRecordset = CreateObject("ADODB.Recordset")
objConnection.Open _
"{connection properties}"
clientRecordset = objConnection.Execute(sqlQuery) ' Error: operation is not allowed when object is closed
clientRecordset = objRecordset.Open sqlQuery, objConnection, adOpenStatic, adLockOptimistic 'Error: Expected end of statement
objRecordset.close()
objConnection.close()
SET objRecordset = Nothing
Set objConnection = Nothing
End Function