DBF с использованием ADO

_RecordsetPtr pRstEmployee = NULL;
_ConnectionPtr pConnection = NULL;
 
_bstr_t strCnn("Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\\Reestrs\\In;");
 
IADORecordBinding *picRs = NULL;
CEmployeeRs emprs;
 
TESTHR(pConnection.CreateInstance(__uuidof(Connection)));
pConnection->Open(strCnn, "", "", adConnectUnspecified);
 
TESTHR(pRstEmployee.CreateInstance(__uuidof(Recordset)));
pRstEmployee->Open(_variant_t("reg_p.dbf"), _variant_t((IDispatch *)pConnection, true), adOpenKeyset, adLockOptimistic, adCmdTable);

inline void TESTHR(HRESULT x) { if FAILED(x) _com_issue_error(x); };

#pragma once
 
#include "targetver.h"
 
#define WIN32_LEAN_AND_MEAN             // Exclude rarely-used stuff from Windows headers
// Windows Header Files:
#include <windows.h>
#include <string.h>
#include <assert.h>
#include <stdlib.h>
 
#include <oledb.h>
#include <conio.h>
#include "icrsint.h"
 
// TODO: reference additional headers your program requires here
 
#import "msado15.dll" no_namespace rename("EOF", "EndOfFile")

#include "stdafx.h"
#include "DBFParser.h"
 
// class extracts only fname,lastname and hire_date from employee table
class CEmployeeRs : public CADORecordBinding {
   BEGIN_ADO_BINDING(CEmployeeRs)
 
      // Column fname is the 2nd field in the table   
      ADO_VARIABLE_LENGTH_ENTRY2(2, DataTypeEnum::adLongVarChar, reg_name, 
      200, le_reg_name, FALSE)
 
      // Column lname is the 4th field in the table.
      ADO_VARIABLE_LENGTH_ENTRY2(1, adInteger, in_c_page, 
      sizeof(in_c_page), le_in_c_page, FALSE)
 
      // Column hiredate is the 8th field in the table.
      ADO_VARIABLE_LENGTH_ENTRY2(4, adLongVarChar, in_path, 
     200, le_in_path, TRUE)
 
   END_ADO_BINDING()
 
public:
   CHAR   reg_name[20];
   ULONG   le_reg_name;
   INT   in_c_page;
   ULONG   le_in_c_page;
   CHAR   in_path[50];
   ULONG   le_in_path;
};
 
 
DLLEXP bool LoadFile(wchar_t *filename)
{
    _RecordsetPtr pRstEmployee = NULL;
    _ConnectionPtr pConnection = NULL;
 
    _bstr_t strCnn("Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\\Reestrs\\In\\;");
 
    IADORecordBinding *picRs = NULL;
    CEmployeeRs emprs;
 
    MessageBox(0, L"DBF Parser loaded!", L"", 0);
 
    try
    {
MessageBox(0, L"1", L"", 0);
        TESTHR(pConnection.CreateInstance(__uuidof(Connection)));
        pConnection->Open(strCnn, "", "", adConnectUnspecified);
MessageBox(0, L"2", L"", 0);
        TESTHR(pRstEmployee.CreateInstance(__uuidof(Recordset)));
MessageBox(0, L"2.5", L"", 0);
        pRstEmployee->Open(_variant_t("select * from a_ff.dbf"), _variant_t((IDispatch *)pConnection, true), adOpenKeyset, adLockOptimistic, adCmdTable);
MessageBox(0, L"3", L"", 0);
        TESTHR(pRstEmployee->QueryInterface(__uuidof(IADORecordBinding), (LPVOID*)&picRs));
MessageBox(0, L"4", L"", 0);
        TESTHR(picRs->BindToRecordset(&emprs));
MessageBox(0, L"5", L"", 0);
        MessageBoxA(0, emprs.reg_name, "employee", 0);
    }
    catch (_com_error &e)
    {
        MessageBox(0,  e.Description(), (LPCWSTR)e.ErrorMessage(), 0);
    }
 
    return true;
}