[VBA程序]：如何在VBA中引用DAO

pk_player_mm

请问如何在vba中引用DAO?
在我下载的块插入程序中的
Dim xxx As WorkSpace 这句出错，总说需要引用
但是点选了DAO3.5也不行
以下是某文章切下来的一段：
请注意DAO并不是随VBA提供的。所以首先你必须确认DAO在所有需要它运行的机器上正确安装。并且你得使用相应的Microsoft方法来获得DAO的使用许可，然后才可以使用。你会发现位于Microsoft网站上的这篇文档也许有用：
http://msdn.microsoft.com/library/techart/msdn_redistmdac.htm

根据不同版本的DAO安装在不同版本的AutoCAD上，安装程序将覆盖一个MFC DLL文件MFC42.DLL。这可能引起AutoCAD或者其他的应用程序的一些问题。所以请小心对待
请问这么引用DAO呢？
上传这个VBA程序，我用的是ACCESS97

雪山飞狐(lzh)

用Ado连接数据库

pk_player_mm

请问斑竹为什么会出现这个现象呢?
帮忙给推荐个关于块引用的例子吧,相近的也行
还有说:
并且你得使用相应的Microsoft方法来获得DAO的使用许可，
根据不同版本的DAO安装在不同版本的AutoCAD上
是什么意思呢?

雪山飞狐(lzh)

怎麽还有人用DAO连数据库？我只用过ADO对象连
你试试Dim xxx As Object

pk_player_mm

我倒~！
我的机器就这样呀，没办法
p133+64m的内存,我用R14+offiice97的,软件也就自然落后了

雪山飞狐(lzh)

ADO和机器的配置无关
给你一个简单的ADO连接类,看看

2. 
   
3. Private pConnection As New ADODB.Connection
   
4. Private pRecordset As New ADODB.Recordset
   
5. Private pFileName As String
   
6. 
   
7. Private Sub OpenConnection()
   
8.     With pConnection
   
9.         If .State = adStateOpen Then .Close
   
10.         .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pFileName & ";Persist Security Info=False"
    
11.         .Open
    
12.     End With
    
13. End Sub
    
14. 
    
15. Public Function OpenRecordset(ByVal strSql As String) As ADODB.Recordset
    
16.     Dim myRecordset As New ADODB.Recordset
    
17.     With myRecordset
    
18.         .CursorLocation = adUseClient
    
19.         .CursorType = adOpenDynamic
    
20.         .Open strSql, pConnection, , , adCmdText
    
21.     End With
    
22.     Set pRecordset = myRecordset
    
23.     Set OpenRecordset = pRecordset
    
24. End Function
    
25. 
    
26. Public Function RunTrans(ByVal tranSql As String)
    
27.   pConnection.BeginTrans
    
28.   pConnection.Execute tranSql
    
29.   pConnection.CommitTrans
    
30. End Function
    
31. 
    
32. Public Sub Move(ByVal NumRecords As ADO_LONGPTR, Optional ByVal Start)
    
33.     If IsMissing(Start) Then
    
34.         pRecordset.Move NumRecords
    
35.     Else
    
36.         pRecordset.Move NumRecords, Start
    
37.     End If
    
38. End Sub
    
39. 
    
40. Public Sub MoveFirst()
    
41.     pRecordset.MoveFirst
    
42. End Sub
    
43. 
    
44. Public Sub MoveLast()
    
45.     pRecordset.MoveLast
    
46. End Sub
    
47. 
    
48. Public Sub MoveNext()
    
49.     pRecordset.MoveNext
    
50. End Sub
    
51. 
    
52. Public Sub MovePrevious()
    
53.     pRecordset.MovePrevious
    
54. End Sub
    
55. 
    
56. Public Property Let FileName(ByVal str As String)
    
57.     Dim fso As New FileSystemObject
    
58.     str = UCase(str)
    
59.     If fso.FileExists(str) Then
    
60.         If str <> pFileName Then
    
61.             pFileName = str
    
62.             OpenConnection
    
63.         End If
    
64.     Else
    
65.         MsgBox "文件不存在!"
    
66.     End If
    
67. End Property
    
68. 
    
69. Public Property Get Item(Index As Integer)
    
70.     Item = pRecordset.Fields(Index).Value
    
71. End Property
    
72. 
    
73. Public Property Get Count()
    
74.     Count = pRecordset.RecordCount
    
75. End Property
    
76. 
    
77. Public Property Get EOF()
    
78.     EOF = pRecordset.EOF
    
79. End Property
    
80. 
    
81. Public Property Get BOF()
    
82.     BOF = pRecordset.BOF
    
83. End Property
    
84. 
    
85. Private Sub Class_Terminate()
    
86. On Error Resume Next
    
87.     pRecordset.Close
    
88.     Set pRecordset = Nothing
    
89.     pConnection.Close
    
90.     Set pConnection = Nothing
    
91. End Sub
    

<br /> Private pConnection As New ADODB.Connection<br /> Private pRecordset As New ADODB.Recordset<br /> Private pFileName As String<br /> <br /> Private Sub OpenConnection()<br />     With pConnection<br />         If .State = adStateOpen Then .Close<br />         .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pFileName & ";Persist Security Info=False"<br />         .Open<br />     End With<br /> End Sub<br /> <br /> Public Function OpenRecordset(ByVal strSql As String) As ADODB.Recordset<br />     Dim myRecordset As New ADODB.Recordset<br />     With myRecordset<br />         .CursorLocation = adUseClient<br />         .CursorType = adOpenDynamic<br />         .Open strSql, pConnection, , , adCmdText<br />     End With<br />     Set pRecordset = myRecordset<br />     Set OpenRecordset = pRecordset<br /> End Function<br /> <br /> Public Function RunTrans(ByVal tranSql As String)<br />   pConnection.BeginTrans<br />   pConnection.Execute tranSql<br />   pConnection.CommitTrans<br /> End Function<br /> <br /> Public Sub Move(ByVal NumRecords As ADO_LONGPTR, Optional ByVal Start)<br />     If IsMissing(Start) Then<br />         pRecordset.Move NumRecords<br />     Else<br />         pRecordset.Move NumRecords, Start<br />     End If<br /> End Sub<br /> <br /> Public Sub MoveFirst()<br />     pRecordset.MoveFirst<br /> End Sub<br /> <br /> Public Sub MoveLast()<br />     pRecordset.MoveLast<br /> End Sub<br /> <br /> Public Sub MoveNext()<br />     pRecordset.MoveNext<br /> End Sub<br /> <br /> Public Sub MovePrevious()<br />     pRecordset.MovePrevious<br /> End Sub<br /> <br /> Public Property Let FileName(ByVal str As String)<br />     Dim fso As New FileSystemObject<br />     str = UCase(str)<br />     If fso.FileExists(str) Then<br />         If str <> pFileName Then<br />             pFileName = str<br />             OpenConnection<br />         End If<br />     Else<br />         MsgBox "文件不存在!"<br />     End If<br /> End Property<br /> <br /> Public Property Get Item(Index As Integer)<br />     Item = pRecordset.Fields(Index).Value<br /> End Property<br /> <br /> Public Property Get Count()<br />     Count = pRecordset.RecordCount<br /> End Property<br /> <br /> Public Property Get EOF()<br />     EOF = pRecordset.EOF<br /> End Property<br /> <br /> Public Property Get BOF()<br />     BOF = pRecordset.BOF<br /> End Property<br /> <br /> Private Sub Class_Terminate()<br /> On Error Resume Next<br />     pRecordset.Close<br />     Set pRecordset = Nothing<br />     pConnection.Close<br />     Set pConnection = Nothing<br /> End Sub<br />

houg

可惜还是没有办法下载

flydyt

看我的例子
打开数据库
Public db As Database
Public sysdb As Database
    Set sysdb = DBEngine.Workspaces(0).OpenDatabase("C:\sys.MDB", dbOpenDynamic)
    comm.Filter = "Access数据库(*.MDB)|*.MDB"
    comm.ShowOpen
    If comm.FileName <> "" Then
        Set db = DBEngine.Workspaces(0).OpenDatabase(comm.FileName, dbOpenDynamic)
    End If

打开表
   Dim rec As Recordset
    Set rec = sysdb.OpenRecordset("管线信息表", dbOpenDynaset)