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

　2008-02-26 20:26:17　来源：WEB开发网　闂傚倸鍊搁崐鎼佸磹妞嬪孩顐芥慨姗嗗厳缂傛氨鎲稿鍫罕闂備礁婀遍搹搴ㄥ窗閺嶎偆涓嶆い鏍仦閻撱儵鏌ｉ弴鐐测偓鍦偓姘炬嫹

闂傚倸鍊搁崐鎼佸磹妞嬪海鐭嗗〒姘ｅ亾妤犵偛顦甸弫鎾绘偐閹绘帞鈧參姊哄Ч鍥х仼闁诲繑鑹鹃悾鐑藉蓟閵夛妇鍘甸梺瑙勵問閸犳牠銆傛總鍛婄厱閹艰揪绱曟牎闂侀潧娲ょ€氫即鐛幒妤€绠ｆ繝闈涘暙娴滈箖鏌ｉ姀鈶跺湱澹曟繝姘厵闁绘劦鍓氶悘杈ㄤ繆閹绘帞澧涚紒缁樼洴瀹曞崬螖閸愬啠鍓濈换娑樼暆婵犱胶鏁栫紓浣介哺閹瑰洤鐣烽幒鎴僵闁瑰吀鐒﹂悗鎼佹⒒娴ｇ儤鍤€闁搞倖鐗犻獮蹇涙晸閿燂拷

濠电姷鏁告慨鐑藉极閸涘﹥鍙忔い鎾卞灩缁狀垶鏌涢幇闈涙灈鐎瑰憡绻冮妵鍕箻鐎靛摜鐣奸梺纭咁潐濞茬喎顫忕紒妯肩懝闁逞屽墮宀ｈ儻顦查悡銈夋煏閸繃鍋繛宸簻鎯熼梺瀹犳〃閼冲爼宕濋敃鈧—鍐Χ閸℃鐟愰梺鐓庡暱閻栧ジ宕烘繝鍥у嵆闁靛骏绱曢崢顏堟⒑閹肩偛鍔楅柡鍛⊕缁傛帟顦寸紒杈ㄥ笚濞煎繘鍩℃担閿嬵潟闂備浇妗ㄩ悞锕傚箲閸ヮ剙鏋侀柟鍓х帛閺呮悂鏌ㄩ悤鍌涘闂傚倸鍊搁崐鎼佸磹妞嬪孩顐芥慨姗嗗厳缂傛氨鎲稿鍫罕闂備礁婀遍搹搴ㄥ窗閺嶎偆涓嶆い鏍仦閻撱儵鏌ｉ弴鐐测偓鍦偓姘炬嫹　　闂傚倸鍊搁崐鎼佸磹閻戣姤鍤勯柤鍝ユ暩娴犳氨绱撻崒娆掑厡缂侇噮鍨堕妴鍐川閺夋垹鍘洪悗骞垮劚椤︻垶宕￠幎鑺ョ厪闊洦娲栨牎闂佽瀵掗崜鐔奉潖閾忓湱纾兼俊顖氭惈椤矂姊虹拠鑼婵ǜ鍔戦崺鈧い鎺嶇閸ゎ剟鏌涢幘璺烘瀻妞ゎ偄绻愮叅妞ゅ繐瀚悗顓烆渻閵堝棙绀€闁瑰啿閰ｅ畷婊勫鐎涙ǚ鎷洪梻渚囧亞閸嬫盯鎳熼娑欐珷妞ゆ柨澧界壕鐓庮熆鐠虹尨鍔熺紒澶庢閳ь剚顔栭崰鏍€﹂柨瀣╃箚婵繂鐭堝Σ鐑芥⒑缁嬫鍎愰柟鐟版搐铻為柛鎰╁妷濡插牊绻涢崱妤冪婵炲牊锕㈠缁樻媴妞嬪簼瑕嗙紓鍌氱М閸嬫挻绻涚€涙ḿ鐭ら柛鎾跺枛瀹曟椽鍩€椤掍降浜滈柟鐑樺灥閳ь剙缍婂鎶筋敆閸曨剛鍘遍柣搴秵娴滅兘鐓鍌楀亾鐟欏嫭纾婚柛妤€鍟块锝夊磹閻曚焦鞋闂備礁鎼Λ瀵哥不閹捐钃熼柕濞炬櫆閸嬪棝鏌涚仦鍓р槈妞ゅ骏鎷�

核心提示：3. 通过ODBC直接读取Excel文件(暂定文件名：Demo.xls)// 读取Excel文件void CRWExcel::ReadFromExcel(){CDatabase database;CString sSql;CString sItem1, sItem2;CString sDriver;CString sD

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 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;
}