快速业务通道

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

作者 佚名技术 来源 NET编程 浏览 发布时间 2012-03-17
二。导库的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 

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号