I have been trying to figure something out all day. I have some code in Excel which pulls data from a table in Access and using CopyFromRecordset puts the data on a worksheet.
The really frustrating thing - is the recordset contains different values from the access table. I have tried using DAO instead, and casting the numbers to integer when updating (in case of sneaky decimal places) but to no avail.
I also looped through the recordset and the values in the actual recordset were incorrect.
Anybody got any ideas?
The code is below. I have also attached the results from the query
Private Sub get_data(ByVal str_res As String, ByVal int_row As Integer)
Dim obj_rs As New ADODB.Recordset
Dim str_sql As String
Dim str_conn As String
Dim obj_conn As New ADODB.Connection
str_sql = "SELECT * FROM tbl_adm_stats"
str_conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & str_filename & ";"
obj_conn.ConnectionTimeout = 0
obj_rs.CursorLocation = adUseClient
obj_rs.Open str_sql, obj_conn, adOpenDynamic, adLockOptimistic, adCmdTableDirect
Worksheets(1).Cells(int_row, 1).CopyFromRecordset obj_rs
Set obj_rs = Nothing
Set obj_conn = Nothing