ok this my 1st time writing classes so i need help on
how to write a class for this :
Code:
void CADOMFC1View::OnMenuitem32771()
{
_RecordsetPtr pRecordSet;
CADOMFC1Doc * pDoc;
pDoc = GetDocument();
_bstr_t bstrQuery("SELECT * FROM App_Student");
_variant_t vRecsAffected(0L);
try
{
pRecordSet = pDoc->m_pConnection->Execute(bstrQuery,&vRecsAffected,adOptionUnspecified);
if (!pRecordSet->GetadoEOF())
{
CListCtrlEx& ctlList = (CListCtrlEx&) GetListCtrl();
ctlList.DeleteAllItems();
while(ctlList.DeleteColumn(0));
ctlList.AddColumn(" ID ",0);
ctlList.AddColumn(" Name ",1);
ctlList.AddColumn(" Gender ",2);
ctlList.AddColumn(" Subject 1 ",3);
ctlList.AddColumn(" Subject 2 ",4);
ctlList.AddColumn(" Class ",5);
int i = 0;
_variant_t ID;
_variant_t vName;
_variant_t cGender;
_variant_t vSubject1;
_variant_t vSubject2;
_variant_t Class;
while (!pRecordSet->GetadoEOF())
{
ID = pRecordSet->GetCollect(L"ID");
ctlList.AddItem(i,0,(_bstr_t) ID);
vName = pRecordSet->GetCollect(L"vName");
ctlList.AddItem(i,1,(_bstr_t) vName);
cGender = pRecordSet->GetCollect(L"cGender");
ctlList.AddItem(i,2,(_bstr_t) cGender);
vSubject1 = pRecordSet->GetCollect(L"vSubject1");
ctlList.AddItem(i,3,(_bstr_t) vSubject1);
vSubject2 = pRecordSet->GetCollect(L"vSubject2");
ctlList.AddItem(i,4,(_bstr_t) vSubject2);
Class = pRecordSet->GetCollect(L"Class");
ctlList.AddItem(i,5,(_bstr_t) Class);
pRecordSet->MoveNext();
i++;
}
}
pRecordSet->Close();
}
catch( _com_error &e )
{
// Get info from _com_error
_bstr_t bstrSource(e.Source());
_bstr_t bstrDescription(e.Description());
TRACE( "Exception thrown for classes generated by #import" );
TRACE( "\tCode = %08lx\n", e.Error());
TRACE( "\tCode meaning = %s\n", e.ErrorMessage());
TRACE( "\tSource = %s\n", (LPCTSTR) bstrSource);
TRACE( "\tDescription = %s\n", (LPCTSTR) bstrDescription);
}
catch(...)
{
TRACE( "*** Unhandled Exception ***" );
}
}
THANKS