|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
能够以较低的成本向客户提供IT所有权,当节约成本成为客户最高优先级时,解决方案提供商可以向更多的客户同时提供服务。虽然有许多来自RDBMS固有的局限性。二。导库的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
珍贵的资金可以用于其他业务的启动,诸如市场、广告或调研和开发等。 |
|