紧急求救：在VBA中如何连接Oracle数据库？用ODBC方法实现？
请教各位高手：在VBA中如何连接Oracle数据库？用ODBC方法实现？ 使用ADO连接不是更方便？
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数据源时指定。
页:
[1]