【转帖】紧急求救：在vba中如何连接oracle数据库？用odbc方法实现？
 

紧急求救：在vba中如何连接oracle数据库？用odbc方法实现？
www.dimcax.com
紧急求救：在vba中如何连接oracle数据库？用odbc方法实现？
请教各位高手：
在vba中如何连接oracle数据库？用odbc方法实现？
使用ado连接不是更方便？
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
sub test()
' 连接oracle数据库
dim cn as adodb.connection
set cn = new adodb.connection
cn.open "provider=msdaora.1;data source=数据源;user id=用户名;password=密码;persist security info=true"
' 通过表或者查询创建数据集
dim rs as adodb.recordset
set rs = new adodb.recordset
rs.open "表名", cn, adopenkeyset, adlockoptimistic
msgbox rs.recordcount
rs.close
rs.open "select 字段 from 表名 where 条件", cn, adopenkeyset, adlockoptimistic
msgbox rs.recordcount
' 关闭数据集和数据连接
rs.close
set rs = nothing
cn.close
set cn = nothing
end sub
odbc连接远程数据库
首先要在“控制面板”中配置odbc数据源，在配置过程中指定数据源类型为oracle。
在vba中使用odbc，仍然可以用ado方式，不过连接字符串可以这样写：
cn.open "dsn=数据源名称; data source = 数据库名;"
uid和pwd等信息在配置odbc数据源时指定。