如何通过Excel查询MySQL数据库

如何通过Excel查询MySQL数据库

1、打开Excel
2、在Excel中打开VBA编辑器：方法一：Alt+F11 方法二：开发工具->代码->Visual Basic

※如果没有开发工具请：文件->选项->自定义功能区 在右边的窗口中将开发工具前的方框□打钩√
3、双击ThisWorkbook打开编辑页面，并添加必要引用

需要添加的引用包括：Microsoft ActiveX Dat Objects Recordset 6.0 Library以及Microsoft ActiveX Dat Objects 6.1 Library

4、编写函数【俗称写代码】
直接扔出代码如下：
Public Sub MySQL_Test()
Dim Con As ADODB.Connection
Dim Rec As ADODB.Recordset
Dim iRowscount As Long
Set Con = New ADODB.Connection
Con.ConnectionString = “Driver={MySQL ODBC 5.3 ANSI Driver};” + _
“Server=你的MySQL服务器地址;” + _
“DB=需要连接的数据库名;” + _
“UID=登录数据库的账号;” + _
“PWD=登录数据库的密码;” + _
“OPTION=3;” + _
“Stmt=Set Names ‘GBK’;”
Con.Open
Set Rec = New Recordset
Set Rec = Con.Execute(“想要执行的SQL语句”, iRowscount, adCmdText)
Range(“a1”).CopyFromRecordset Rec ‘在Excel中打印出查询结果
Rec.Close: Set Rec = Nothing
Con.Close: Set Con = Nothing
End Sub
※更为详细的代码和范例请参考附件给出的文档；
5、调试与运行
直接按F5就可以运行了， 或者点击上方的运行按钮【但不运行貌似是F8】

代码没有问题的话就会出现你想要的结果，下面是示范例子：

6、方便快捷的运行方式
当代码写好之后不用每次进入VBA编辑器运行代码，只需要在工作sheet上创建一个和这个代码相关联的按钮就好了，具体过程：开发工具->(控件)插入->表单控件.按钮（就是插入里面的第一个） 之后在工作sheet中随便左键点击会出现如下对话框

接下来会在工作区域出现一个按钮，是可以拖动他的，拖动到你想要的位置后鼠标点击空白区域，确定编辑（想要再次编辑可以在按钮上右键 或者 点击窗口的‘设计模式’），再次点击按钮就可以执行代码中的内容了；
7、好了，接下来就保存好你的文档吧，记得需要保存为 启用宏的工作簿（*.xlsm）

我们需要打开电脑上的navicatfor mysql快捷键。这样就可以查看数据库了。 2然后，我们点击root打开之后，单击core_db，在展开的选项中可以看到表。 3我们点击“表”后可以看到数据库中的所有表，我们右击表弹出的选项中有一个“导出向导” 4我们点击导出向导就会弹出导出的页面，第一个页面提示我们要使用哪一种导出格式。因为我们是导出到excel表中，所以选择导出的格式为.xls，然后单击“下一步” 5第二个小步骤中，我们需要勾选需要导出的表，并设置导出文件所在位置，然后点击下一步 6我们可以选择需要导出的表中的哪些数据，默认的是全部栏位。选好之后，单击下一步。 7点击下一步之后，我们再次点击下一步，然后点击弹出的窗口的右下角的“开始”按钮，就开始导出了。 8导出之后，会继续提示我们已经导出成功，然后我们只需要点击关闭按钮，在相应的位置寻找excel表格即可。打开之后就会看到之前在数据库中存储的数据。