网络数据与报表数据间共享的方法

[摘 要] 基于网络环境下，探索校园网网络数据与报表数据间共享的方法，挖掘校园网教育数据资源共享潜能，促进校园网为教学管理和校务管理服务。

[关键词] 网络 报表 数据 共享

在新一轮教育信息化进程中，数字化校园势必对教育革命性产生一定的影响。目前，学校数字化校园建设蓬勃开展，数字化校园网广泛应用于教育教学管理和校务管理（如学藉信息、教师档案、学科教学和行政等管理）。由于，校园网上数据无法直接调用或生成报表数据，诸如各类文档台帐和各种上报表格，只能采用人工方法从校园网上摘录或重新运算来填报数据，产生了重复劳动，增加了工作量，使得学校、教师、学生等对网络平台的应用产生了烦恼，成为了数字化校园网发展中的瓶颈。

为此，积极探索校园网网络数据与报表数据间共享的方法，挖掘校园网教育数据资源共享潜能，促进校园网为教学管理和校务管理服务，提高学校管理的效益和质量。下面具体介绍网络数据与报表数据间共享的方法。

网络数据与报表数据的共享，本文设计开发了无组件SQL Sever（或Access）和Excel之间网络数据导入和导出源程序，架起SQL Sever（或Access）和Excel之间数据共享与应用的桥梁，极大方便地将网络数据转成电子报表数据，或将电子报表数据转成网上数据，从而实现校园网网络数据资源共享性、重复性应用，体现出网络数据资源的潜在价值，推动和促进了教师、学生等对数字化校园网的应用兴趣。

一、网络数据生成电子表格数据

1.新建空表

在Excel报表中新建1个文件，并命名。在工作表中第一行为标题行，标题栏名必须和Sever（或Access）数据库中表的字段名一致，并存储在网络服务器中。

例：建立一个学生基本信息表，命名为xsk.xls,表格如下：

2.在网络环境中打开Excel报表

dim Excelconn '定义连接变量

set Excelconn =CreateObject("ADODB.Connection")

Excelconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source="&Server.MapPath("xsk.xls")

3. 生成报表

while not rs.eof

sql = "insert into [Sheet1$](序号,姓名，性别，出生年月，入学时间) values "('"&rs("序号")&"',"&rs("姓名")&","&rs("性别")&","&rs("出生年月")&",'"&rs("入学时间")&"')"

Excelconn.execute(sql)

rs.movenext

Response.Flush

Wend

4. 导出结果报告

If Err = 0 Then

Response.Write "导出成功！"

Else

Response.Write "导出失败!"

End If

5.下载Excel报表文件（略）

二、电子报表数据上传至网络数据库

1.上传Excel报表文件（略）

2.在网络环境中打开Excel电子表格（同上，略）

3. 判断Excel电子表格中是否含有空白单元格

function fixsql(str)

dim newstr

newstr = str

if isnull(newstr) then

newstr = "空串"

else

newstr = replace(newstr,"'","''")

end if

fixsql = newstr

end Function

4.导入网络数据库

while not rst.eof

sql = "insert into xsdata(序号,姓名，性别，出生年月，入学时间) values "('"&rs("序号")&"',"&rs("姓名")&","&rs("性别")&","&rs("出生年月")&",'"&rs("入学时间")&"')"

Accessconn.execute(sql)

rst.movenext

Response.Flush

Wend

5.导入结果报告（同上，略）

三、几点说明

1.服务器端环境为微软系列系统的配置。即：Win系列+ SQL Sever（或Access） +Office

2.导入和导出源程序是无组件支持，笔者测试均为成功，并应用于中小型校园网中。本文源程序不含冗余语句。编程时，将上述源代码嵌入网页源程序中即可。

3.对Office的版本没有特殊要求。考虑到客户机配置的不确定性和兼容特性，建议服务器端Office版本不要太高，以防止客户机下载后无法正常显示。