快捷导航

我的收藏

搜索
登陆 注册
距米网 › 技术协作 › 软件学习 › VBA 连接 MySQL 数据库程序
返回列表 发布

[办公] VBA 连接 MySQL 数据库程序

JUMU实名认证 发表于 2025-04-12 21:36 来自手机 | 显示全部楼层 | 复制链接分享      上一主题  翻页  下一主题
以下是用VBA连接MySQL数据库的示例代码：

  1. Sub ConnectToMySQL()
  2.     Dim conn As Object
  3.     Dim rs As Object
  4.     Set conn = CreateObject("ADODB.Connection")
  5.     Set rs = CreateObject("ADODB.Recordset")
  6.    
  7.     '连接字符串
  8.     Dim connStr As String
  9.     connStr = "DRIVER={MySQL ODBC 8.0 ANSI Driver};" & _
  10.               "SERVER=localhost;" & _
  11.               "DATABASE=your_database;" & _
  12.               "UID=your_username;" & _
  13.               "PWD=your_password;" & _
  14.               "OPTION=3"
  15.    
  16.     '打开连接
  17.     conn.Open connStr
  18.    
  19.     '执行SQL查询
  20.     rs.Open "SELECT * FROM your_table", conn
  21.    
  22.     '输出结果
  23.     Do Until rs.EOF
  24.         Debug.Print rs.Fields(0), rs.Fields(1)
  25.         rs.MoveNext
  26.     Loop
  27.    
  28.     '关闭对象
  29.     rs.Close
  30.     conn.Close
  31.     Set rs = Nothing
  32.     Set conn = Nothing
  33. End Sub
复制代码

使用前要确保已安装MySQL ODBC驱动，把`your_database`、`your_username`、`your_password`、`your_table`替换成实际信息。
Excel

相关主题

举报

返回列表
JUMU实名认证

关注0

粉丝14

图纸3424

推荐素材更多+

0

切书机（切纸机）三维模型设计

  距米网  

找到您想要的设计

工程师、学生在线交流学习平台
关注我们

手机版- 距米网 |苏公网安备32041102000587号

©2017-2025 苏ICP备18040927号-1