当前位置：首页 → 问答吧 → VBA中操作MYSQL数据库

VBA中操作MYSQL数据库

时间：2009-05-11

来源：互联网

在EXCEL泡了好久,终于会用了点ADO,今天就来秀一下用ADO操作MYSQL数据库,欢迎大家一起讨论

VBE中请确定引用 microsoft activeX data objects xx 库

连接及更新MYSQL数据库数据代码如下:
Sub updt()
  Dim strconnt As String
  strconnt = ""
  Set connt = New ADODB.Connection
  Dim sevip, Db, user, pwd As String
  '设服务器地址、所连数据，及登录用户密码
  sevip = "localhost" '"192.168.*.*"
  Db = "samp_db"
  user = "root"
  pwd = "6901205"
  strconnt = "DRIVER={MySql ODBC 3.51 Driver};SERVER=" & sevip & ";Database=" & Db & ";Uid=" & user & ";Pwd=" & pwd & ";Stmt=set names GBK" '
  connt.ConnectionString = strconnt
  connt.Open

  ssql = "UPDATE student SET student.name= 'kookboy' where student.name = 'kook'"
  connt.Execute ssql

MsgBox "成功更新记录！"
connt.Close
Set connt = Nothing
End Sub
按F5执行,执行前中后界面如下
[注]VBA操作MYSQL的代码在网上找了好多地方也没找到,最后还是在EH找到了,哈哈
参照http://club.excelhome.net/viewthread.php?tid=401099
感谢老前辈分享

附件

ADO前.jpg(36.58 KB)

2009-5-11 21:41

执行中.jpg(32.86 KB)

2009-5-11 21:41

ADO后.jpg(49.33 KB)

2009-5-11 21:41

作者: dcw0402 发布时间: 2009-05-11

好大的冷门

作者: dcw0402 发布时间: 2009-05-15

看看是什么样的冷门

作者: shofihsu 发布时间: 2009-05-26

支持一下的~
不错的
，没有用过MYSQL
只是用了一点mssql

作者: safinx 发布时间: 2009-08-05

为什么我用excel输入的中文，换别的查询软件看，都是乱码

作者: zhangmi 发布时间: 2009-08-31

谢谢楼主学习了~~~~~~~~~~

作者: yanl1981 发布时间: 2009-08-31

MySQL很强大。需要先安装MySQL ODBC驱动才行。

作者: winland 发布时间: 2009-08-31

没用国,试试.谢谢楼主学习了~~~~~~~~~~

作者: zhao__feng 发布时间: 2009-09-03

收下，慢慢学习，谢谢分享。

作者: 飞云楼主发布时间: 2009-09-21

谢谢分享，学习了

作者: zhuhuiling 发布时间: 2009-11-15

谢谢LZ分享,学习了

作者: bibisin 发布时间: 2009-11-15

看不懂最好能有各解釋

作者: mayiwan 发布时间: 2009-11-23

找了很久。谢谢

作者: chuhua520 发布时间: 2010-02-26

你正做用EXCEL-VBA-Mysql 做一个数据系统
以前是用ACCESS，可是共享了不安全
使用MYsql 后，使用跟楼主上成相似的代码，在修改数据时，
如果用
update rs.fields("名称")，"Xiaoming"
总是弹出
“无法为更新定位行。一些值可能已在最后一次读取后已更改。”的错误，一直没有找到好的解决办法
但是如果用
cnn.exceute " update table_name set ………… where …………" 就没问题了，这是什么？

作者: chuhua520 发布时间: 2010-03-02

试下 rs.Update "名称", "Xiaoming"
配合rs.movenext/first等也不错,简单清晰
这种用法我以前也没用过,呵呵谢谢你给我提供这个学习机会

作者: dcw0402 发布时间: 2010-03-02

大家说说MYSQL和SQL SERVER 2000呗,弱弱的问下MYSQL 有像SQL SERVER 企业管理器那样的图形化的查询界面没?

作者: dcw0402 发布时间: 2010-03-23

楼主厉害，，，，学习！！！

作者: woailaopo578 发布时间: 2010-03-26

装了ODBC 驱动后还是显示用户类型未定义的错误，
我在数据源管理中已经看见mysql的驱动了
请问问题出在那个地方