VC利用ADO操作Ecel分析和总结.docxVIP

VC利用

VC利用ADO操作Excel

把Excel当做数据库来操作，步骤如下：

1、在stdafx.h中加入#importc:/programfiles/commonfiles/system/ado/msado15.dllno_namespacerename(EOF,adoEOF)

2、在工程的App类的构造函数中打开要操作的Excel表格

_ConnectionPtrpCon_ex;CStringConnectionString;

CToolsApp::CToolsApp()

{

CStringm_strAppPath=_T();CStringexcel_path=_T();CStringcon_str=_T();

//程序所在目录路径

TCHARexeFullPath[MAX_PATH];GetModuleFileName(NULL,exeFullPath,MAX_PATH);

CStringstr;str.Format(%s,exeFullPath);

m_strAppPath=str.Left(str.ReverseFind(//));

excel_path=m_strAppPath+//Database+//新全国图数据统计模版--.xls;

CoInitialize(NULL);

//打开excel

/*HDR=Yes;表示工作表的第一行是表头，没有数据。HDR=No;与之相反。IMEX=1;告诉驱动程序始终将intermixed数据类型(numbers,dates,strings等等)作为文本型读取。

注意：该选项可能引起Excel工作表写权限的修改。如果想写入数据，创建新表等必须使

其为0*/

ConnectionString=_T(Provider=Microsoft.Jet.OLEDB.4.0;DataSource=);ConnectionString+=excel_path; //excel file name

ConnectionString+=_T(;ExtendedProperties=/Excel8.0;HDR=Yes;IMEX=0/);

BSTRresultsString=ConnectionString.AllocSysString();pCon_ex.CreateInstance( uuidof(Connection));

resultsString=ConnectionString.AllocSysString();pCon_ex-Open(resultsString,,,adModeUnknown);

}

3、从Excel中读数据

读数据比较简单，可以使用SQL查询语句来找到自己感兴趣的记录。

CStringstrSQL=_T();

_RecordsetPtr pRst( uuidof(Recordset)); //数据集

_RecordsetPtr Rs1( uuidof(Recordset)); //数目集

strSQL=select*from[道路$]where城市like%+str_city+%;//[道路$]

为sheet的名称

pRst=(((CDataManaApp*)AfxGetApp())-pCon_ex)-Execute((_bstr_t)strSQL,NULL,adCmdText); //指定的城市

CStringsql=_T();

sql=select count(*)asgeshufrom[道路$]where城市like%+str_city+%;

Rs1=(((CDataManaApp*)AfxGetApp())-pCon_ex)-Execute((_bstr_t)sql,NULL,adCmdText);

_variant_t vCount=Rs1-GetCollect(geshu);intnum1=vCount.lVal; //符合条件的记录个数

pRst-MoveFirst(); //只读取第一行

_variant_tt=_variant_t(long(6));

result=(LPCSTR)_bstr_t(pRecordset-GetCollect(t));//以列序号的方式来读取字段内容 0based

result=(LPCSTR)_bstr_t(pRecordset-GetCollect(人口));//以字段名的方式来读字段内容

4增加新行以及填写某个cell

_RecordsetPtrm_pRecordset;m_pRecordset.Creat