Excel ODBC CListCtrl

 

导出CListCtrl控件到Excel文件

CListCtrl获得列的属性可以使用BOOLCListCtrl::GetColumn( int nCol, LVCOLUMN* pColumn )，nCol为需要获得获得属性值的列序号，pColumn 为 LVCOLUMN 结构体的指针。LVCOLUMN结构体中的 UINT mask 作为输入，决定返回哪些属性的值，如果 mask 的值包含 LVCF_TEXT ，则需要将字符串缓存的首地址指针置入结构体中的 LPTSTR pszText; 变量，缓存大小置入 int cchTextMax; 变量。
　　使用这个函数的主要问题是主要问题期望返回 LVCF_TEXT ，设置了 pszText 却没有设置 cchTextMax 变量，并且通常都在分配 LVCOLUMN 结构体空间时将所分配的内存清0，因此总是不能返回列名。反而是没有清0所分配空间，直接设置 mask 为LVCF_TEXT ，那么可能可以获得列名的值。当然只要正确设置 pszText 和 cchTextMax 就不会有这些问题。
　　还有一个问题是列的数量。没有直接的函数可以获得列的数量，只能从0开始不断自增 nCol 的值，判断 GetColumn( nCol,pColumn ) 的返回值是否为 False 以计算列的数量。

一封装好的导出CListCtrl数据函数如下：

///////////////////////////////////////////////////////////////////////////////

//      void GetExcelDriver(CListCtrl* pList, CString strTitle)

//      参数：

//             pList          需要导出的List控件指针

//             strTitle       导出的数据表标题

//      说明:

//             导出CListCtrl控件的全部数据到Excel文件。Excel文件名由用户通过“另存为”

//             对话框输入指定。创建名为strTitle的工作表，将List控件内的所有数据（包括

//             列名和数据项）以文本的形式保存到Excel工作表中。保持行列关系。

//      

//      edit by [r]@dotlive.cnblogs.com

///////////////////////////////////////////////////////////////////////////////

void ExportListToExcel(CListCtrl* pList, CString strTitle)

{

        CString warningStr;

        if (pList->GetItemCount ()>0) {       

               CDatabase database;

               CString sDriver;

               CString sExcelFile; 

               CString sSql;

               CString tableName = strTitle;

               // 检索是否安装有Excel驱动 "Microsoft Excel Driver (*.xls)" 

               sDriver = GetExcelDriver();

               if (sDriver.IsEmpty())

               {

                       // 没有发现Excel驱动

                       AfxMessageBox("没有安装Excel!/n请先安装Excel软件才能使用导出功能!");

                       return;

               }

               ///默认文件名

               if (!GetDefaultXlsFileName(sExcelFile))

                       return;

               // 创建进行存取的字符串

                sSql.Format("DRIVER={%s};DSN='''';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=/"%s/";DBQ=%s",sDriver, 

                                      sExcelFile, sExcelFile);

               // 创建数据库 (既Excel表格文件)

               if( database.OpenEx(sSql,CDatabase::noOdbcDialog) )

               {

                       // 创建表结构

                       int i;

                       LVCOLUMN columnData;

                       CString columnName;

                       int columnNum = 0;

                       CString strH;

                       CString strV;

                       sSql = "";

                       strH = "";

                       columnData.mask = LVCF_TEXT;

                       columnData.cchTextMax =100;

                       columnData.pszText = columnName.GetBuffer (100);

                       for(i=0;pList->GetColumn(i,&columnData);i  )

                       {

                               if (i!=0)

                               {

                                      sSql = sSql   ", " ;

                                      strH = strH   ", " ;

                               }

                               sSql = sSql   " "   columnData.pszText  " TEXT";

                               strH = strH   " "   columnData.pszText  " ";

                       }

                       columnName.ReleaseBuffer ();

                       columnNum = i;

                       sSql = "CREATE TABLE "   tableName   " ( "   sSql    " ) ";

                       database.ExecuteSQL(sSql);

                       // 插入数据项

                       int nItemIndex;

                       for (nItemIndex=0;nItemIndexGetItemCount ();nItemIndex  ){

                               strV = "";

                               for(i=0;iGetItemText(nItemIndex,i)  "'' ";

                               }

                               sSql = "INSERT INTO "  tableName 

                                       " ("  strH   ")"

                                       " VALUES("  strV   ")";

                               database.ExecuteSQL(sSql);

                       }

               }      

               // 关闭数据库

               database.Close();

               warningStr.Format("导出文件保存于%s!",sExcelFile);

               AfxMessageBox(warningStr);

        }

}

 

 

 

 

 

 

 

 

直接通过ODBC读写Excel表格文件
译者：徐景周(原作：AlexanderMikula)

下载本文示例代码

想要通过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()

{

  CDatabasedatabase;

  CString sDriver ="MICROSOFT EXCEL DRIVER (*.XLS)"; // Excel安装驱动

  CStringsExcelFile = "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()

{

    CDatabasedatabase;

    CString sSql;

    CString sItem1,sItem2;

    CString sDriver;

    CString sDsn;

    CString sFile ="Demo.xls";                      //将被读取的Excel文件名

                                    

    // 检索是否安装有Excel驱动 "MicrosoftExcel 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);

       

        CRecordsetrecset(&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()

{

    charszBuf[2001];

    WORD cbBufMax =2000;

    WORD cbBufOut;

    char *pszBuf =szBuf;

    CStringsDriver;

 

    // 获取已安装驱动的名称(涵数在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;

}

作者信息:
姓名：徐景周(未来工作室 Future Studio)
EMAIL：[e-mail]