直接通过ODBC读写Excel表格文（转）

想要通过ODBC直接读、写Excel表格文件，首先，应确保ODBC中已安装有Excel表格文件的驱动"MICROSOFT EXCEL DRIVER (*.XLS)"。然后，可根据下面步骤进行：

1. 在StdAfx.h文件中加入：

#include <afxdb.h>
#include <odbcinst.h> 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 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;
}
补充:
 1.   //    插入数值   
   for(int    i=0;i<数据行数;i++)   
   {   
   sSql.Format("INSERT INTO loadtrans (bh,pbmc)VALUES('aa','bb')");   
   database.ExecuteSQL(sSql);   
   }   

 2. 如果想动态创建表结构，就在程序里修改下面这段中的sSql的值。
   //    创建表结构   
   sSql= "CREATE TABLE loadtrans(bh TEXT,pbmc TEXT,rygzdn NUMBER,rwgzdn NUMBER,ygglclz NUMBER,wgglclz    NUMBER,xdy    NUMBER,glysh    NUMBER)";   
   database.ExecuteSQL(sSql);   

     突然觉得非常紧张，从神经到身体都承担着一种莫名的压力。

     最近连着看了两部电视剧，都是在一两天的时间内完成。熬夜，然后早起，继续去实验室。似乎是一种发泄和自虐的情绪在里边。我告诉自己：不要慌，要镇静。你可以的，一切都会挺过去。加油！

    

一个严肃而沉重的话题，但又必须去面对了。

24号最后一门考试，以后就没有任何借口了，要老老实实的待在实验室里。

 

    很多人问我这个ID有什么含义，其实很简单：Sagittarius（射手）+tong（彤）。

    从来不是一个相信花语星运的女孩，却在一个偶然的机会，看到下面这篇《喜欢上射手MM》的帖子，觉得简直是自己的写真，惊叹下翻看了很多文章,也成了星座版的忠实观众。
    一个典型的射手，希望可以一直简单的快乐着。

   

1.自由是她最爱,你只是其次,不能给她自由和信任,她早晚会飞越疯人院; 

2.永远笑容可掬的晴朗大男孩出线,伤感只是她的暂时,她需要始终的快乐; 

3.她喜欢游乐园歌厅娱乐城,在玩乐中尽情享受,不要埋怨她的孩子气,在那快乐中你会感到她的爱恋; 

4.欺骗者死,你可以沉 默,她不会问你,但你只要说谎就是死罪,你有一次辩解机会,别把她当傻子; 

5.她是粗心的,但她是女人,只要是女人就是细腻的,她忽略的事情并非不晓得,只是不介意; 

6.不要强求她做家事,如果射手肯做家事,那她一定脱线了; 

7.不要强求她化妆,射手最崇尚自然,素面朝天同时以真心待人; 

8.不要嫉妒她身边的男人,射手天生异性缘好,但射手向来不喜欢参与三角恋情,相信她你就能获得她的心; 

9.天下最没耐心的是射手,不要像唐僧一样唠叨,告诉她你需要的,坐下来跟她谈; 

10.冷落是对她最大的伤害,你可以跟她辩论也可以跟她比赛,但就是不要冷落她,否则本来就爱自由的她一定会跑没影儿; 

11.她爱运动这属于天性,如果在出一身热汗后直接对她表白,机会大大的; 

12.要小心她的不稳定性,也许今天说的明天就变卦,让你体验一半儿火焰一半儿海水的感觉; 

13.要得到她就要得到她的朋友们认可,射手永远把朋友放在爱情前面,除非是初恋; 

14.她怀抱着崇高的理想,不要直接打击她,你可以陪她发发梦,但现实总在催人奋进; 

15.射手最爱旅游,有条件每年旅游两次的话最好,射手对外国风景没有任何抵抗力; 

16.爱情面前人人懵懂,她容易陷入一段爱情却不轻易许诺,她会为自己的承诺加一道枷锁; 

17.射手有逃婚倾向,不要太早求婚,等时机成熟让她感到她能从婚姻中得到更多快乐而非牵绊; 

18.发脾气前请三思,射手绝对不会不讲道理,一哭二闹三上吊大概只有你会死翘翘; 

19.三分钟热度是她们的习性,涉猎很广但不一定精通,不断变化的新鲜感是维持感情的良方; 

20.喜欢动物是天性,眷养宠物要给予它们充分自由,禁止在射手面前虐待宠物; 

21.她喜欢主动和大胆出击,在这方面你可不能落后,否则只会给她看扁; 

22.生命在于运动,即使你不擅长什么也不能扰了她的雅兴,只要放她去玩,她的耐性绝对
会在你寂寞之前回到你身边; 

23.她喜欢给你惊喜,像生命充满谜团,在大街上突然抱住你来个KISS你可千万别惊讶,这是她最擅长的; 

24.她不需要大钻石也不需要毫宅,她需要别人的认可,在她看来信任感就是最大的财富,你能给予这些,一定要做; 

25.不要阻挠她去上班,即使你很可能已经家财万贯,事业支持着她的精神,让她觉得生命的活力; 

26.在看书方面射手有着超乎寻常的品位,千万不要轻易送书给她,先跟她探讨兴趣很明智,通常射手对犯罪,心理,战争,武侠,名著都有兴趣. 

27.人非圣贤一定会犯错,最好的补偿方法是请她吃顿好的或者送些礼物,顺便跟她致歉,如果她说原谅你了就不要废话,没原谅你之前她会给你脸色看,千万不要唧唧歪歪. 

28.射手最不吃回头草,千万不要嫉妒她以前的男友,相信我,她绝不会回头,即使回头也不过是在那段结束的感情上再浇一盆冷水; 

29.射手天生爱憎分明,对感情她不会拖拖拉拉,她也不会等你拖拉,如果你不立刻决定你可能再也见不到她; 

30.她很漠视教条礼规,如果她肯去见你的家人并表现乖巧,那说明她真的很在乎你; 

31.你不需要陪她去疯去闯荡(当然如果能去更好),但当她回到家时她需要一个温暖的怀抱和鼓励的言语,这个时候唠叨她,你会失去她; 

32.她愿意接受别人的意见,只要你中肯的说出来,不但不会惹毛她,也许还得到一个吻;  

33.没有什么能让她终生喜欢,要博得她长久的芳心你必须懂得该出现和消失的时机,掌握不好就会让她厌烦,多察言观色对你没有坏处,因为她什么都写在脸上; 

34.射手容易心软,但她不会爱上比她弱的男生,让她看到你的力量,但要适可而止; 

35.射手还爱出风头,适时让她表现,或在她表现后夸赞几句,她会对你另眼相看; 

36.在方向上她可能是个白痴,你们出门最好由你带路,至少你要带着地图,如果你也是良牙的话; 

37.大度的人最烦小心眼儿,你的表现不像个男人,下次你就见不到她了; 

38.做事果断坚决最得她欢心,她通常都不考虑后果,适时给她建议指引方向,她就会依赖上你的思想; 

39.射手最大的优点就是宽容和独立,如果你想找个小鸟依人劝你赶快看看别处,她是绝对不会冒充双鱼的; 

40.射手被人冤枉时最郁闷,被人背叛时最痛苦,你最好不要这样做,否则你家被炸平我可不负责; 

41.她有不少缺点,淘气得让你头疼,但她的可爱你又放不下,不要强迫她去成熟起来,她的单纯自然天成,到中年也能颇得人心; 

42.爱她就大声的讲出来,畏畏缩缩得不到她的爱,只要你主动了一分,她自然会表现两分热忱; 

43.都说射手天生克蝎子,因为阴霾遇到了阳光,如果你想做007侦察她的行踪,小心她发现后把你cancel掉; 

44.她会告诉你她爱你,然后失踪了也说不定,爱上射手只有自求多福,等待的时候你有很多事情可以做来提高自己;

 45.一千只纸鹤还不如一个街头的狂吻,她喜欢的不是小溪而是浩瀚大海,不要让她感觉负累,她就是你的了; 

46.射手变心的速度天下第一,别指望能问出什么原因,唯一的办法是不要让她说出分手,拼命表现没用,还是自然点儿好; 

47.钱是用来享受的,如果你介意她的大手大脚可要提前打招呼,保住你的荷包容易,但是她自己的那份儿你别想干预; 

48.如果有幸你娶到她了,恭喜你,婚后的射手通常会稳重许多,成为同辈尊敬的妇女,她会偶尔想要玩乐,我想满足她并不困难; 

49.不接受她的观点她可能会难过一阵子,最好的办法是给她解释清楚,她乐于接受你的观点和坦诚,下一分钟你就会在别的地方看见快乐的她了; 

50.通常射手信命,但是她们又是不服输的一群,在原则问题上不要与她们争辩,她们很习惯求同存异的生活方式.

     最近参观了不少朋友的空间，也有点蠢蠢欲动的小心思。但是又惶惶然不敢下笔，既想和大家分享自己的心情，又想独自收藏一些故事，担心别人窥探到自己的心。懒惰，畏惧，还有点小自私...
     对那种“发黄的老照片、厚厚的日记本”，一直有种亲切感，觉得那才是记录我们生活点点滴滴的最好的方式。高中课堂上传的小纸条，被窝里打手电写下的情书，还有那一封封寄托着亲情、友情、爱情...诸多情思的信，都藏在记忆的深处,和内心最柔软的地方。偶尔拿出来温习一下，就像刚刚晒过的棉被——温暖熨帖的味道。
     短信，看过又删掉了；照片，PS过了；聊天记录，一行行没有任何变化的标准的5号宋体字。不会再有等家书、盼恋人的殷殷心情了，现在的小孩不会再有这样的经历——在一个温暖的午后，精心挑选一张素雅的信纸和一只最好用的笔，思绪和文字都天马行空，嘴角挂着幸福的微笑。然后近似虔诚的，把它送上充满期待的绿色之旅...
     享受着实时通讯工具的便捷，却感受不到昔日的真实。计算机越来越智能化，而我们的表达和沟通能力却严重倒退。这是我们IT人的骄傲还是悲哀...
    开始看博客，WIKI...是从纯技术的角度——web2.0的应用，而已。后来，就像无意中发现了一种风景，远远的，欣赏着别人的文字和故事。以后，也在这里拥有一个自己的空间，简单安静的空间。期待中，呵呵。