VietNetwork.Vn

Trong bài viết này, bạn sẽ tìm hiểu cách kết nối cơ sở dữ liệu MySQL trong VBA Excel.

Làm theo hướng dẫn từng bước về cách kết nối MySQL với VBA Excel, trong đó chúng tôi sẽ chỉ cho bạn từng bước kết nối VBA và cách thực hiện các truy vấn trong Excel từ MySQL hoặc thực hiện đưa, thay đổi hoặc xóa dữ liệu trong cơ sở dữ liệu của dữ liệu.

1. Cài đặt trình điều khiển MySQL

Bước đầu tiên là cài đặt trình điều khiển MySQL trên máy tính sẽ sử dụng Excel với cơ sở dữ liệu.

Để thực hiện việc này, hãy tải xuống từ liên kết này:   Đăng nhập để xem liên kết


Trên trang, chọn tùy chọn 32 hoặc 64 bit tùy thuộc vào kiểu Excel của bạn.

Sau khi tải xuống, hãy thực hiện cài đặt cho đến khi kết thúc.

2. Tạo cơ sở dữ liệu MySQL để sử dụng trong VBA Excel

Để tạo cơ sở dữ liệu, bạn có thể đăng nhập thông qua CPanel của hosting và truy cập trực tiếp vào phần Cơ sở dữ liệu.


Nhấp vào Cơ sở dữ liệu MySQL và xác định trong trường Cơ sở dữ liệu mới và nhập tên bạn muốn cho cơ sở dữ liệu, chẳng hạn như myBank.

Trong trường hợp cpanel, nó sẽ giống như meusite_meuBanco, với tiền tố là tên của máy chủ lưu trữ cơ sở dữ liệu.



Bây giờ hãy quay lại màn hình chính CPanel và chọn tùy chọn phpMyAdmin, sau đó chọn cơ sở dữ liệu và tạo các bảng cho cơ sở dữ liệu.

Cấu trúc sẽ trông giống như bên dưới. Trong đó chúng ta có một bảng được tạo có tên là Sản phẩm với các trường:

• SKU
• Description
• Weight
• Width

Sau khi tất cả các bảng đã tạo trở lại, chúng ta cần cấp quyền cho Excel hoặc các ứng dụng khác truy cập cơ sở dữ liệu.

Vì vậy, trước tiên hãy nhấp vào Cơ sở dữ liệu MySQL và chọn cơ sở dữ liệu, sau đó thêm người dùng và nhấp vào Tạo người dùng.

Trên màn hình tiếp theo, chọn các đặc quyền bạn muốn cho phép người dùng trong cơ sở dữ liệu đó.

Sau đó chọn các đặc quyền bạn muốn cấp cho người dùng trong cơ sở dữ liệu.


3. Cấp quyền truy cập MySQL từ xa để kết nối trong VBA Excel

Bây giờ hãy nhấp vào menu trong CPanel trên tùy chọn MySQL từ xa và trong loại máy chủ %.


Sau đó nhấp vào Thêm máy chủ để cấp quyền cho bất kỳ IP nào hoặc nhập địa chỉ IP bạn muốn cấp quyền truy cập vào cơ sở dữ liệu MySQL.

Máy chủ hiện được cấu hình để nhận hướng dẫn MySQL từ các ứng dụng khác, bao gồm cả Excel VBA.

4. Kết nối MySQL trong VBA Excel

Bây giờ chúng ta đã cấu hình sẵn sàng, chúng ta chỉ cần mở Excel và có thể sử dụng nó.

Mở Excel và nhấn ALT+F11 hoặc nhấp vào tab Nhà phát triển và nút Visual Basic.

Bây giờ chúng ta cần thêm tham chiếu vào thư viện VBA có tên Thư viện Microsoft ActiveX Data Objects 6.1.


Bây giờ chúng ta đã đánh dấu thư viện, nhấp vào Insert -> Module và chúng ta có thể thêm mã.

Sau đó thêm mã bên dưới.

<pre lang="vb">
Public Sub lsConexao()
    Dim con As ADODB.Connection
    Dim rs  As ADODB.Recordset
    Dim lsql As String
    Dim teste() As Variant
   
    Set con = New ADODB.Connection
    Set rs = New ADODB.Recordset
   
    Set con = New ADODB.Connection
    con.ConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver};" _
                              & "SERVER=SERVIDOR;" _
                              & "DATABASE=BANCO;" _
                              & "UID=USUÁRIO;" _
                              & "PASSWORD=SENHA;Option=3;"
   
    con.Open
   
    lsql = "SELECT * FROM Produtos"
   
    rs.Open lsql, con
   
    If Not rs.RecordCount > 0 Then
        mysql.Range("B8").CopyFromRecordset rs
    End If
End Sub
</pre>
Trong mã đã thêm, thay thế các trường màu đỏ bên dưới như sau:

• SERVER : Đặt địa chỉ máy chủ đầy đủ trong trường hợp địa chỉ trang.
• NGÂN HÀNG : Tên của cơ sở dữ liệu.
• USER : Tên người dùng kết nối ngân hàng.
• PASSWORD : Mật khẩu người dùng trong cơ sở dữ liệu.