VB实现数据批量导入

摘要:随着《管理系统》的普及运用,数据录入是每个《管理系统》必须的功能之一,但是现在《管理系统》大多是采用的单一数据录入方式,这种录入方式的缺点是录入速度慢、操作麻烦、容易出错;但是如果先按规定的格式采取用Excel数据录入(Excel数据编辑对用过OFFICE办公软件的人并不陌生),然后批量导入数据库,这种方法不但导入速度快,错误容易事先检查。

目前比较流行的面向对象的开发语言VB,不但在开发上可以做到简单快捷,在与数据库的连接上更做到了游刃有余!Access在所有数据库中,是比较简单的,无论是在建立和维护上都是开发小型系统的首选。

关键词:Excel;批量导入;数据库;面向对象

中图分类号:TP311文献标识码:A文章编号:1009-3044(2010)08-1884-02

VB Data Bulk Import

SHEN Jia-hua

(Xuzhou Higher Vocational School of Electrical and Mechanical China, Xuzhou 221001, China)

Abstract: With the "management system" universal use of data entry for each "management system" must be one of the functions, but now the "management system" are mostly used in a single data-entry mode, this input method disadvantage is that slow entry operation trouble, prone to error; but if you press the prescribed form to take with the Excel data entry (Excel data editors used the OFFICE of the people are not familiar with office software), and then bulk import the database, this method is not only faster to import, error easy to check in advance.

Currently popular object-oriented development language VB, not only can be done in the development of simple and quick, in connection with the database in more of its capability to do so! Access in all databases, is relatively simple, both in establishing and maintaining the development of small systems are preferred.

Key words: Excel; bulk import; database; object-oriented

1 Excel简介

Excel是一种集快速制表、图表处理、数据管理分析、数据共享和等功能于一身的集成化软件。

2 批量导入

按照事先提供的Excel模板录入数据,待数据录入完毕,将录入的数据作为一个整体进行导入。

3 数据库(data base)

数据库是用来存放数据的一种服务器。

3.1 分类

1)大型数据库有:oracl、SQL server。

2)小型数据库有:Access、MySQL、BD2等。

3.2 关系模型

3.2.1 定义

是数据库系统中最重要的模型,关系模型中的数据的逻辑结构是一张二维表,使用表格来描述实体间的关系,列称为属性,列值称为属性值。每一行数据称为一个记录。

3.2.2 特点

数据结构简单,概念清楚;能够直接反应实体间一对一、一对多和多对多关系。

3.2.3 关系模型示例

图1为关系模型示例。

4 面向对象

VB程序设计是基于面向对象的可视化程序设计语言,采用了一些面向对象的编程技术。

4.1 对象

是源自于现实世界的描述,是程序设计中相对独立的实体,是代码和数据的集合。

4.1.1 对象的属性

与物体一样,不同的对象拥有不同的特征,属性就是以数值、字符串等形式描述这些特征的。VB中常见的属性有标题(Caption)、名称(Name)、颜色(Color)、字体大小(FontSize)等,这些属性决定了对象在界面中具有的外观及功能。

4.1.2 对象的方法

是可以执行的操作,也就是说给对象一个命令后,对象所做出的相应的动作就是对象的一个方法。根据方法是否有返回值,调用对象方法有两种方法:

1)有返回值:变量名称=对象名称.方法名称(参数列表)

2)无返回值:对象名称.方法名称

5 VB具体实现批量导入

5.1 定义Excel操作变量

Dim objExcelfile As Excel.Application

Dim objworkbook As Excel.Workbook

Dim objimportsheet As Excel.Worksheet

5.2 打开Excel进程,并打开目标Excel文件

Set objExcelfile = New Excel.Application

objExcelfile.DisplayAlerts = False

Set objworkbook = objExcelfile.Workbooks.Open(Text1.Text)

Set objimportsheet = objworkbook.Sheets(1)

5.3 获取Excel有效区域的行和列数

Col = objimportsheet.UsedRange.Columns.Count

Row = objimportsheet.UsedRange.Rows.Count

5.4 逐行读取Excel中数据并保存到mdb数据库中

For i = 起始行数 To Row

With Adodc1.Recordset

.AddNew

.Fields("ur") = objimportsheet.Cells(i, 1).Value

.Fields("uname") = objimportsheet.Cells(i, 2).Value

.Fields("password") = objimportsheet.Cells(i, 2).Value

.Update

End With

Next i

5.5 退出Excel进程,并关闭Excel相关操作对象

objExcelfile.Quit

Set objworkbook = Nothing

Set objimportsheet = Nothing

Set objExcelfile = Nothing

5.6 显示导入的数据

Adodc1.RecordSource = "select * from 表名"

Adodc1.Refresh

Set MSHFlexGrid1.DataSource = Adodc1

5.7 运行效果图

图2为运行效果图。

参考文献:

[1] 曹军生.SQL Server 2000[M].北京:北京理工大学出版社,2006:5.

[2] 王栋.Visual Basic 程序设计实用教程[M].3版.北京:清华大学出版社,2007:19.