#include <stdio.h>
//#include "stdafx.h"
#include <windows.h>

#import "c:\Programme\Gemeinsame Dateien\System\ADO\msado15.dll" rename("EOF","adoEOF")


//... Init Ole ...

struct InitOle {
InitOle()  { ::CoInitialize(NULL); }
~InitOle() { ::CoUninitialize();   }
} _init_InitOle_;

void main()
{
   HRESULT                hr = S_OK;

	try{
	   // ADO-Recordset Component
	   //---------------------------------------
	   // either explicit call of CreateInstance
	   // ADODB::_RecordsetPtr   Rs1 = NULL;
	   //  hr = Rs1.CreateInstance( __uuidof( ADODB::Recordset ) );
	   // or implicit via Constructor
	   ADODB::_RecordsetPtr   Rs1( __uuidof( ADODB::Recordset ));

	   _bstr_t Connect( "DSN=ora10g;UID=d4a15;PWD=d4a15;" );
	   _bstr_t Source ( "SELECT * FROM personen" );


	 // Open() liefert die Ergebnisreihen
	 // und macht implizit ein Connect

	   Rs1->Open( Source, Connect,
				ADODB::adOpenForwardOnly,
				ADODB::adLockOptimistic,
				/*ADODB::adLockReadOnly,*/ -1 );

	   _variant_t      vtFirstName;

		if(!(Rs1->adoEOF && Rs1->BOF))  // falls Recordset leer
	{
			Rs1->MoveFirst();
			while(!(Rs1->GetadoEOF()))
			{
				vtFirstName = Rs1->Fields->GetItem((long)0)->GetValue();
				printf( "First name = '%s'\n",
				((char*) ((_bstr_t) vtFirstName)) );
				Rs1->MoveNext();
			}
		}

		Rs1->Close();
 		Rs1 = NULL;


		getchar();

	   }catch (_com_error &e)
	   {
		  printf("Description = %s\n", (char*) e.Description());
	   }

  // ::MessageBox( NULL, "Success!", "", MB_OK );
}