1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
| CDatabase database;
CString sSql;
CString sItem1, sItem2;
CString sDriver;
CString sDsn;
CString sFile = "scenario/test.xls";
sDsn.Format("ODBC;DRIVER={%s};DSN='';DBQ=%s", "Microsoft Excel Driver (*.xls)", sFile);
TRY
{
database.Open(NULL, false, false, sDsn);
// Allocate the recordset
CRecordset recset(&database);
sSql = "SELECT ID,Varlire, VarEcrire, EnchTempo, EnchValidation, EnchEtat, EnchCondition "
"FROM tablescenario "
"ORDER BY ID";
// Execute that query (implicitly by opening the recordset)
recset.Open(CRecordset::dynaset, sSql, CRecordset::readOnly);
int incr=0;
while(!recset.IsEOF())
{
incr++ ;
recset.MoveNext();
}
UpdateData(true);
Totalfiche=incr;
UpdateData(false);
//Remet le pointeur à l'initial
recset.MoveFirst();
// Close the database
database.Close();
}
CATCH(CDBException, e)
{
// A database exception occured. Pop out the details...
AfxMessageBox("Database error: " + e->m_strError);
}
END_CATCH; |
Partager