vba连接数据库 - VB / VBA

jamb 2011-03-28

展开全文

由于公司要求我写开发中需要的小工具，用vba写，对excel进行相关操作。需要连接mysql，请各位同僚告诉我vba连接mysql的步骤和相关代码。

okexcel
(VBA QQ群69449647)
等　级：

#1楼得分：0回复于：2010-05-19 21:31:54

可以在网上查到。自己查查吧！

关键字是：VBA MySQL

精华推荐：【你共享我给分】版内活动：挖掘VB潜能，征集变态应用

liguicd
(阿贵www.86LG.com)
等　级：

#2楼得分：0回复于：2010-05-20 00:35:53

跟vb连接数据库基本米有区别

精华推荐：讨论：浅谈winsock ConnectionRequest事件

chinaboyzyq
(猴哥)
等　级：
3

4

#3楼得分：0回复于：2010-05-20 02:12:49

1、到mysql网站，下载ODBC驱动，安装！
2、到控制面板|管理工具|我的数据源里面配置ODBC数据源！
3、在VB里面用ado引用2中设置的数据源！

精华推荐：【塞北雪貂】我这十年之回忆录

ChoasRules
(不会编程的会计，不是好会计)
等　级：

#4楼得分：0回复于：2010-05-20 09:43:08

ADO连接数据库

精华推荐：VB变态应用活动：我最近写的FlashBit。

zhun_716
(zhun_716)
等　级：

#5楼得分：0回复于：2010-05-20 15:43:10

Dim conn As ADODB.Connection '定义ADO连接对象
Dim rs As ADODB.Recordset '定义ADO记录集对象

Function GetConnection(servername As String, dbname As String, username As String, userpwd As String)

Dim connstr As String
Set conn = CreateObject("ADODB.Connection") '创建ADO连接对象
'Set rs = CreateObject("ADODB.Recordset")

conn.CommandTimeout = 15 '设置超时时间

'connstr = "DRIVER={MySql ODBC 5.1 Driver};SERVER=" & servername & ";Database=" & dbname & ";Uid=" & username & ";Pwd=" & userpwd & ";Stmt=set names GBK"
connstr = "DRIVER={MySql ODBC 5.1 Driver};SERVER=127.0.0.1;Database=test;Uid=root;Pwd=123456;Stmt=set names utf-8"
conn.ConnectionString = connstr
conn.Open

'Dim strsql As String
'strsql = "select count(*) from tbl_user"
'Set rs = conn.Execute(strsql)
'Dim num As String
'num = rs.Fields.Item(0).Value
'MsgBox num
End Function