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

《vb在构建流量监测数据库中应用》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VB在构建流量监测数据库中应用中图分类号:G250.74文献标识码：A文章编号:1概述江苏省水文水资源勘测局苏州分局自1997年开始已开展了苏州地区地表水水量水质同步监测，积累了较为系统的流量监测成果。随着监测频次及断面数量的增加，数据量逐年增大，传统的基于文件的数据管理模式越来越不适应数据查询、使用、更新的要求，因此有必要将这些流量监测数据有序组织起来，构建基于关系型数据库(RDBMS)的数据管理系统。VE作为常用的、面向对象的、支持ActiveXAutomation技术的开发工具，其语言简单，功能强

2、大，可用于设计界面和实现各种功能相对于其它开发语言要易于掌握。2VE与Excel连接Excel是微软公司办公自动化套件中的一个软件，他主要是用来处理电子表格。Excel对象模型包括了128个不同的对象，这些对象按照从属关系，有层次有组织在一起。其中用得最多有四个对象。(1)Application对象。Application对象处于Excel对象层次结构的顶层，表示Excel自身的运行环境。(2)Workbook对象。Workbook对象直接地处于Application对象的下层，表示一个Excel工作薄

3、文件。(3)Worksheet对象。Worksheet对象包含于Workbook对象，表示一个Excel工作表。(4)Range对象。Range对象包含于Worksheet对象，表示Excel工作表中的一个或多个单元格。下面的一段代码将实现VB与Excel链接。PublicxlsAppAsExce1.ApplicationPublicxlsWorkBookAsExce1.WorkbookPublicxlsSheetAsExceLWorksheetOnErrorResumeNextSetxlsApp=Ge

4、tObject(,“Exce1.Application^)IfErr.Number0ThenErr.ClearSetxlsApp=CreateObject("ExceLApplication^)IfErr.Number0ThenErr.ClearMsgBox(”不能启动Excel!v)ExitSubEndIf3构建流量监测数据库3.1数据库表设计一个Excel文件中共有7张工作表，每个县市各一张工作表，见图lo图1每张工作表中包含有一年逐月的数据，每月的数据以空行相隔，每张成果表除表头及内容外，格式基本

5、固定，见图2o图2数据库表名为"监测流量”，字段大体上按照图2的每列来定义，各字段的定义及意义见表lo考虑到实际的使用的方便，对其中站码字段采用县市名加河名的首字母拼音缩写方式，该部分由汉字转拼音模块自动识别生成。3.2匹配单元格每张工作表中都有逐月数据，并且每月的数据起始行并不固定，这就需要对每月数据的起始行定位。SearchRange参数必须是一个单独的单元格区域对象，设置为“Al：M1000”,FindWhat参数是想要查找的值，取值为“施测日期”。SetSearchRange二ThisWorkb

6、ook.Worksheets(1).Range(“Al：M1000”)FindWhat二“施测日期”Lookin=xlValuesLookAt=xlPartSearchOrder二xlByRowsMatchCase=FalseWithSearchRangeSetLastCell=・Cells(.Cells.Count)EndWithoooooooooooooooooooooooooooooooooooooooooooooooooooooooSetFoundCells=Application.Union(

7、FoundCells,FoundCell)SetFoundCell=SearchRange・FindNext(after：=FoundCell)LoopUntil(FoundCellIsNothing)Or(FoundCel1.Address=FirstAddr)EndIfIfFoundCellsIsNothingThenSetFindAll=NothingElseSetFindAll=FoundCellsEndIf查找到所有包括“施测日期”的单元格后，遍历每个单元格，确定单元格的起始行列数，然后将每列

8、数据导入数据库中。3.3导入数据库数据库采用Access数据库，文件名为flux.mdb,表名为“监测流量”，以下代码用来连接数据库。cmd二“Provider二Microsoft.Jet.OLEDB.4.0；DataSOURCE二E:flux.mdb”sql=Trim(sql)Setcn二NewADODB.ConnectionWithcn.ConnectionString二cmd.OpenEndWith打开数据库后，用INSERTINT