- 1、本文档共87页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
ExcelVBA操作MySQL
目录
ExcelVBA操作MySQL之一——准备工作
ExcelVBA操作MySQL之二——链接MySQL
ExcelVBA操作MySQL之三——有关用户名和密码的操作
ExcelVBA操作MySQL之四——创建数据库和表
ExcelVBA操作MySQL之五——添加和导入数据
ExcelVBA操作MySQL之六——查询记录
ExcelVBA操作MySQL之七——从文本文件导入数据和数据导出至文本文件
ExcelVBA操作MySQL之八——修改记录
ExcelVBA操作MySQL之九——删除记录
ExcelVBA操作MySQL之十——查询示例
ExcelVBA操作MySQL之十一——有关表的操作
ExcelVBA操作MySQL之十二——获取数据库模式AppendChunk、 GetChunk存取文本和图片二进制数据
ExcelVBA操作MySQL之十五——使用ADODB.Stream
ExcelVBA操作MySQL之一
——准备工作
前段时间学习MySQL,发现网上关于VBA+MySQL的文章不多。现在分享ExcelVBA操作MySQL的代码。欢迎各位网友指正,提供更好的解决方法。
从这系列文章可以了解到:
ExcelVBA操作数据库的方法
ADO的用法
MySQL的SQL语句的用法
MySQL的简介
不多说。
看维基/wiki/MySQL
看百度/view/24816.htm
安装MySQL和myODBC for MySQL。
MySQL和myODBC for mysql的下载地址:
/fhtml
内含MySQL-5.5.12-win32 + myODBC for MySQL+MySQL 5.0中文版官方说明/
/downloads/connector/odbc/
嫌官网下载麻烦的自己百度谷歌吧。
关于myODBC for mysql的安装,请看这里
/doc/refman/5.1/zh/connectors.html#dsn-on-windows
关于MySQL的安装,请看这里
/tech/1/2430_1.html
MySQL的安装的教程网络上到处有。实在嫌麻烦的到此网址下载MySQL和myODBC for MySQL:/fhtml
MySQL数据库图形化管理工具EMS.SQL.Manager和HeidiSQL等。个人习惯用Navicat,下载地址:/fhtml
引用ADO对象。引用方法:VBE中菜单→引用→选择Microsoft Activex Data Objects 2. Library和Microsoft ActiveX Data Object recordset 2.8 Library
好了,准备到此完毕。总结一下本人的软件环境:
WinXP with SP3
MySQL 5.5.12
MyODBC-3.51.11-2-win
Microsoft Excel 2007(兼容模式)
Microsoft ActiveX Data Object 2.8 Library和Microsoft ActiveX Data Object Recordset 2.8 Library。
++----------++----------++----------++----------++----------++----------++----------++----------++--------
ExcelVBA操作MySQL之二
——链接MySQL
毫无疑问,操作数据库的第一步是链接。链接字符串主要是给出Driver、Server、DataBase、UID、PWD和Option。
下面是简单的链接例子,此处省略了DataBase,根用户root账号的登录密码是123456。
Public Sub LinkMySQL()
Dim Con As ADODB.Connection
Set Con = New ADODB.Connection
Con.ConnectionString = Driver={MySQL ODBC 3.51 Driver}; + _
Server=localhost; + _
UID=root; + _
PWD=123456; + _
OPTION=3;
Con.Open
If Con.State = adStateOpen Then
MsgBox 链接状态: Con.State vbCrLf ADO版本: Con.
文档评论(0)