VB在构建流量监测数据库中的应用

中图分类号：G250.74文献标识码： A 文章编号：

1 概述

江苏省水文水资源勘测局苏州分局自1997年开始已开展了苏州地区地表水水量水质同步监测，积累了较为系统的流量监测成果。随着监测频次及断面数量的增加，数据量逐年增大，传统的基于文件的数据管理模式越来越不适应数据查询、使用、更新的要求，因此有必要将这些流量监测数据有序组织起来，构建基于关系型数据库（RDBMS）的数据管理系统。

VB作为常用的、面向对象的、支持ActiveX Automation技术的开发工具，其语言简单，功能强大，可用于设计界面和实现各种功能相对于其它开发语言要易于掌握。

2 VB与Excel连接

Excel是微软公司办公自动化套件中的一个软件，他主要是用来处理电子表格。Excel对象模型包括了128个不同的对象，这些对象按照从属关系，有层次有组织在一起。其中用得最多有四个对象。

（1）Application对象。Application对象处于Excel对象层次结构的顶层，表示Excel自身的运行环境。

（2）Workbook对象。Workbook对象直接地处于Application对象的下层，表示一个Excel工作薄文件。

（3）Worksheet对象。Worksheet对象包含于Workbook对象，表示一个Excel工作表。

（4）Range对象。Range对象包含于Worksheet对象，表示Excel工作表中的一个或多个单元格。

下面的一段代码将实现VB与Excel链接。

Public xlsApp As Excel.Application

Public xlsWorkBook As Excel.Workbook

Public xlsSheet As Excel.Worksheet

On Error Resume Next

Set xlsApp = GetObject（, "Excel.Application"）

If Err.Number 0 Then

Err.Clear

Set xlsApp = CreateObject（"Excel.Application"）

If Err.Number 0 Then

Err.Clear

MsgBox （"不能启动Excel！"）

Exit Sub

End If

3 构建流量监测数据库

3.1 数据库表设计

一个Excel文件中共有7张工作表，每个县市各一张工作表，见图1。

图1

每张工作表中包含有一年逐月的数据，每月的数据以空行相隔，每张成果表除表头及内容外，格式基本固定，见图2。

图2

数据库表名为“监测流量”，字段大体上按照图2的每列来定义，各字段的定义及意义见表1。考虑到实际的使用的方便，对其中站码字段采用县市名加河名的首字母拼音缩写方式，该部分由汉字转拼音模块自动识别生成。

3.2 匹配单元格

每张工作表中都有逐月数据，并且每月的数据起始行并不固定，这就需要对每月数据的起始行定位。SearchRange参数必须是一个单独的单元格区域对象，设置为“A1:M1000”，FindWhat参数是想要查找的值，取值为“施测日期”。

Set SearchRange = ThisWorkbook.Worksheets(1).Range("A1:M1000")

FindWhat = "施测日期"

LookIn = xlValues

LookAt = xlPart

SearchOrder = xlByRows

MatchCase = False

With SearchRange

Set LastCell = .Cells(.Cells.Count)

End With

。。。。。。。。。。。。。。。。。。。

。。。。。。。。。。。。。。。。。。

。。。。。。。。。。。。。。。。。。

Set FoundCells = Application.Union(FoundCells, FoundCell)

Set FoundCell = SearchRange.FindNext(after:=FoundCell)

Loop Until (FoundCell Is Nothing) Or (FoundCell.Address = FirstAddr)

End If

If FoundCells Is Nothing Then

Set FindAll = Nothing

Else

Set FindAll = FoundCells

End If

查找到所有包括“施测日期”的单元格后，遍历每个单元格，确定单元格的起始行列数，然后将每列数据导入数据库中。

3.3 导入数据库

数据库采用Access数据库，文件名为flux.mdb，表名为“监测流量”，以下代码用来连接数据库。

cmd = "Provider=Microsoft.Jet.OLEDB.4.0;Data SOURCE=E:\flux.mdb"

sql = Trim(sql)

Set cn = New ADODB.Connection

With cn

.ConnectionString = cmd

.Open

End With

打开数据库后，用INSERT INTO语句将Excel表中各列数据逐月分别取值后，逐条导入数据库中。全部数据导入完成后，关闭数据库连接。

sql = "INSERT INTO 监测流量" & "(STCD,RVID,RVNM,SECNM,YR,MTH，DY,HR,MIT,TZ,AREA,FLUX,AVGV,DIRT,WIND,NT)" & _

" VALUES('" & STCD & "','" & RVID & "','" & RNNM & "'," & SECNM & "," & YR & "," & MTH & ",'" & DY & "','" & HR & "','" & MIT & "','" & TZ & "','" & AREA & "','" FLUX & "','"AVGV & "','" DIRT & "','" WIND & "','" NT & "' )"

cn.Exexute sql

cn.Close

4 结束语

本文阐述了在已有Excel电子表格的基础上，融合VB程序设计理念，将Excel电子表格中的数据逐条导入数据库，从而构建基础的流量监测数据库。从数据的后续利用来说，基于关系型数据库（RDBMS）来进行流量数据的存储和管理，便于资料的检索利用，会大大提高工作效率。另外由于VB操控数据库功能很强，在已有的流量监测数据库的基础上，可以建立高效的数据库管理系统。