当前位置: > 中国教程网>数据库>Access> 如何将Access和Excel导入到Mysql中之三

如何将Access和Excel导入到Mysql中之三

作者: 来源:中国教程网 点击: 日期:2007-04-02

二。导库的程序

　　这个工程要使用一些对象库，在数据库访问方面，决定使用ADO（ActiveX Data Objects），对于使用过ASP的人，这个名字应该非常熟悉了，实际上，它在中的应用也是几乎一样的，由于要操作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文件的路径和文件名； edu4u.com.cn

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 www.edu4u.com.cn

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

edu4u.com.cn

【文章评论】【收藏本文】【推荐好友】【打印本文】【论坛讨论】

最新文章:

·VB两种操作Access数据库方法的比较(04-02)	·将Access数据转换为XML格式(04-02)
·Access数据库及其基本操作(04-02)	·Access数据库开发技巧(二)(04-02)
·ACCESS97关于数据库安全的几个问题(04-02)	·如何将Access和Excel导入到Mysql中之(04-02)
·长期使用中型Access数据库的一点经验(04-02)	·如何将Access和Excel导入到Mysql中之(04-02)
·ACCESS数据库向MySQL快速迁移小程序((04-02)	·ACCESS数据库向MySQL快速迁移小程序((04-02)

·如何将Access和Excel导入到Mysql中之二	·ACCESS数据库向MySQL快速迁移小程序(一)
·如何将Access和Excel导入到Mysql中之一	·ACCESS数据库向MySQL快速迁移小程序(二)
·通过Access从Web获取MySQL数据	·长期使用中型Access数据库的一点经验
·将Access数据转换为XML格式	·如何把access转换到mysql
·ACCESS97关于数据库安全的几个问题	·保护Access 2000数据库的安全

文章评论:(0条)

用户名：（新注册）密码：匿名评论

评论内容：(不能超过250字，需审核后才会公布，请自觉遵守互联网相关政策法规。

§最新评论：

责任编辑:中国教程网