VC操作Excel表格中的数据

首先,我们要明白的是用VC编程实现访问Excel数据有很多方法,这里我们使用的是通过ODBC来访问Excel表格的,也就是说,VC将Excel表格当作数据库来处理。
其次,既然是数据库,那么,就需要建立一个与该库对应的dsn,而且在建立dsn之前,首先要确定已经安装了Excel的驱动(已安装office套件),你只需要在控制面板的ODBC选项卡中查看即可。

最后,要访问数据库中的表格,就要先打开该表格,如此,就需要一个与之对应的RecordSet,并且你应该熟悉一些关于SQL语句的基本操作,接下来就是像操作数据库一样操作Excel文件中的数据。

获取Excel驱动接口代码如下:

CString CTTDMDlg::GetExcelDriver( )
{
	wchar_t szBuf[2001];
	wchar_t excl[] = _T("Excel");
	WORD cbBufMax = 2000;
	WORD cbBufOut;
	wchar_t *pszBuf = szBuf;
	CString sDriver;
	// 获取已安装驱动的名称(函数在odbcinst.h里)
	if (!SQLGetInstalledDrivers(szBuf, cbBufMax, &cbBufOut))
		return _T("");
	// 检索已安装的驱动是否有Excel...
	// AfxMessageBox(CString(pszBuf));
	do
	{
		if(wcsstr(pszBuf, excl) != 0)
		{
			//发现 !
			sDriver = CString(pszBuf);
			break;
		}
		wchar_t ze = {'\0'};
		pszBuf = wcschr(pszBuf, ze) + 1;
	}
	while (pszBuf[1] != '\0');

	return sDriver;
}

接下来我们根据Excel文件名来读取数据,代码如下:(代码操作部分需要根据你自己的数据结构进行相应调整)

void CTTDMDlg::OnBnClickedBTNRead()
{
	// TODO: Add your control notification handler code here
	CDatabase database;
	CString sSql;
	CString sItem1, sItem2,sItem3;
	CString sDriver;
	CString sDsn;
	CString sFile,sPath;                              
	//获取主程序所在路径,存在sPath中
	GetModuleFileName(NULL, sPath.GetBufferSetLength(MAX_PATH+1), MAX_PATH);
	sPath.ReleaseBuffer();
	int nPos;
	nPos=sPath.ReverseFind ('\\');
	sPath=sPath.Left (nPos);
	sFile = sPath + _T("\\ReadExcel.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
	{
		database.Open(NULL, false, false, sDsn); // 打开数据库(既Excel文件)
		CRecordset recset(&database);
		sSql = _T("SELECT 学号,姓名,班级 FROM [Student$] ORDER BY 学号");        
		// 执行查询语句
		recset.Open(CRecordset::forwardOnly, sSql, CRecordset::readOnly);
		while (!recset.IsEOF())// 获取查询结果
		{
			//读取Excel内部数值
			recset.GetFieldValue(_T("学号"), sItem1);
			recset.GetFieldValue(_T("姓名"), sItem2);
			recset.GetFieldValue(_T("班级"), sItem3);
			m_ListCtrl.AddString( sItem1 + "       "+sItem2+ "       "+sItem3);
			recset.MoveNext();// 移到下一行
		}
		database.Close();     // 关闭数据库                   
	}
	CATCH(CDBException, e)
	{
		AfxMessageBox(_T("数据库错误: ") + e->m_strError);
	}
	END_CATCH;
}
注意,这里的表名Student是Excel中对应的Sheet名,并且需要写成[Student$],如果不这样写可能会提示你“数据库引擎找不到Student对象”,请看下图



这样一来Excel数据读取部分就完成了,关于数据写入与更新相信大家就不会陌生了,只要我们打开了数据库连接,组合相应的SQL语句,然后执行便可以插入、更新数据了。

插入数据如下:

// 插入数值
sSql.Format(_T("INSERT INTO Student (学号,姓名,记录) VALUES ('%s','%s','1')"), str1, str2);
database.ExecuteSQL(sSql);
以我的一个点名程序为背景的部分源码如下,大家需要学习如何连接数据库并如何操作:

CDatabase database;
CString sDriver;
CString sExcelFile,sPath; 
CString sDsn;
CString sSql;
//获取主程序所在路径,存在sPath中
GetModuleFileName(NULL,sPath.GetBufferSetLength (MAX_PATH+1),MAX_PATH);
sPath.ReleaseBuffer();
int nPos;
nPos=sPath.ReverseFind('\\');
sPath=sPath.Left(nPos);
sExcelFile = sPath + _T("\\缺勤记录.xls"); 			// 要建立的Excel文件
//Excel驱动 "Microsoft Excel Driver (*.xls)" 
sDriver = GetExcelDriver();
	
if(PathFileExists(sExcelFile))
{
	//AfxMessageBox(_T("Get file"));
	//要写入的文件存在时的操作
}		
else <span style="font-family: Arial, Helvetica, sans-serif;">//要写入的文件不存在时的操作</span>
{
	//AfxMessageBox(_T("no file"));
	TRY
	{
		// 创建进行存取的字符串
		sSql.Format(_T("DRIVER={%s};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s"),sDriver, sExcelFile, sExcelFile);
		if( database.OpenEx(sSql,CDatabase::noOdbcDialog) )// 创建数据库 (既Excel表格文件)
		{
			// 创建表结构(学号、姓名、记录)
			sSql = _T("CREATE TABLE Student (学号 INT,姓名 TEXT,记录 INT)");
			database.ExecuteSQL(sSql);
			// 插入数值
			sSql = _T("INSERT INTO Student (学号,姓名,记录) VALUES ('32212116','陈佩','0')");
			database.ExecuteSQL(sSql);
				
			for(UINT i=0; i<=vNArriveStu.size(); i++)
			{
				CString StuNo = vNArriveStu.at(vNArriveStu.size()-1);
				vNArriveStu.pop_back();//删除最后一个数据
				LVFINDINFO info;
				info.flags = LVFI_PARTIAL|LVFI_STRING;
				info.psz = StuNo;
				int nIndex = m_ListCtrlShow.FindItem(&info);
				CString str1 = m_ListCtrlShow.GetItemText(nIndex, 0);
				CString str2 = m_ListCtrlShow.GetItemText(nIndex, 1);
				// 插入数值
				sSql.Format(_T("INSERT INTO Student (学号,姓名,记录) VALUES ('%s','%s','1')"), str1, str2);
				database.ExecuteSQL(sSql);
			}
				
		}      
		// 关闭数据库
		database.Close();
		AfxMessageBox(_T("Excel文件写入成功!"));
	}
	CATCH(CDBException, e)
	{
		AfxMessageBox(_T("数据库错误: ") + e->m_strError);
	}
	END_CATCH;
}
同理,数据的更新部分只需组合以下语句:

//更新已有记录
sSql.Format(_T("UPDATE Student SET 记录=%d where 学号=%s"), count, str1);
database.ExecuteSQL(sSql);  
更新的连接部分更上面的插入代码是一样的,只是执行操作换成更新的这两句即可......



  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值