16,467
社区成员
发帖
与我相关
我的任务
分享
CString GetExcelDriver()//检索EXCEL驱动
{
char szBuf[2001];
WORD cbBufMax = 2000;
WORD cbBufOut;
char *pszBuf = szBuf;
CString sDriver;
// 获取已安装驱动的名称(涵数在odbcinst.h里)
if (!SQLGetInstalledDrivers(szBuf, cbBufMax, &cbBufOut))
return "";
// 检索已安装的驱动是否有Excel
do
{
if (strstr(pszBuf, "Excel") != 0)
{
sDriver = CString(pszBuf);
break;
}
pszBuf = strchr(pszBuf, '\0') + 1;
}
while (pszBuf[1] != '\0');
return sDriver;
}
//-----------------------------------------------------------
代码:
CDatabase database;
CString strDriver;
CString strLink;
strDriver = GetExcelDriver();
if (strDriver.IsEmpty())// 没有发现Excel驱动
{
return FALSE;
}
CString strTemp;
TRY
{
strLink.Format("ODBC;DRIVER={%s};DSN='''';DBQ=%s", strDriver, strPath);
BOOL bFlag = database.Open(NULL, false, false, strLink); // 打开数据库(既Excel文件)
CRecordset recset(&database);
CString strsql;
strsql.Format("select * from [%s$]",strTable);//表名,$必须有
// 执行查询语句
recset.Open(CRecordset::forwardOnly, strsql, CRecordset::readOnly);
if (recset.GetRecordCount()==0)
{
return FALSE;
}
while (!recset.IsEOF())// 获取查询结果
{
//读取Excel内部数值
recset.GetFieldValue("A", a);//字段和变量,不用类型转换
...
recset.MoveNext();// 移到下一行
}
database.Close(); // 关闭数据库
}
CATCH(CDBException, e)
{
strError.Format("%s",e->m_strError);
return FALSE;
}
END_CATCH;
return TRUE;