vc6.0实现操作excle之下篇

2，        通过ODBC服务

2.1,类和方法使用说明

为使用CDatabase，构造一个CDatabase对象并调用它的OpenEx成员函数。这打开了一个连接。在接着构造CRecordset对象以操纵连接的数据源时，向CDatabase对象传递记录集构造程序指针。完成使用连接时调用Close成员函数并销毁CDatabase对象。Close关闭以前没有关闭的任何记录集。

#include<afxdb.h>

1.建立连接：

要建立与数据源的连接，首先应构造一个CDatabase对象，然后再调用CDatabase的Open成员函数Open函数负责建立连接，其声明为：

virtual BOOL Open(LPCTSTR lpszDSN, BOOL bExclusive = FALSE, BOOL bReadOnly = FALSE, LPCTSTRlpszConnect =＂ODBC;＂, BOOLbUseCursorLib = TRUE ); throw( CDBException, CMemoryException );

说明：

1)参数lpszDSN指定了数据源名（构造数据源的方法将在后面介绍），在lpszConnect参数中也可包括数据源名，此时lpszDSN必需为NULL，若在函数中未提供数据源名且使lpszDSN为NULL，则会显示一个数据源对话框，用户可以在该对话框中选择一个数据源。

2)参数bExclusive说明是否独占数据源，由于目前版本的类库还不支持独占方式，故该参数的值应该是FALSE，这说明数据源是被共享的。

3)参数bReadOnly若为TRUE则对数据源的连接是只读的。

4)参数lpszConnect指定了一个连接字符串，连接字符串中可以包括数据源名、用户帐号(ID)和口令等信息，字符串中的“ODBC”表示要连接到一个ODBC数据源上。

5)参数bUseCursorLib若为TRUE，则会装载光标库，否则不装载，快照需要光标库，动态集不需要光标库。

6)若连接成功，函数返回TRUE，若返回FALSE，则说明用户在数据源对话框中按了Cancel按钮。若函数内部出现错误，则框架会产生一个异常。

例子：

1)CDatabase m_db; //在文档类中嵌入一个CDatabase对象

2)//连接到一个名为＂StudentRegistration＂的数据源

m_db.Open("Student Registration");

3)//在连接数据源的同时指定了用户帐号和口令

m_db.Open(NULL,FALSE,FALSE,"ODBC;DSN=Student Registration;UID=ZYF;PWD=1234");

4)m_db.Open(NULL); //将弹出一个数据源对话框

2.要从一个数据源中脱离，可调用函数Close。在脱离后，可以再次调用Open函数来建立一个新的连接。

3.调用IsOpen可判断当前是否有一个连接。

4.调用GetConnect可返回当前的连接字符串。

5.相关函数声明：

virtual void Close( );

BOOL IsOpen( ) const; //返回TRUE则表明当前有一个连接

const CString& GetConnect( ) const;

6.CDatabase的析构函数会调用Close，所以只要删除了CDatabase对象就可以与数据源脱离。

7. CDatabase类成员

数据成员

m_hdbc

对数据源的开放数据库连接（ODBC）连接句柄。类型HDBC

构造函数

CDatabase

构造一个CDatabase对象。必须通过调用OpenEx或Open初始化这个对象

Open

建立到数据源的一个连接（通过ODBC驱动程序）

OpenEx

建立到数据源的一个连接（通过ODBC驱动程序）

Close

关闭数据源连接

数据库属性

GetConnect

返回用于连接CDatabase对象和数据源的ODBC连接字符串

IsOpen

如果CDatabase对象当前与数据源连接，则返回非零

GetDatabaseName

返回当前使用的数据库名字

CanUpdate

如果CDatabase可更新（不是只读的），则返回非零

CanTransact

如果数据源支持事务，则返回非零

SetLoginTimeout

设置数据源连接试图超时的秒数

SetQueryTimeout

设置数据库查询操作超时的秒数。影响以后的所有记录集调用：Open，AddNew，Edit和Delete

GetBookmarkPersistence

标识记录集对象上书签持久化操作

GetCursorCommitBehavior

标识在打开的记录集对象上提交事务的效果

GetCursorRollbackBehavior

标识在打开的记录集对象上回滚事务的效果

数据库操作

BeginTrans

在连接的数据源上开始“事务”──类CRecordset的一系列可回滚的AddNew，Edit，Delete和Update成员函数调用。数据源必须支持事务才能使BeginTrans有效

BindParameters

允许在调用CDatabase::ExecuteSQL前绑定参数

CommitTrans

完成由从BeginTrans开始的事务。执行这个事务中改变数据源的命令

Rollback

回滚当前事务期间所做变化，数据源返回到BeginTrans调用时定义的未改变的以前状况

Cancel

取消第二个线程的异步操作或处理

ExecuteSQL

执行一条SQL语句。不返回数据记录

数据库覆盖

OnSetOptions

框架调用以设置标准连接选项。缺省实现设置查询超时值。可以通过调用SetQueryTimeout提前建立这些选项

 

想要通过ODBC直接读、写Excel表格文件，首先，应确保ODBC中已安装有Excel表格文件的驱动"MICROSOFTEXCEL DRIVER (*.XLS)"。

2.2. 在StdAfx.h文件中加入：
#include <afxdb.h>
#include <odbcinst.h>

//通过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;
}


// 获取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;
}