VBA与mysql 数据库,oracle数据库连接

love_5000 · 发表于 2009-2-25 11:42

与oracle数据库连接：[/color]
Sub connect_数据库()
Dim strconnt As String
Set connt = New ADODB.Connection
Dim rs As Object
Set rs = New ADODB.Recordset
Dim sevip, Db, user, pwd As String
'设服务器地址、所连数据，及登录用户密码
sevip = "****"
Db = "****"
user = "****"
pwd = "****"
strconnt = "DRIVER={Microsoft ODBC for Oracle};Password=apps;User ID=apps;Data Source=demo" '
connt.ConnectionString = strconnt
connt.Open
End Sub
vba与mysql数据库的连接
Sub connect_数据库()
  Dim strconnt As String
  strconnt = ""
  Set connt = New ADODB.Connection
  Dim rs As Object
  Set rs = New ADODB.Recordset
  Dim sevip, Db, user, pwd As String
  '设服务器地址、所连数据，及登录用户密码
  sevip = "192.168.*.*"
  Db = "***"
  user = "***"
  pwd = "****"
  strconnt = "DRIVER={MySql ODBC 3.51 Driver};SERVER=" & sevip & ";Database=" & Db & ";Uid=" & user & ";Pwd=" & pwd & ";Stmt=set names GBK" '
  connt.ConnectionString = strconnt
  connt.Open
End Sub

blackttea · 发表于 2009-2-25 12:50

作个记号,用到时再学习!

hxyz25 · 发表于 2009-2-25 13:14

你好，我有一个应用软件，用的是 Oracle数据库，请问我能把它用到excel里吗？

jiulongpo · 发表于 2009-2-25 15:00

谢谢楼主,努力学习EXCEL

dcw0402 · 发表于 2009-5-11 20:09

感谢测试通过谢谢老前辈

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

谢谢,没用过这两个,试试

我心飞翔昂ing · 发表于 2009-11-28 11:35

太感谢了，谢谢前辈呀，自从来了excelhome，觉得excel没有什么问题是解决不了的。

minjiwei · 发表于 2010-1-1 11:56

用了，可以用。不知道这句是什么意思？
Stmt=set names GBK",

yf_992258 · 发表于 2010-1-7 09:20

我用的是DRIVER={MySql ODBC 5.1 Driver}
要安装mysql odbc驱动的，可以找下载mysql-connector-odbc-noinstall-5[1].1.5-win32.zip，否则不好用
Stmt=set names GBK",应该是指编码字符集为中文

wdx6111980 · 发表于 2010-1-7 11:19

提示: 作者被禁止或删除内容自动屏蔽

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

[分享] VBA与mysql 数据库,oracle数据库连接

评分

太感谢了

wdx6111980 wdx6111980 当前离线性别保密 UID 467883 阅读权限 0 注册时间 2008-4-12 在线时间小时最后登录 1970-1-1 积分 79 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2010-1-7 11:19 \| 显示全部楼层 [广告] ★ExcelHome默写助手 - 不用妈妈陪的默写神器 · Word/WPS插件 · 自定义默写单 · 自定义描红字帖★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报