|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
曾经的功能列表可能会迅速变得过时了。而且,有些功能对有的应用程序非常重要,但是对别的应用程序则不一定。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部门和采购部门的介入,提供更快和更容易的方法来实现小型解决方案。 |
|