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

   二导库的VB程序

　　这个工程要使用一些对象库在数据库访问方面决定使用ADO（ActiveX Data Objects）对于使用过ASP的人这个名字应该非常熟悉了实际上它在VB中的应用也是几乎一样的由于要操作Excel还要引用一个扩展的对象库点菜单中的工程引用选择Microsoft ActiveX Data Objects  Library和Microsoft Excel  Object Library在引用列表中可引用对象库的版本或许有所不同选择类似的最新版本就可以了要使用对话框和进度条还要引用一些部件点菜单中的工程部件选择Microsoft Common Dialog Control （SP）和Microsoft Windows Common Controls （SP） 

界面如图一所示

图中各数字表示的控件分别是 

个均为TextBox控件名字分别为mdbfilenamemdbpasswordxlsfilenamemdbfilename用来指示导入Access文件的路径和文件名mdbpassword用来输入Access文件的密码xlsfilename用来指示导入Excel文件的路径和文件名 

名称为select_mdbfileCommandButton控件用来选择要导入的Access文件 

名称为importMDBCommandButton控件选择好文件后用该按钮导入MDB文件 

:名称为CommonDialogCommonDialog控件 

:名称为select_xlsfileCommandButton控件用来选择要导入的Excel文件 

:名称为importXLSCommandButton控件选择好文件后用该按钮导入XLS文件 

:名称为CommonDialogCommonDialog控件 

:名称为prgBar进度条（ProgressBar）当要导入很多记录时使用进度条可以指示当前的导入进度 

:名称为StatusBar状态条（StatusBar）指示导入的进展状态包括正在导入导入完成等 

要将Style设置为sbrSimple 


在程序的头部作以下声明 

Option Explicit 

Dim Cn As New ADODBConnection 

Dim Cnmysql As New ADODBConnection 

Dim Rs As New ADODBRecordset 

Dim Rsmysql As New ADODBRecordset 


Function replace_str(srcstr As String) 

srcstr = Replace(srcstr "" "") 

replace_str = Replace(srcstr "&#;" "&#;") 

End Function 



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

Private Sub Form_Load() 

&#;将进度条设置为不可见 

prgBarVisible = False 

&#;连接mysql数据库pwd为数据库的密码uid为用户名dsn为数据源的名称 

CnmysqlConnectionString = "uid=root;pwd=;dsn=build" 

CnmysqlOpen 

End Sub 

     

生活不易，码农辛苦
如果您觉得本网站对您的学习有所帮助,可以手机扫描二维码进行捐赠