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

2024-07-24 12:55:12

字体：大中小

来源：转载

供稿：网友

商业源码热门下载www.html.org.cn

二。导库的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

上一篇：MySQL以速度为目标

下一篇：如何将Access和Excel导入到Mysql中之二

学习交流

硬盘分区如何设置准确的分区空间

硬盘分区如何设置准确的分区空间...

热门图片

猜你喜欢的新闻

猜你喜欢的关注