来自HTA应用程序的ADODB参考

Question

我需要一个HTA应用程序，使用mdb技术显示来自ADO的数据。

以下是我的代码开始的方式：

Function getData()
Dim pathname
pathname = "D:\\WP\\ADO\\ADOexamples.mdb"
Dim con 'As New ADODB.Connection
Dim rs 'As New ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
Set con = New ADODB.Connection

我收到错误：

Class undefined ADODB.

显然，这是因为我需要包含ADODB引用。但是我如何在.hta文件中执行此操作？

Answer 1

您无法在VBScript中创建ADO对象。请改用CreateObject()：

pathname = "D:\\WP\\ADO\\ADOexamples.mdb"
Dim con 'As New ADODB.Connection
Dim rs 'As New ADODB.Recordset
Set rs = CreateObject("ADODB.Recordset")
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
Set con = CreateObject("ADODB.Connection")

此外，VBScript不会识别像adOpenStatic或adLockOptimistic这样的ADO命名常量，因此您需要自己定义它们：

Const adOpenStatic     = 3
Const adLockOptimistic = 3

或使用他们的数值。