HTA 응용 프로그램의 ADODB 참조

Question

ADO 기술을 사용하여 mdb의 데이터를 표시하는 HTA 응용 프로그램이 필요합니다. 내 코드가 시작하는 방법

은 다음과 같습니다 나는 ADODB 참조를 포함해야하기 때문에

Class undefined ADODB. 

분명히, 그것의 :

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 

나는 오류가 발생합니다. 그러나 .hta 파일에서 어떻게해야합니까?

Answer 1

VBScript 에서처럼 ADO 개체를 만들 수 없습니다. 당신이 그들에게 자신을 정의 할 필요가 있으므로,

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를이 ADO가 adOpenStatic 또는 adLockOptimistic 같은 상수 이름을 인식하지 않습니다 :

Const adOpenStatic  = 3 
Const adLockOptimistic = 3 

을하거나 숫자 값을 사용하는 대신 CreateObject()를 사용합니다.