EXCEL VBA改用MYSQL當成資料庫存放大量資料

48 views
Skip to first unread message

吳老師

unread,
Aug 22, 2016, 12:09:34 AM8/22/16
to Execl與Access

EXCEL VBA改用MYSQL當成資料庫存放大量資料


完整連結：

https://terry55wu.blogspot.tw/2016/08/excel-vbamysql.html


一般會和EXCEL VBA連接的大多都是用到ACCESS或MS SQL資料庫，

但ACCESS資料庫與MS SQL資料庫都不是自由軟體，所以會有授權費用，

另外ACCESS資料庫基本上是單機型的資料庫，對於多台電腦連線就會有問題，

雖然可以透過網芳共用來解決，但還是非常的麻煩的，

所以改用MYSQL資料庫，似乎就可以解決前兩者資料庫的問題，

首先它是自由軟體，再者它也可以讓大家在同個網路區段裡連線。

以下介紹如何安裝與EXCEL VBA連線。


預覽畫面：



可以先參考：

PHP與雲端資料庫教學懶人包(2015)

https://terry55wu.blogspot.tw/p/blog-page_18.html


PHP雲端資料庫教學之1(打造PHP與MySQL環境)

https://terry55wu.blogspot.tw/2015/03/php1phpmysql.html


這是PHP雲端資料庫第一次上課，主要是了解學生的程度和學習需求，
並且打造PHP與MySQL環境並下載XAMPP安裝的懶人包 [下載]


解壓縮到D碟與執行setup_xampp.bat與xampp-control.exe


啟動Apache 與 MySQL (注意要允許防火牆)


1.如何設定XAMPP與MQSQL的安全性



2.如何新增MQSQL資料庫與資料表

建立資料庫

3.建立資料表

4.增加欄位(姓名,身高,體重,性別,標準體重)


INSERT INTO 問題1 (姓名,身高,體重,性別,標準體重) values ('楊XX',170,72,'男',69.94)

補充：

查詢資料：select * from 問題1 where 性別='女'

修改資料：Update 問題1 set 身高='170' where 姓名='李XX'

刪除資料：DELETE FROM 問題1 where 姓名='李XX'


如何在EXCEL表單中新增一筆資料到MYSQL資料庫中：


1.完成畫面：

新增單筆、新增全部、刪除EXCEL資料、從MYSQL資料庫全部匯入、刪除所有MYSQL資料


Sub 新增單筆()

   r = Range("B2").End(xlDown).Row

   A = Cells(r, 2)

   B = Cells(r, 3)

   C = Cells(r, 4)

   D = Cells(r, 5)

   E = Cells(r, 6)

   Call 利用ADO新增資料(A, B, C, D, E)

   MsgBox "資料新增成功!!", vbInformation

End Sub

Sub 新增全部()

   For i = 3 To Range("B2").End(xlDown).Row

       A = Cells(i, "B")

       B = Cells(i, 3)

       C = Cells(i, 4)

       D = Cells(i, 5)

       E = Cells(i, 6)

       Call 利用ADO新增資料(A, B, C, D, E)

   Next

   MsgBox "資料新增全部成功!!", vbInformation

End Sub

Sub 利用ADO新增資料(A, B, C, D, E)

   '1.建立Connection物件

   Set myCon = CreateObject("ADODB.Connection")

   '2.連結資料庫

   myCon.Open "Driver={MySQL ODBC 5.2 UNICODE Driver};Server=127.0.0.1;Database=問題1;User=root;Password=1234;Option=3;"

   '3.建立Recordset物件&連結資料表

   Sql = "INSERT INTO 問題1 (姓名,身高,體重,性別,標準體重) VALUES ('" & _

   A & "'," & B & ", " & C & ", '" & D & "', " & E & ")"

   'MsgBox (Sql)

   Set myRs = myCon.Execute(Sql)

End Sub

Public Sub 刪除EXCEL資料()

   Range("B3:F" & Range("B2").End(xlDown).Row).ClearContents

End Sub

Sub 從MYSQL資料庫全部匯入()

   '1.建立Connection物件

   Set myCon = CreateObject("ADODB.Connection")

   '2.連結資料庫

   'myCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\問題1.accdb;"

   myCon.Open "Driver={MySQL ODBC 5.2 UNICODE Driver};Server=127.0.0.1;Database=問題1;User=root;Password=1234;Option=3;"

   '3.建立Recordset物件&連結資料表

   Sql = "Select * from 問題1"

   'MsgBox (Sql)

   Set myRs = myCon.Execute(Sql)

   Range("B3").CopyFromRecordset myRs

End Sub

Sub 刪除所有MYSQL資料()

   '1.建立Connection物件

   Set myCon = CreateObject("ADODB.Connection")

   '2.連結資料庫

   'myCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\問題1.accdb;"

   myCon.Open "Driver={MySQL ODBC 5.2 UNICODE Driver};Server=127.0.0.1;Database=問題1;User=root;Password=1234;Option=3;"

   '3.建立Recordset物件&連結資料表

   Sql = "Delete from 問題1"

   'MsgBox (Sql)

   Set myRs = myCon.Execute(Sql)

End Sub


最後如何遠端連線MYSQL的設定

1.新增使用者

2.設定權限(任意主機)

3.修改連線主機的IP或名稱


教學影音(完整版在論壇)：


教學影音完整版在論壇：

https://groups.google.com/forum/#!forum/scu_excel_vba2_86


課程特色：

1.如何將函數轉成VBA2.VBA與資料庫快速結合


EXCEL函數、 VBA程式設計與資料庫是分別屬於三個領域的知識，

但卻是目前大家都需要的一項專業技能，要把三者融合的很好實在非常不容易，

剛好我有近20年的VB程式設計與資料庫設計的經驗，

教EXCEL函數與相關課程也有多年，因此清楚如何把最重要的知識教給大家，

ADO資料庫設計的知識非常多，但根據我多年的設計實務經驗，

覺得最重要的是掌握SQL語言，就可以輕易的完成查詢、新增、修改與刪除等功能，

就可以輕易的完成自己想處理的大量資料，大大提高工作效率了!


上課用書是：

Excel函數&VBA其實很簡單(http://www.books.com.tw/exep/prod/booksfile.php?item=0010457292)

Excel VBA 與資料庫整合大活用(http://www.books.com.tw/exep/prod/booksfile.php?item=0010463634)


完整教學影音DVD申請:http://goo.gl/ZlBZE

論壇：http://groups.google.com/group/labor_excel_vba?hl=zh-TW


其他相關學習：


1.EXCEL VBA設計(自強基金會2012)第4次上課

http://terry55wu.blogspot.tw/2012/03/excel-vba20124.html


2.如何把EXCEL"函數"變為 "VBA"？自強基金會2012第5次上課

http://terry55wu.blogspot.tw/2012/04/excel-vba.html


3.自強基金會2012第8次上課

http://terry55wu.blogspot.tw/2012/05/excel-vba20128.html


4.自強基金會2012第9次上課

http://terry55wu.blogspot.tw/2012/05/excel-vba20129.html


5.EXCEL_VBA與資料庫--自強基金會2012(Ending)

http://terry55wu.blogspot.tw/2012/07/excelvba-2012ending.html


EXCEL,VBA,函數東吳進修推廣部,EXCEL VBA 函數 程式設計 線上教學 excel vba 教學 excel vba指令教學 vba範例教學excel  excel vba教學視頻 excel函數教學 excel函數 MYSQL

Reply all
Reply to author
Forward
0 new messages