Excel是一款常用的電子表格軟件。它能夠幫助人們快速地處理各種數據,并對數據進行計算、統計和分析等操作。而MySQL則是一個常用的關系型數據庫管理系統。它可以存儲大量的數據,并提供強大的查詢和分析功能。當我們需要將Excel中的數據保存到MySQL中,或者需要從MySQL中將數據導出到Excel中時,就需要使用Excel調用MySQL。
通過VBScript可以將Excel和MySQL連接起來,方便地進行數據的保存和讀取。首先,我們需要在Excel中添加VBScript代碼編輯器。具體的操作方法是:在Excel的“開發工具”菜單中,點擊“Visual Basic”按鈕,然后在新打開的窗口中,選擇“插入-模塊”,即可添加VBScript代碼編輯器。
Sub MySQLDemo() Dim cn As ADODB.Connection Set cn = New ADODB.Connection cn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=test;USER=root;PASSWORD=123456;OPTION=3;" Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.Open "SELECT * FROM student", cn Sheets.Add Range("A1").CopyFromRecordset rs rs.Close cn.Close End Sub
上面的代碼演示了如何從MySQL數據庫中讀取數據,并將數據顯示在Excel中。其中,第一行代碼是定義了一個名為“MySQLDemo”的子程序;第二行代碼是對ADODB.Connection對象進行初始化;第三行代碼是打開MySQL數據庫的連接;第五行代碼是定義了一個名為“rs”的Recordset對象,并且執行了一條SQL查詢語句;第七行代碼是添加了一個新的工作表,然后將查詢結果顯示在了工作表中;最后兩行代碼是關閉了Recordset和Connection對象的連接。
除了從MySQL中讀取數據,我們還可以使用VBScript將Excel中的數據保存到MySQL中。具體的代碼如下:
Sub MySQLDemo() Dim cn As ADODB.Connection Set cn = New ADODB.Connection cn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=test;USER=root;PASSWORD=123456;OPTION=3;" Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.Open "SELECT * FROM student", cn Dim i As Integer For i = 2 To 10 Dim sql As String sql = "INSERT INTO student(name, age, gender) VALUES(" & Cells(i, 1) & "," & Cells(i, 2) & "," & Cells(i, 3) & ")" cn.Execute sql Next rs.Close cn.Close End Sub
上面的代碼演示了如何將Excel中的數據保存到MySQL數據庫中。具體的操作是:從第二行開始循環遍歷Excel表格,然后將各個單元格中的數據通過SQL語句插入到MySQL表格中。最后,關閉Connection和Recordset對象的連接即可。