VBA中操作MYSQL数据库

dcw0402 · 发表于 2009-5-11 21:41

在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
感谢老前辈分享

dcw0402 · 发表于 2009-5-15 19:55

好大的冷门

shofihsu · 发表于 2009-5-26 16:21

看看是什么样的冷门

safinx · 发表于 2009-8-5 11:31

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

zhangmi · 发表于 2009-8-31 10:42

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

yanl1981 · 发表于 2009-8-31 17:16

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

winland · 发表于 2009-8-31 20:24

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

zhao__feng · 发表于 2009-9-3 08:58

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

飞云楼主 · 发表于 2009-9-21 21:57

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

bibisin · 发表于 2009-11-15 21:14

谢谢LZ分享,学习了

		自动登录	找回密码
密码			免费注册

[分享] VBA中操作MYSQL数据库