CExcel_DEMO

 

#pragma once
#include <afxdb.h>
#include <odbcinst.h>

class CExcel_DEMO
{
public:
	CExcel_DEMO(void);

	~CExcel_DEMO(void);

	//創建並寫入Excel文件
	void WriteToExcel()
	{
		CDatabase database;
		CString sDriver =GetExcelDriver();// _T("MICROSOFT EXCEL DRIVER (*.XLS)"); // Excel安裝驅動
		CString sExcelFile = _T("c:\\demo.xls");                // 要建立的Excel文件
		CString sSql;
		TRY
		{
			// 創建進行存取的字符串
			sSql.Format(_T("DRIVER={%s};DSN='''';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s"),
				sDriver, sExcelFile, sExcelFile);
			// 創建數據庫 (既Excel表格文件)
			if( database.OpenEx(sSql,CDatabase::noOdbcDialog) )
			{
				// 創建表結構(姓名、年齡)
				sSql =_T("CREATE TABLE demo (Name TEXT,Age NUMBER)");
				database.ExecuteSQL(sSql);
				// 插入數值
				sSql = _T("INSERT INTO demo (Name,Age) VALUES ('徐景周',26)");
				database.ExecuteSQL(sSql);
				sSql = _T("INSERT INTO demo (Name,Age) VALUES ('徐志慧',22)");
				database.ExecuteSQL(sSql);
				sSql = _T("INSERT INTO demo (Name,Age) VALUES ('郭徽',27)");
				database.ExecuteSQL(sSql);
			}
			// 關閉數據庫
			database.Close();
		}
		CATCH_ALL(e)
		{
			TRACE1(_T("Excel驅動沒有安裝: %s"),sDriver);
		}
		END_CATCH_ALL;
	}

	CString GetExcelDriver()
	{
		TCHAR szBuf[2001];
		WORD cbBufMax = 2000;
		WORD cbBufOut;
		TCHAR*pszBuf = szBuf;
		CString sDriver;
		// 獲取已安裝驅動的名稱(涵數在odbcinst.h裏)
		if (!SQLGetInstalledDrivers(szBuf, cbBufMax, &cbBufOut))
			return _T("");
		// 檢索已安裝的驅動是否有Excel...
		do
		{
			if (tstrstr(pszBuf, _T("Excel")) != 0)
			{
				//發現 !
				sDriver = CString(pszBuf);
				break;
			}
			pszBuf = tstrchr(pszBuf, _T('\0')) + 1;
		}
		while (pszBuf[1] != _T('\0'));
		return sDriver;
	}

	// 讀取Excel文件
	void ReadFromExcel()
	{
		CDatabase database;
		CString sSql;
		CString sItem1, sItem2;
		CString sDriver;
		CString sDsn;
		CString sFile = _T("Demo.xls"); 			// 將被讀取的Excel文件名
		// 檢索是否安裝有Excel驅動 "Microsoft Excel Driver (*.xls)"
		sDriver = GetExcelDriver();
		if (sDriver.IsEmpty())
		{
			// 沒有發現Excel驅動
			AfxMessageBox(_T("沒有安裝Excel驅動!"));
			return;
		}
		// 創建進行存取的字符串
		sDsn.Format(_T("ODBC;DRIVER={%s};DSN='''';DBQ=%s"), sDriver, sFile);
		TRY
		{
			// 打開數據庫(既Excel文件)
			database.Open(NULL, false, false, sDsn);
			CRecordset recset(&database);
			// 設置讀取的查詢語句.
			sSql = _T("SELECT Name, Age FROM demo ORDER BY Name ");
			// 執行查詢語句
			recset.Open(CRecordset::forwardOnly, sSql, CRecordset::readOnly);
			// 獲取查詢結果
			while (!recset.IsEOF())
			{
				//讀取Excel內部數值
				recset.GetFieldValue(_T("Name"), sItem1);
				recset.GetFieldValue(_T("Age"), sItem2);
				// 移到下一行
				recset.MoveNext();
			}
			// 關閉數據庫
			database.Close();
		}
		CATCH(CDBException, e)
		{
			// 數據庫操作產生異常時...
			AfxMessageBox(_T("數據庫錯誤: ") + e->m_strError);
		}
		END_CATCH;
	}


};