Access 是微軟所開(kāi)發(fā)的關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)，它可以與多個(gè)數(shù)據(jù)庫(kù)協(xié)同工作，其中包括 MySQL。

在 Access 中，可以使用 VBA 代碼來(lái)自動(dòng)抓取 MySQL 數(shù)據(jù)庫(kù)中的數(shù)據(jù)。以下是一段示例代碼：

Public Sub FetchDataFromMySQL()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Driver={MySQL ODBC 8.0 UNICODE Driver};Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;"
conn.Open
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM myTable", conn, adOpenStatic, adLockOptimistic
'將數(shù)據(jù)展示在 Access 中
Do While Not rs.EOF
CurrentDb.TableDefs("myAccessTable").Fields("ID").Value = rs.Fields("id")
CurrentDb.TableDefs("myAccessTable").Fields("Name").Value = rs.Fields("name")
CurrentDb.TableDefs("myAccessTable").Fields("Age").Value = rs.Fields("age")
CurrentDb.TableDefs("myAccessTable").Fields("Gender").Value = rs.Fields("gender")
CurrentDb.TableDefs("myAccessTable").Update
rs.MoveNext
Loop
rs.Close
conn.Close
End Sub

上述代碼中，使用了 ADODB.Connection 和 ADODB.Recordset 這兩個(gè)對(duì)象，分別用來(lái)連接 MySQL 數(shù)據(jù)庫(kù)和查詢(xún)數(shù)據(jù)。在連接字符串中，需要填寫(xiě) MySQL 服務(wù)器地址、數(shù)據(jù)庫(kù)名稱(chēng)、用戶名和密碼。

查詢(xún)結(jié)果會(huì)被存儲(chǔ)在 Recordset 中，通過(guò)循環(huán)遍歷記錄集并將其寫(xiě)入 Access 數(shù)據(jù)表中來(lái)展示。

通過(guò)以上方法，在 Access 中自動(dòng)抓取 MySQL 數(shù)據(jù)庫(kù)的數(shù)據(jù)變得更加容易。