用ADO读取Excel表格中的数据

今天学习用ADO来读取Excel表格数据，其实和读取Access数据库一样，
只是连接字符串不一样

Access数据库的连接字符串为：

_bstr_t strConnect = "";
strConnect = _T("Provider=Microsoft.ACE.OLEDB.12.0;");
strConnect += _T("Data Source=");
strConnect += FileName;	//为Access数据库名称

而要连接Excel的字符串为：

_bstr_t strConnect = "";
strConnect = _T("Provider=Microsoft.ACE.OLEDB.12.0;");
strConnect += _T("Data Source=");
strConnect += FileName;//Excel文件名称
strConnect += _T(";Extended Properties='Excel 12.0 Xml;HDR=YES'");

看看是不是差不多，
具体操作就和Access数据库一样了，
1.选引用ADO库

#import "C://Program Files//Common Files//System//ado//msado15.dll" no_namespace rename("EOF","adoEOF")

2.初始和移除ADO环境

::CoInitialize(NULL); //初始化环境，在构造函数中初始
::CoUninitialize(); //移除ADO环境，在析构函数中移除

3.连接数据库

//在头文件中定义
_ConnectionPtr m_pConn;

try
	{
		m_pConn.CreateInstance(_uuidof(Connection));
		m_pConn->Open(strConnect, TEXT(""), TEXT(""), adModeUnknown);

	}
	catch (_com_error& e)
	{
		GetComError(TEXT("数据库打开失败"), e);
		return FALSE;
	}

4.读取数据到_RecordsetPtr记录集中
_RecordsetPtr m_pRecordset;

//lpSql是传递的SQL语句“SELECT * FROM [Sheet2$]"
try
	{
		m_pRecordset.CreateInstance(_uuidof(Recordset));
		m_pRecordset->Open((_variant_t)lpSql,
			_variant_t((IDispatch*)m_pConn, true),
			adOpenStatic,
			adLockOptimistic,
			adCmdText);

	}
	catch (_com_error& e)
	{
		GetComError(TEXT("打开表单失败"), e);
		return FALSE;
	}

5.获得指定字段索引的名称
m_pRecordset->GetFields()->GetItem(i)->GetName();

_bstr_t bsrName;
int nCount=m_pRecordset->GetFields()->Count; //获得字段总数
for(int i=0;i<nCount;i++)
{
	bsrName=m_pRecordset->GetFields()->GetItem(i)->GetName();
	//...
}

6.获得指定字段的值

//循环读取数据
_variant_t var=VT_NULL;
while(!m_pRecordset->adoEOF)
{
	var=m_pRecordset->GetCollect(TEXT("ID"); //获得字段为ID名的值
	//...
	var=m_pRecordset->GetCollect((long)1); //获得字段索引为1的值，
	//...
	//读取完一条记录要让指针下移
	m_pRecordset->MoveNext();
}

7.关闭数据连接

if (m_pRecordset) //关闭,释放记录集
	{
		m_pRecordset->Close();
		m_pRecordset.Release();
	}

	if (m_pConn->State) //关闭,释放数据库连接
	{
		m_pConn->Close();
		m_pConn.Release();
	}

数据库读取后效果:

Excel表格数据