如何将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 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: MySQL中文模糊检索问题的解决方法下一篇: 从MySQL导入导出大量数据的程序实现方法
关于如何将Access和Excel导入到Mysql中之三的所有评论
