利用ado读取excel的问题.doc

利用ADO操作Excel文件 今天花时间研究了一下ADO操作Excel文件的问题，跟大家分享一下：首先利用Excel2003创建了一个名为Demo.xls的文件，内容如下：NameAgeTY12TZL15然后打开VC，创建一个命令行应用程序。然后如一般的ADO程序一样编写相应代码，只是注意打开数据库的代码如下写：m_pConnection-Open(Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Demo.xls;Extended Properties=/Excel 8.0;HDR=No;IMEX=1/,adModeUnknown);注意一下HDR，如果后面是No的话，表示ADO将不把你Excel文件的第一行作为字段名（此时使用默认字段名：F1，F2。以此类推，当然也可以用(LPCTSTR)m_pRecordset-GetFields()-GetItem(_variant_t)zz)-Name之类的代码来获得相应的字段名）。否则如上Excel文件的字段名将是Name与Age。另外是IMEX，如果设置了IMEX=1; 则通知驱动程序始终将“互混”（数字，日期，字符串等）数据列作为文本读取，同时这个选项有可能影响到excel表格拒绝写操作，也就是说，如果我们要求写入excel的话，这个选项不能被设置。接下来是打开记录集，代码如下（注意一下表名的写法）：m_pRecordset-Open(select * from Sheet1$,_variant_t(IDispatch*)m_pConnection,true),adOpenDynamic,adLockOptimistic,adCmdUnknown);知道了字段名，打开了数据库跟记录集，随后的操作就跟普通ADO的操作一样了：读取操作：while(!m_pRecordset-adoEOF)_variant_t var = m_pRecordset-GetCollect(Name);if(var.vt != VT_NULL)_bstr_t strName = (LPCSTR)_bstr_t(var);var = m_pRecordset-GetCollect(Age);if(var.vt != VT_NULL)_bstr_t strAge = (LPCSTR)_bstr_t(var);string strMid = strName + - + strAge;coutstrMid.c_str()MoveNext();插入操作：m_pRecordset-AddNew();m_pRecordset-PutCollect(Name,_variant_t(zz);m_pRecordset-PutCollect(Age,_variant_t(23);m_pRecordset-Update();更新操作：m_pRecordset-MoveFirst();m_pRecordset-PutCollect(Name,_variant_t(zz);m_pRecordset-Update();删除操作：不支持！这也是感到很遗憾的地方。好在我们可以通过执行 update Sheet1$ set Name=NULL, Age=NULL where Name=zz 之类的SQL语句来实现类似功能。当然，你要知道的是，这一行并没有真正删除掉，所以通常在select的时候要进行一定的筛选，例如：select * fromSheet1$ where Name is