直接通过ODBC读写Excel表格文件.docx

直接通过ODBC读写Excel表格文件译者：徐景周(原作：Alexander Mikula)下载本文示例代码想要通过ODBC直接读、写Excel表格文件，首先，应确保ODBC中已安装有Excel表格文件的驱动MICROSOFT EXCEL DRIVER (*.XLS)。然后，可根据下面步骤进行：1. 在StdAfx.h文件中加入： #include #include 2. 通过ODBC直接创建Excel文件并在表中插入数据(暂定文件名：Demo.xls) /创建并写入Excel文件void CRWExcel:WriteToExcel() CDatabase database; CString sDriver = MICROSOFT EXCEL DRIVER (*.XLS); / Excel安装驱动 CString sExcelFile = c:demo.xls; / 要建立的Excel文件 CString sSql; TRY / 创建进行存取的字符串 sSql.Format(DRIVER=%s;DSN=;FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=%s;DBQ=%s, sDriver, sExcelFile, sExcelFile); / 创建数据库 (既Excel表格文件) if( database.OpenEx(sSql,CDatabase:noOdbcDialog) ) / 创建表结构(姓名、年龄) sSql = CREATE TABLE demo (Name TEXT,Age NUMBER); database.ExecuteSQL(sSql); / 插入数值 sSql = INSERT INTO demo (Name,Age) VALUES (徐景周,26); database.ExecuteSQL(sSql); sSql = INSERT INTO demo (Name,Age) VALUES (徐志慧,22); database.ExecuteSQL(sSql); sSql = INSERT INTO demo (Name,Age) VALUES (郭徽,27); database.ExecuteSQL(sSql); / 关闭数据库 database.Close(); CATCH_ALL(e) TRACE1(Excel驱动没有安装: %s,sDriver); END_CATCH_ALL;3. 通过ODBC直接读取Excel文件(暂定文件名：Demo.xls) / 读取Excel文件void CRWExcel:ReadFromExcel() CDatabase database; CString sSql; CString sItem1, sItem2; CString sDriver; CString sDsn; CString sFile = Demo.xls; / 将被读取的Excel文件名 / 检索是否安装有Excel驱动 Microsoft Excel Driver (*.xls) sDriver = GetExcelDriver(); if (sDriver.IsEmpty() / 没有发现Excel驱动 AfxMessageBox(没有安装Excel驱动!); return; / 创建进行存取的字符串 sDsn.Format(ODBC;DRIVER=%s;DSN=;DBQ=%s, sDriver, sFile); TRY / 打开数据库(既Excel文件) database.Open(NULL, false, false, sDsn); CRecordset recset(&database); / 设置读取的查询语句. sSql = SELECT Name, Age FROM demo ORDER BY Name ; / 执行查询语句 recset.Open(CRecordset:forwardOnly, sSql, CRecordset:readOnly); / 获取查询结果 while (!recset.IsEOF() /读取Excel内部数值 recset.GetFieldValue(Name , sItem1); recset.GetFieldValue(Age, sItem2); / 移到下一行 recset.MoveNext(); / 关闭数据库 database.Close(); CATCH(CDBException, e) / 数据库操作产生异常时. AfxMessageBox(数据库错误: + e-m_strError); END_CATCH;4. 获取ODBC中Excel驱动的函数 CString CRWExcel:GetExcelDriver() char szBuf2001; WORD cbBufMax = 2000; WORD cbBufOut; char *pszBuf = szBuf; CString sDriver; / 获取已安装驱动的名称(涵数在odbcinst.h里) if (!SQLGetInstalledDrivers(szBuf, cbBufMax, &cbBufOut) return ; / 检索已安装的驱动是否有Excel. do if (strstr(pszBuf, Excel