浅谈ADO和DAO的记录集

roych

很多版友在进阶学习时，可能都对ADO和DAO有些理解不到位的地方，经常在论坛上看到相关的提问。这次我尽量用一个帖子把它们讲清楚。
第1种情况：只引用Access（2003版本默认引用DAO 3.6）。


这种情况下，无需注明DAO，但也无法使用ADO。一旦使用了ADO，将报错：


第2种情况，引用了ADO和DAO。一般来说，如果没注明，会根据优先级来使用，谁排在上面就用谁。

这种情况也是不会报错的。但调整顺序后将报错。

这时候应该怎么改呢？注明DAO就好了。

如果这时候想用ADO怎么办？可以注明，也可以不用注明。例如，这里不注明，也是不会报错的。

结论：
1、如果没有引入ADO，定义时可以不注明前缀。
2、如果引入ADO，不注明前缀时，根据优先级来使用Recorset。
为了避免错误，建议不管是否引入ADO，都应注明ADO或者DAO。
当没有注明时，如何判断引入的是ADO或者DAO。
1、看代码块里是否使用new关键字。这个是ADO独有的，DAO无法使用new关键字。
2、看代码块里是否有OpenRecorset，这个是DAO独有的，ADO无法使用该方法。
大家学废了吗？

yanwei82123300

慢慢进阶,底子薄

accben

谢谢roych的分享。先前还不知道，不引用ADO或DAO也可以这样使用记录集。
当然，对应引用是最好的。
一般情况下：
1）能用ADO解决的，就优先使用ADO解决（如记录操作：增修改）。
2）其次再用DAO（如对象操作：表的字段名）。
3）还有一个ADOX也一定程度上可以替代DAO使用。

huanghyd

thanks!

smileyoufu

一个好的使用习惯是，使用关键字，指定是DAO还是ADO，这样就不容易出错：【ADO】
Function ShowSchema()
'列出表
    '目的：使用ADO列出表。
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim i As Integer
    Set cn = CurrentProject.Connection
    Set rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
    For i = 0 To rs.Fields.Count - 1
        Debug.Print rs.Fields(i).Name
    Next
    Do While Not rs.EOF
        Debug.Print rs.Fields("TABLE_NAME").Value
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    Set cn = Nothing
End Function



【DAO】
Function ShowFields(strTable As String)
    '目的：如何读取表的字段。
    '用法：调用显示字段（“表1”）
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field

    Set db = CurrentDb()
    Set tdf = db.TableDefs(strTable)
    For Each fld In tdf.Fields
        Debug.Print fld.Name, FieldTypeName(fld)
    Next

    Set fld = Nothing
    Set tdf = Nothing
    Set db = Nothing
End Function

人生好运

学习了