Excel VBA可以很方便地連接MySQL數據庫,我們可以通過以下步驟實現:
'聲明變量 Dim conn As Object Dim rs As Object Dim sql As String '連接數據庫 Set conn = CreateObject("ADODB.Connection") conn.ConnectionString = "DRIVER={MySQL ODBC 5.3 ANSI Driver};SERVER=localhost;DATABASE=database_name;PORT=3306;UID=username;PWD=password;" conn.Open '執行SQL語句 sql = "SELECT * FROM table_name WHERE ..." Set rs = CreateObject("ADODB.Recordset") rs.Open sql, conn '處理數據 Do While Not rs.EOF '... rs.MoveNext Loop '關閉連接 rs.Close Set rs = Nothing conn.Close Set conn = Nothing
在上面的代碼中,我們首先聲明了變量conn和rs用于連接數據庫和處理數據。接下來使用CreateObject("ADODB.Connection")創建一個conn對象并設置連接字符串。在連接字符串中,我們需要設置MySQL的服務器地址、數據庫名稱、端口號、用戶名和密碼。然后通過conn.Open打開連接。
在連接成功之后,我們可以使用CreateObject("ADODB.Recordset")創建rs對象,并使用rs.Open方法執行SQL語句。
最后,我們需要使用rs.Close和conn.Close關閉連接,以免造成資源浪費。
通過以上步驟,我們就可以在VBA中連接MySQL數據庫,并進行數據操作了。