подключение и выполнение

// adodb_port_test.cpp : Defines the entry point for the console application.
//
 
#include "stdafx.h"
 
//beg
 
#import "c:\program files\common files\system\ado\msadox.dll"
#import "c:\program files\common files\system\ado\msado25.tlb" rename("EOF", "EndOfFile")
 
void *catalog_create(BSTR connection_string)
{
    ADOX::_CatalogPtr *catalog = 0;
    try
    {
        catalog = new ADOX::_CatalogPtr("ADOX.Catalog");
        (*catalog)->PutActiveConnection(connection_string);
    }
    catch (...)
    {
        delete catalog;
        catalog = 0;
    }
    return catalog;
}
 
void catalog_destroy(void *catalog)
{
    delete (ADOX::_CatalogPtr *)catalog;
}
 
long catalog_get_tables_count(void *catalog)
{
    long res = 0;
    try
    {
        res = (*(ADOX::_CatalogPtr *)catalog)->Tables->Count;
    }
    catch (...)
    {}
    return res;
}
 
bool catalog_get_table_name(void *catalog, long tables_count, BSTR *table_name)
{
    bool res = true;
    ADOX::_CatalogPtr &_catalog = *(ADOX::_CatalogPtr *)catalog;
    try
    {
        for (long i = 0L; i < tables_count; i++)
            table_name[i] = SysAllocString(_catalog->Tables->Item[i]->Name);
    }
    catch (...)
    {
        res = false;
        for (long i = 0L; i < tables_count; i++)
        {
            SysFreeString(table_name[i]);
            table_name[i] = 0;
        }
    }
    return res;
}
 
void *connection_create(BSTR connection_string, BSTR user, BSTR password)
{
    ADODB::_ConnectionPtr *connection = 0;
    try
    {
        connection = new ADODB::_ConnectionPtr("ADODB.Connection");
        (*connection)->Open(connection_string, user, password, ADODB::adConnectUnspecified);
    }
    catch (...)
    {
        delete connection;
        connection = 0;
    }
    return connection;
}
 
void connection_destroy(void *connection)
{
    delete (ADODB::_ConnectionPtr *)connection;
}
 
void *recordset_create_by_table_name(BSTR source, void *connection)
{
    ADODB::_RecordsetPtr *recordset = 0;
    try
    {
        recordset = new ADODB::_RecordsetPtr("ADODB.Recordset");
        (*recordset)->Open(source, ((ADODB::_ConnectionPtr *)connection)->GetInterfacePtr(), ADODB::adOpenForwardOnly, ADODB::adLockReadOnly, ADODB::adCmdTable);
    }
    catch (...)
    {
        delete recordset;
        recordset = 0;
    }
    return recordset;
}
 
void *recordset_create_by_cmd(BSTR source, void *connection)
{
    ADODB::_RecordsetPtr *recordset = 0;
    try
    {
        recordset = new ADODB::_RecordsetPtr("ADODB.Recordset");
        (*recordset)->Open(source, ((ADODB::_ConnectionPtr *)connection)->GetInterfacePtr(), ADODB::adOpenForwardOnly, ADODB::adLockReadOnly, ADODB::adCmdText);
    }
    catch (...)
    {
        delete recordset;
        recordset = 0;
    }
    return recordset;
}
 
void recordset_destroy(void *recordset)
{
    delete (ADODB::_RecordsetPtr *)recordset;
}
 
long recordset_get_fields_count(void *recordset)
{
    long res = 0;
    try
    {
        res = (*(ADODB::_RecordsetPtr *)recordset)->Fields->Count;
    }
    catch (...)
    {}
    return res;
}
 
bool recordset_get_field_name(void *recordset, long fields_count, BSTR *field_name)
{
    bool res = true;
    ADODB::_RecordsetPtr &_recordset = *(ADODB::_RecordsetPtr *)recordset;
    try
    {
        for (long i = 0L; i < fields_count; i++)
            field_name[i] = SysAllocString(_recordset->Fields->Item[i]->Name);
    }
    catch (...)
    {
        res = false;
        for (long i = 0L; i < fields_count; i++)
        {
            SysFreeString(field_name[i]);
            field_name[i] = 0;
        }
    }
    return res;
}
 
bool recordset_eof(void *recordset)
{
    bool res = true;
    try
    {
        res = (*(ADODB::_RecordsetPtr *)recordset)->EndOfFile;
    }
    catch (...)
    {}
    return res;
}
 
bool recordset_move_first(void *recordset)
{
    bool res = true;
    try
    {
        (*(ADODB::_RecordsetPtr *)recordset)->MoveFirst();
    }
    catch (...)
    {
        res = false;
    }
    return res;
}
 
bool recordset_move_next(void *recordset)
{
    bool res = true;
    try
    {
        (*(ADODB::_RecordsetPtr *)recordset)->MoveNext();
    }
    catch (...)
    {
        res = false;
    }
    return res;
}
 
bool recordset_get_field_value(void *recordset, long fields_count, VARIANT *field_value)
{
    bool res = true;
    ADODB::_RecordsetPtr &_recordset = *(ADODB::_RecordsetPtr *)recordset;
    try
    {
        for (long i = 0L; i < fields_count; i++)
            field_value[i] = _recordset->Fields->Item[i]->Value;
    }
    catch (...)
    {
        res = false;
        for (long i = 0L; i < fields_count; i++)
            VariantClear(&field_value[i]);
    }
    return res;
}
 
//end
 
#include <stdio.h>
 
int main(int argc, char* argv[])
{
    CoInitialize(0);
 
    BSTR connection_string = SysAllocString(L"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;");
    BSTR user = SysAllocString(L"");
    BSTR password = SysAllocString(L"");
 
    void *catalog = catalog_create(connection_string);
    long tables_count = catalog_get_tables_count(catalog);
    BSTR *table_name = new BSTR[tables_count];
    for (long i = 0L; i < tables_count; i++)
        table_name[i] = 0;
    catalog_get_table_name(catalog, tables_count, table_name);
 
    printf("tables_count = %li\n", tables_count);
    for (i = 0L; i < tables_count; i++)
        printf("%ls\n", table_name[i]);
    printf("\n");
 
    void *connection = connection_create(connection_string, user, password);
 
    void *recordset = recordset_create_by_table_name(table_name[0L], connection);
    long fields_count = recordset_get_fields_count(recordset);
    BSTR *field_name = new BSTR[fields_count];
    VARIANT *field_value = new VARIANT[fields_count];
    for (i = 0L; i < fields_count; i++)
    {
        field_name[i] = 0;
        VariantInit(&field_value[i]);
    }
    recordset_get_field_name(recordset, fields_count, field_name);
 
    printf("%ls\t", field_name[0L]);
    for (i = 1L; i < fields_count; i++)
        printf("\t%ls", field_name[i]);
    printf("\n");
 
    for (long r = 0L; r < 5L; r++)
    {
        recordset_get_field_value(recordset, fields_count, field_value);
 
        printf("%lf", field_value[0L].dblVal);
        for (long c = 1L; c < fields_count; c++)
        {
            printf("\t%f", field_value[c].fltVal);
        }
        printf("\n");
 
        recordset_move_next(recordset);
    }
 
    recordset_destroy(recordset);
    connection_destroy(connection);
    catalog_destroy(catalog);
 
    CoUninitialize();
 
    system("pause");
 
    return 0;
}