如何將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 

     

生活不易，碼農辛苦
如果您覺得本網站對您的學習有所幫助,可以手機掃描二維碼進行捐贈