- _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
- }
_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
}