MYSQL网站制作之怎样将Access和Excel导进到Mysql中之三...

曾经的功能列表可能会迅速变得过时了。而且，有些功能对有的应用程序非常重要，但是对别的应用程序则不一定。access|excel|mysql二。导库的VB程序

　　这个工程要利用一些工具库，在数据库会见方面，决意利用ADO（ActiveXDataObjects），关于利用过ASP的人，这个名字应当十分熟习了，实践上，它在VB中的使用也是几近一样的，因为要操纵Excel，还要援用一个扩大的工具库。点菜单中的“工程”---“援用”，选择“MicrosoftActiveXDataObjects2.6Library”和“MicrosoftExcel9.0ObjectLibrary”，在援用列表中，可援用工具库的版本也许有所分歧，选择相似的最新版本就能够了。要利用对话框和进度条，还要援用一些部件，点菜单中的“工程”--“部件”，选择“MicrosoftCommonDialogControl6.0（SP3）”和“MicrosoftWindowsCommonControls6.0（SP3）”。

界面如图一所示

登录/注册后可看大图

</IMG>
图中各数字暗示的控件分离是：

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”


在程序的头部作以下声明

OptionExplicit

DimCnAsNewADODB.Connection

DimCnmysqlAsNewADODB.Connection

DimRsAsNewADODB.Recordset

DimRsmysqlAsNewADODB.Recordset


Functionreplace_str(srcstrAsString)

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

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

EndFunction



双击form，在装载form时输出以下的代码

PrivateSubForm_Load()

将进度条设置为不成见

prgBar1.Visible=False

毗连mysql数据库,pwd为数据库的暗码，uid为用户名，dsn为数据源的称号

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

Cnmysql.Open

EndSub

采用DBaaS解决方案，他们也可以使用同大企业一样的技术。在大型组织中，DBaaS可以提供部门级解决MySQL学习教程，而无需IT部门和采购部门的介入，提供更快和更容易的方法来实现小型解决方案。