紧急求救：在VBA中如何连接Oracle数据库？用ODBC方法实现？

shadowxy

请教各位高手：
      在VBA中如何连接Oracle数据库？用ODBC方法实现？

efan2000

使用ADO连接不是更方便？

2. 
   
3. Sub test()
   
4.     ' 连接Oracle数据库
   
5.     Dim cn As ADODB.Connection
   
6.     Set cn = New ADODB.Connection
   
7.     cn.Open "Provider=MSDAORA.1;Data Source=数据源;User ID=用户名;Password=密码;Persist Security Info=True"
   
8. 
   
9.     ' 通过表或者查询创建数据集
   
10.     Dim rs As ADODB.Recordset
    
11.     Set rs = New ADODB.Recordset
    
12.     rs.Open "表名", cn, adOpenKeyset, adLockOptimistic
    
13.     MsgBox rs.RecordCount
    
14.     rs.Close
    
15.     rs.Open "Select 字段 From 表名 Where 条件", cn, adOpenKeyset, adLockOptimistic
    
16.     MsgBox rs.RecordCount
    
17. 
    
18.     ' 关闭数据集和数据连接
    
19.     rs.Close
    
20.     Set rs = Nothing
    
21.     cn.Close
    
22.     Set cn = Nothing
    
23. End Sub
    

<br /> Sub test()<br />     ' 连接Oracle数据库<br />     Dim cn As ADODB.Connection<br />     Set cn = New ADODB.Connection<br />     cn.Open "Provider=MSDAORA.1;Data Source=数据源;User ID=用户名;Password=密码;Persist Security Info=True"<br /> <br />     ' 通过表或者查询创建数据集<br />     Dim rs As ADODB.Recordset<br />     Set rs = New ADODB.Recordset<br />     rs.Open "表名", cn, adOpenKeyset, adLockOptimistic<br />     MsgBox rs.RecordCount<br />     rs.Close<br />     rs.Open "Select 字段 From 表名 Where 条件", cn, adOpenKeyset, adLockOptimistic<br />     MsgBox rs.RecordCount<br /> <br />     ' 关闭数据集和数据连接<br />     rs.Close<br />     Set rs = Nothing<br />     cn.Close<br />     Set cn = Nothing<br /> End Sub<br />

leeyeafu

首先要在“控制面板”中配置ODBC数据源，在配置过程中指定数据源类型为Oracle。
在VBA中使用ODBC，仍然可以用ADO方式，不过连接字符串可以这样写：
cn.Open "dsn=数据源名称; Data Source = 数据库名;"
Uid和pwd等信息在配置ODBC数据源时指定。