如何將Access和Excel導(dǎo)入到Mysql中之三

   二導(dǎo)庫的VB程序

　　這個工程要使用一些對象庫在數(shù)據(jù)庫訪問方面決定使用ADO（ActiveX Data Objects）對于使用過ASP的人這個名字應(yīng)該非常熟悉了實際上它在VB中的應(yīng)用也是幾乎一樣的由于要操作Excel還要引用一個擴展的對象庫點菜單中的工程引用選擇Microsoft ActiveX Data Objects  Library和Microsoft Excel  Object Library在引用列表中可引用對象庫的版本或許有所不同選擇類似的最新版本就可以了要使用對話框和進度條還要引用一些部件點菜單中的工程部件選擇Microsoft Common Dialog Control （SP）和Microsoft Windows Common Controls （SP） 

界面如圖一所示

圖中各數(shù)字表示的控件分別是 

個均為TextBox控件名字分別為mdbfilenamemdbpasswordxlsfilenamemdbfilename用來指示導(dǎo)入Access文件的路徑和文件名mdbpassword用來輸入Access文件的密碼xlsfilename用來指示導(dǎo)入Excel文件的路徑和文件名 

名稱為select_mdbfileCommandButton控件用來選擇要導(dǎo)入的Access文件 

名稱為importMDBCommandButton控件選擇好文件后用該按鈕導(dǎo)入MDB文件 

:名稱為CommonDialogCommonDialog控件 

:名稱為select_xlsfileCommandButton控件用來選擇要導(dǎo)入的Excel文件 

:名稱為importXLSCommandButton控件選擇好文件后用該按鈕導(dǎo)入XLS文件 

:名稱為CommonDialogCommonDialog控件 

:名稱為prgBar進度條（ProgressBar）當(dāng)要導(dǎo)入很多記錄時使用進度條可以指示當(dāng)前的導(dǎo)入進度 

:名稱為StatusBar狀態(tài)條（StatusBar）指示導(dǎo)入的進展?fàn)顟B(tài)包括正在導(dǎo)入導(dǎo)入完成等 

要將Style設(shè)置為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() 

&#;將進度條設(shè)置為不可見 

prgBarVisible = False 

&#;連接mysql數(shù)據(jù)庫pwd為數(shù)據(jù)庫的密碼uid為用戶名dsn為數(shù)據(jù)源的名稱 

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

CnmysqlOpen 

End Sub 

     

生活不易，碼農(nóng)辛苦
如果您覺得本網(wǎng)站對您的學(xué)習(xí)有所幫助,可以手機掃描二維碼進行捐贈