#import "C:\Program Files\Common Files\System\ado\msado15.dll" \
    no_namespace rename("EOF", "EndOfFile")

#include <stdio.h>
#include <windows.h>
#include <winbase.h>//critical 
#include <ole2.h>
#include <process.h>
#include "lock.h"

#include "criticalsection.h"

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

CriticalSection myCriticalSection;
_ConnectionPtr  pConnection = NULL;
//connection string
_bstr_t strCnn("Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\\myfolder\\mydata.mdb;Uid=Admin;Pwd=;");   
_bstr_t strSQL("SELECT * FROM REPORT");

int valReportId;

void ThreadProc(void* valReportId)
{
		
		char table[ 8 ]="<table>";
		char td[ 5 ]="<td>";
		char tr[ 5 ]="<tr>";
		char table_cls[ 9 ]="</table>";
		char td_cls[ 6 ]="</td>";
		char tr_cls[ 6 ]="</tr>";
        FILE *cfPtr;
		_RecordsetPtr pRstReport  = NULL;
		HRESULT hrR = S_OK;


        try
        {			
	
			TESTHR(pRstReport.CreateInstance(__uuidof(Recordset)));
                                      //Вот тут он не подключается к рекордсет 
			pRstReport->Open("SELECT * FROM REPORT", strCnn, adOpenStatic,
				adLockReadOnly, adCmdText);

			if((cfPtr = fopen("report.html","a+")) == NULL)
				printf("File could not opened!\n");
					fprintf(cfPtr,"%s", table);

	        pRstReport->MoveFirst();
			
            if(!pRstReport->EndOfFile)
            {
				while(!pRstReport->EndOfFile)
               {
					fprintf(cfPtr,"%s%s%s%s%s%s%s%s%s%s%s",tr,	
						    td, (char*) ((_bstr_t)
					pRstReport->GetFields()->GetItem("UID")->GetValue()), td_cls,
							td, (char*) ((_bstr_t)
					pRstReport->GetFields()->GetItem("DATA1")->GetValue()), td_cls,
							td, (char*) ((_bstr_t)
					pRstReport->GetFields()->GetItem("DATA2")->GetValue()), td_cls,
													tr_cls);
				               			
    	            //create table in file.htm

				  pRstReport->MoveNext();
				}			
			}		
			fprintf(cfPtr,"%s", table_cls);
			pRstReport->Close();
        }//try
	catch (_com_error &e)
	{
		printf("Error:\n");
		printf("Code = %08lx\n", e.Error());
		printf("Code meaning = %s\n", (char*) e.ErrorMessage());
		printf("Source = %s\n", (char*) e.Source());
		printf("Description = %s\n", (char*) e.Description());
	}

	pRstReport->Close();
	
	
}
////////////////////////////////////////////////////////////////////////////////////////////
//
//                           MAIN FUNCTION
//                
/////////////////////////////////////////////////////////////////////////////////////////////
void main()
{
	
	HRESULT hrU = S_OK;
	
	// Define ADO object pointers.
    // Initialize pointers on define.
    // These are in the ADODB::  namespace.
    _CommandPtr     pCmd  = NULL;
	_RecordsetPtr   pRstUsers = NULL;

	try {

		CoInitialize(NULL);
      //Create Recordsets object
      TESTHR(pRstUsers.CreateInstance(__uuidof(Recordset)));
	
	 //Open the Record set for getting records from Users table
     pRstUsers->Open("SELECT * FROM USERS", strCnn, adOpenStatic,
		  adLockReadOnly, adCmdText);

	 pRstUsers->MoveFirst();

	 //Loop through the Record set
    if (!pRstUsers->EndOfFile)
    {
       while(!pRstUsers->EndOfFile)
       { 


          valReportId = pRstUsers->Fields->GetItem("REPORTID")->Value.intVal;			  
          printf("ReportID:%d\n User:%s\n", valReportId,
			  									((char*) ( (_bstr_t)
					pRstUsers->GetFields()->GetItem("User")->GetValue()) ) );
			
		  if(_beginthread(ThreadProc, 0 ,(void*)valReportId)==- 1 )
		  {
            printf("Failed to create a thread\n");
            return;
		  }
				
          pRstUsers->MoveNext();
       }
	   pRstUsers->Close();
    }
	}//end try
	catch (_com_error &e)
	{
		printf("Error:\n");
		printf("Code = %08lx\n", e.Error());
		printf("Code meaning = %s\n", (char*) e.ErrorMessage());
		printf("Source = %s\n", (char*) e.Source());
		printf("Description = %s\n", (char*) e.Description());
	}

   CoUninitialize();
   return;
}