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

2024-09-07 19:05:03

字體：大中小

供稿：網(wǎng)友

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

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

界面如圖一所示

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

1-3：3個(gè)均為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，進(jìn)度條（ProgressBar），當(dāng)要導(dǎo)入很多記錄時(shí)，使用進(jìn)度條可以指示當(dāng)前的導(dǎo)入進(jìn)度

11:名稱為StatusBar1，狀態(tài)條（StatusBar），指示導(dǎo)入的進(jìn)展?fàn)顟B(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時(shí)輸入以下的代碼

Private Sub Form_Load()

'將進(jìn)度條設(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

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

下一篇：通過Access從Web獲取MySQL數(shù)據(jù)

學(xué)習(xí)交流

如何查找有故障的配件

如何查找有故障的配件...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注