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

2024-07-24 12:55:12

字體：大中小

供稿：網(wǎng)友

商業(yè)源碼熱門下載www.html.org.cn

二。導(dǎo)庫的vb程序

　　這個工程要使用一些對象庫，在數(shù)據(jù)庫訪問方面，決定使用ado（activex data objects），對于使用過asp的人，這個名字應(yīng)該非常熟悉了，實際上，它在vb中的應(yīng)用也是幾乎一樣的，由于要操作excel，還要引用一個擴展的對象庫。點菜單中的“工程”---“引用”，選擇“microsoft activex data objects 2.6 library”和“microsoft excel 9.0 object library”，在引用列表中，可引用對象庫的版本或許有所不同，選擇類似的最新版本就可以了。要使用對話框和進度條，還要引用一些部件，點菜單中的“工程”--“部件”，選擇“microsoft common dialog control 6.0（sp3）”和“microsoft windows common controls 6.0（sp3）”。

界面如圖一所示

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

1-3：3個均為textbox控件，名字分別為mdbfilename，mdbpassword，xlsfilename，mdbfilename用來指示導(dǎo)入access文件的路徑和文件名，mdbpassword用來輸入access文件的密碼，xlsfilename用來指示導(dǎo)入excel文件的路徑和文件名；

4：名稱為select_mdbfile，commandbutton控件，用來選擇要導(dǎo)入的access文件；

5：名稱為importmdb，commandbutton控件，選擇好文件后，用該按鈕導(dǎo)入mdb文件

6:名稱為commondialog1，commondialog控件

7:名稱為select_xlsfile，commandbutton控件，用來選擇要導(dǎo)入的excel文件；

8:名稱為importxls，commandbutton控件，選擇好文件后，用該按鈕導(dǎo)入xls文件；

9:名稱為commondialog2，commondialog控件

10:名稱為prgbar1，進度條（progressbar），當要導(dǎo)入很多記錄時，使用進度條可以指示當前的導(dǎo)入進度

11:名稱為statusbar1，狀態(tài)條（statusbar），指示導(dǎo)入的進展狀態(tài)，包括“正在導(dǎo)入”，“導(dǎo)入完成”等。

要將style設(shè)置為“1-sbrsimple”

在程序的頭部作以下聲明

option explicit

dim cn as new adodb.connection

dim cnmysql as new adodb.connection

dim rs as new adodb.recordset

dim rsmysql as new adodb.recordset

function replace_str(srcstr as string)

srcstr = replace(srcstr, "/", "http://")

replace_str = replace(srcstr, "'", "/'")

end function

雙擊form，在裝載form時輸入以下的代碼

private sub form_load()

'將進度條設(shè)置為不可見

prgbar1.visible = false

'連接mysql數(shù)據(jù)庫,pwd為數(shù)據(jù)庫的密碼，uid為用戶名，dsn為數(shù)據(jù)源的名稱

cnmysql.connectionstring = "uid=root;pwd=;dsn=build"

cnmysql.open

end sub

上一篇：MySQL以速度為目標

下一篇：如何將Access和Excel導(dǎo)入到Mysql中之二