BASE DE DONNÉES ADO

	_variant_t SQLreq;
	CString szResult;



//--> Select :
//------------
try 
{_RecordsetPtr pRst("ADODB.Recordset");
// Connection String : Voir MSDN pour les drivers, providers adequats (Access, SQLServer, ...)
_bstr_t strCnn("uid=ID;pwd=PWD;Provider=SQLOLEDB.1;driver={SQLServer};server=MonServer;database=MaBase;dsn='MaBase'");

SQLreq = "SELECT distinct MonChamp1, MonChamp2 FROM MaTable;";
pRst->Open(SQLreq, strCnn, adOpenStatic, adLockReadOnly, adCmdText);

while (!pRst->ADOEOF)
{szResult = (char*) ((_bstr_t) pRst->GetFields()->GetItem("MonChamp1")->GetValue());
pRst->MoveNext();
}

pRst->Close();

}
catch (_com_error &e)
{// Gestion de l'erreur
}


//--> Update :
//------------
try 
{_RecordsetPtr pRst("ADODB.Recordset");

// Connection String
_bstr_t strCnn("uid=ID;pwd=PWD;Provider=SQLOLEDB.1;driver={SQLServer};server=MonServer;database=MaBase;dsn='MaBase'");

SQLreq = "UPDATE MonChamp1 SET MonChamp2 = 'maValeur' WHERE MonChamp1 = 'UneValeur';";
pRst->Open(SQLreq, strCnn, adOpenStatic, adLockOptimistic, adCmdText);
}
catch (_com_error &e)
{	// Gestion de l'erreur
}