MS Access to Excel

[tsgdes]

Hi,
I'm trying to use DAO in execl to pull some records from a database. I can do this no probs using ADO but when I use DAO (3.6) I get a data mis-match error. The code I'm using is below and the problem occurs at the populate recordset line.

Anybody help?

Thanx

Sub dbquery()

Dim myDatabase As Database
Dim strSQL As String
Dim rstFromQuery As Recordset

'open database
myDatabase = OpenDatabase("C:mydatabase.mdb")

' build query
strSQL = "SELECT * from myTable"

'populate recordset
Set rstFromQuery = myDatabase.OpenRecordset(strSQL, dbOpenSnapshot)

'display records
MsgBox "there are " & rstFromQuery.RecordCount & _
" records that were returned"


rstFromQuery.MoveLast


MsgBox "there are " & rstFromQuery.RecordCount & _
" records that were returned"

rstFromQuery.Close
End Sub

 

[Norie]

Perhaps you need to declare the Recordset/Database as DAO objects?

Dim myDatabase As DAO.Database
Dim rstFromQuery As DAO.Recordset

By the way if you can do it with ADO why do you want to do it with DAO?

 

[tsgdes]

has worked now I needed to put the priorty in the references of DAO above ADO. I'm using DAO becuase it easier to move through the recordset

Cheers Des

 

[Norie]

Des

Glad you've got it sorted.

But I'm still wondering why DAO instead of ADO, as far as I'm aware don't they have basically the same methods for moving through recordsets?