Vb教程 Vb.net教程 Vfp教程 C/C++教程 Vc/Vc++教程 Delphi教程 Java教程 Powerbuilder
  杀毒频道 | 短信频道 | 网络电视 | 论文中心 | 学上网 | 学软件 | 网页特效 | 电脑基础 | 论坛  
  NCRE | 软考 | CET | 职称英语 | 司法考试 | 报关员 | 公务员 | CATTI | CPA考试  
  Html教程 | Css教程 | Xml教程 | Asp教程 | Asp.net | Php教程 | Jsp教程 | Linux教程 | QQ技巧  
Photoshop Illustrator ImageReady Maya教程 3D Max教程 Lightscape Coredraw教程 Authorware Autocad教程 Freehand教程
Access教程 Mysql教程 Sql server Oracle教程 Word教程 Excel教程 Powerpoint Frontpage Asp.net源码 Php源代码
Flash教程 Fireworks Dreamweaver C#教程 outlook教程 系统安装 vbscript教程 Javascript Jsp源代码 Asp源代码
您的位置:首页 >> Mysql教程 >> 正文

如何将Access和Excel导入到Mysql中

文章来源:eNet硅谷动力 作者:罗伟文

对于一些小型甚至中型的公司来说,仍然使用Access或者Excel记录数据,不仅速度慢,而且在多人操作时存在着很多的不便,随着业务的发展,它们都有着升级系统的要求,但它们又拿不出很多的资金去开发一个系统,这时采用Mysql数据库,然后配合PHP等脚本语言进行开发就有着很多的好处,不仅经济、速度快、便于维护,而且通过浏览器就可以多人同时操作数据库,可以极大地提高工作效率。但这里首先会碰到一个问题,如何将Access和Excel中的数据导入到Mysql中呢,这里就以一个具体的项目为例,介绍如何使用VB开发这样的导库程序。

项目需求:该公司是一个进行二手楼盘买卖的公司,楼盘的资料来自几间分公司,存放在Access文件和Excel文件中,要求将所有的数据导入到一个中型数据库中,并且实现楼盘搜索的功能。

项目分析:考虑到该公司的规模,决定采用Mysql数据库,它是完全网络化的跨平台关系型数据库系统,同时是具有客户机/服务器体系结构的分布式数据库管理系统。它具有功能强、使用简便、管理方便、运行速度快、安全可靠性强等优点,对于中小型的企业非常合用,搜索功能可以用PHP实现。至于导数据的操作,可以通过VB进行。下文就着重介绍这一点。

软件环境:服务器使用Win2000 Server,Win2000比win98稳定,而且可控性更强。

   本文介绍的例子很简单,只要你开发过ASP及对可视化编程有一点概念就可以理解,以后就可以使用VB开发类似的数据库应用。

一。Mysql数据库的安装、建库和ODBC的安装设置

   Mysql和ODBC驱动可以在其主页(http://www.mysql.com/)下载,在右边的Latest Versions点击进去,下载相应的版本就行了。这里我们要下载Intel版本的Mysql(最新版本为3.23.40),ODBC驱动则是MyODBC 2.50.37 for NT/2000 (full setup),如果使用Win95/98,其驱动是不同的,请注意区分。

   然后就可以安装了,Mysql的安装是非常简单的,将它解压到一个目录(C:\mysql),在Win2000中,Mysql可以作为Windows的一个服务运行,在命令行中运行"C:\mysql\bin\mysqld-nt --install",然后在Win2000管理工具的服务中我们就可以发现有Mysql这个服务运行,不过我发现直接运行winmysqladmin.exe也是可以的,这时会要求输入一个密码,这是Mysql的连接密码,请记好,默认的连接是没有密码的(用户为root)。

   其后是建立数据库和表,由于要将Access和Excel中的数据都导过来,因此表格中要包括两者的全部字段,这里为简单起见,只选择了其中的一些字段来说明,运行cmd进入到命令行方式,切换到c:\mysql\bin目录,执行"mysqladmin create build",这个命令是创建数据库,build是数据库的名称,成功后,执行“mysql”,进入"Mysql>"的命令行方式下,执行以下的命令:

mysql>use build;

mysql>CREATE TABLE loupan (

id int(10) unsigned NOT NULL auto_increment,

loupantype varchar(6),

inputdate date,

at_whatsection varchar(6),

buildname varchar(50),

buildaddress varchar(50),

room tinyint(4),

hall tinyint(4),

areasize decimal(10,2),

exp_sellprice decimal(13,2),

ownername varchar(20),

contactway varchar(50),

memo varchar(255),

updatestatus char(1),

goodloupan char(1),


PRIMARY KEY (id)

);

   接着就会出现Query OK, 0 rows affected (0.04 sec)的成功提示,上文中use build表示切换当前的数据库为build,接着的语句是建表的命令,字段由上至下表示的是id号(自动加1,而且是该表的主键)、楼盘的类型、输入的日期、所在的区域、楼盘的名字、地址、房间的数目、厅的数目、面积、期望售价、业主的名字、联系方式、备注、更新状态、笋盘标志。

   接着就是安装Mysql的ODBC驱动了,MyODBC的安装也是傻瓜式的,运行setup,一步步确认。结束后,就可以在控制面板的ODBC数据源中进行设置了,点“系统DSN”,选择“添加”,在驱动程序的列表中选择“mysql”,就会弹出一个配置页面,在Windows DSN Name中输入数据源的名称,这里输入build(还可以输入其它的名称,不一定跟数据库的名字相同),在“MySQL host(name or IP)”中,输入“localhost”,表示Mysql运行在本机上,在Mysql Database Name中输入数据库的名字“build”,User中输入“root”,PassWord中输入刚才设置的密码,如果刚才没有设置的话,留空,按“OK”后,就会在系统数据源中多了一项“build”,这样Mysql的ODBC数据源就设置成功了。

二。导库的VB程序

   这个工程要使用一些对象库,在数据库访问方面,决定使用ADO(ActiveX Data Objects),对于使用过ASP的人,这个名字应该非常熟悉了,实际上,它在VB中的应用也是几乎一样的,由于要操作Excel,还要引用一个扩展的对象库。点菜单中的“工程”---“引用”,选择“Microsoft ActiveX Data Objects 2.6 Library”和“Microsoft Excel 9.0 Object Library”,在引用列表中,可引用对象库的版本或许有所不同,选择类似的最新版本就可以了。要使用对话框和进度条,还要引用一些部件,点菜单中的“工程”--“部件”,选择“Microsoft Common Dialog Control 6.0(SP3)”和“Microsoft Windows Common Controls 6.0(SP3)”。

界面如图一所示



图中各数字表示的控件分别是:

1-3:3个均为TextBox控件,名字分别为mdbfilename,mdbpassword,xlsfilename,mdbfilename用来指示导入Access文件的路径和文件名,mdbpassword用来输入Access文件的密码,xlsfilename用来指示导入Excel文件的路径和文件名;

4:名称为select_mdbfile,CommandButton控件,用来选择要导入的Access文件;

5:名称为importMDB,CommandButton控件,选择好文件后,用该按钮导入MDB文件

6:名称为CommonDialog1,CommonDialog控件

7:名称为select_xlsfile,CommandButton控件,用来选择要导入的Excel文件;

8:名称为importXLS,CommandButton控件,选择好文件后,用该按钮导入XLS文件;

9:名称为CommonDialog2,CommonDialog控件

10:名称为prgBar1,进度条(ProgressBar),当要导入很多记录时,使用进度条可以指示当前的导入进度

11:名称为StatusBar1,状态条(StatusBar),指示导入的进展状态,包括“正在导入”,“导入完成”等。

要将Style设置为“1-sbrSimple”


在程序的头部作以下声明

Option Explicit

Dim Cn As New ADODB.Connection

Dim Cnmysql As New ADODB.Connection

Dim Rs As New ADODB.Recordset

Dim Rsmysql As New ADODB.Recordset


Function replace_str(srcstr As String)

srcstr = Replace(srcstr, "\", "\\")

replace_str = Replace(srcstr, "'", "\'")

End Function



双击form,在装载form时输入以下的代码

Private Sub Form_Load()

'将进度条设置为不可见

prgBar1.Visible = False

'连接mysql数据库,pwd为数据库的密码,uid为用户名,dsn为数据源的名称

Cnmysql.ConnectionString = "uid=root;pwd=;dsn=build"

Cnmysql.Open

End Sub

[返回]

编程语言 web开发 数据库 网络技术 操作系统 服务器 网页设计 图形设计 办公软件 常用软件 学电脑

Copyright© www.bianceng.cn Powered by 编程入门网 All Rights Reserved.
关于本站 | 版权声明 | 联系我们 | 友情链接 |
编程入门网 版权所有