繁體中文当前位置: 首页 > 图文教程 > 数据库 > Oracle > Excel VBA连接并操作Oracle
- Oracle
- Oracle Tuning技巧总结
- 如何选择Oracle优化器
- 如何使用Logmnr方法分析数据库日志
- 保持Oracle数据优良性能的若干诀窍
- Oracle 10g R2ORA-3136 错误解决
- Oracle中行迁移和行链接的清除及检测
- 不要忽视Oracle 10g STATSPACK
- ORACLE性能调整--统计信息的迁移
- 用Oracle TimesTen加速Oracle数据库
- 在Oracle 10g中如何获得索引建议
- Oracle中的SQL语句性能调整原则
- Oracle Spatial新驱动的添加记录实例
- 在Linux系统下如何优化Oracle具体步骤
- Oracle数据库删除两表中相同数据的方法
- Oracle 容灾复制解决方案分析Shar Plex
- oltp系统，数据块大小用4k还是8k好？
- 数据库中如何使用SQL查询连续号码段
- 在数据字典中直接修改表列的名称和顺序
- 讲解Oracle里抽取随机数的多种方法
- 使用一条SQL语句删除表中重复记录
Excel VBA连接并操作Oracle
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 55 ::
收藏到网摘: n/a
Excel通过ADO方式连接到Oracle并操作Oracle给我们这些编程能力不强的人带来很大的福音，结合着Excel的数据处理与图表制作，就能很轻松地处理一些常规工作。 以下是通过Excel 的VBA连接Oracle并操作Oracle相关数据的示例
Excel 通过VBA连接数据库需要安装相应的Oracle客户端工具并引用ADO的相关组件，引用ADO相关组件可按如下步骤操作：
1、打开VBA编辑器，在菜单中点选“工具”，“引用”；
2、确保“Microsoft ActiviteX Data Objects 2.8 Library”和“Microsoft ActiviteX Data ObjectS Recordset 2.8 Library”被勾选上。
建立连接过程，代码如下：
复制代码 代码如下:
Public Sub ConOra()
On Error GoTo ErrMsg:
Dim ConnDB As ADODB.Connection
Set ConnDB = New ADODB.Connection
Dim ConnStr As String
Dim DBRst As ADODB.Recordset
Set DBRst = New ADODB.Recordset
Dim SQLRst As String
Dim OraOpen As Boolean
OraOpen = False
OraID="Orcl" 'Oracle数据库的相关配置
OraUsr="user"
OraPwd="password"
ConnStr = "Provider = MSDAORA.1;Password=" & OraPwd & _
";User ID=" & OraUsr & _
";Data Source=" & OraID & _
";Persist Security Info=True"
ConnDB.CursorLocation = adUseServer
ConnDB.Open ConnStr
OraOpen = True '成功执行后，数据库即被打开
'MsgBox "Connect to the oracle database Successful!", vbInformation, "Connect Successful"
DBRst.ActiveConnection = ConnDB
DBRst.CursorLocation = adUseServer
DBRst.LockType = adLockBatchOptimistic
SQLRst = "Select * From TstTab"
DBRst.Open SQLRst, ConnDB, adOpenStatic, adLockBatchOptimistic
DBRst.MoveFirst
Exit Function
ErrMsg:
OraOpen = False
MsgBox "Connect to the oracle database fail ,please check!", vbCritical, "Connect fail!"
End Function
Public Sub ConOra()
On Error GoTo ErrMsg:
Dim ConnDB As ADODB.Connection
Set ConnDB = New ADODB.Connection
Dim ConnStr As String
Dim DBRst As ADODB.Recordset
Set DBRst = New ADODB.Recordset
Dim SQLRst As String
Dim OraOpen As Boolean
OraOpen = False
OraID="Orcl" 'Oracle数据库的相关配置
OraUsr="user"
OraPwd="password"
ConnStr = "Provider = MSDAORA.1;Password=" & OraPwd & _
";User ID=" & OraUsr & _
";Data Source=" & OraID & _
";Persist Security Info=True"
ConnDB.CursorLocation = adUseServer
ConnDB.Open ConnStr
OraOpen = True '成功执行后，数据库即被打开
'MsgBox "Connect to the oracle database Successful!", vbInformation, "Connect Successful"
DBRst.ActiveConnection = ConnDB
DBRst.CursorLocation = adUseServer
DBRst.LockType = adLockBatchOptimistic
SQLRst = "Select * From TstTab"
DBRst.Open SQLRst, ConnDB, adOpenStatic, adLockBatchOptimistic
DBRst.MoveFirst
Exit Function
ErrMsg:
OraOpen = False
MsgBox "Connect to the oracle database fail ,please check!", vbCritical, "Connect fail!"
End Function
可以根据需要调整SQL语句，获取相关数据，并输出到Excel完成数据处理
上述代码在Windows XP SP3/2003 SP2 + Office2003下测试通过.
评论 (0) All
