使用Excel中的VBA连接并操作Oracle

来源：互联网发布：linux 时钟同步方法编辑：程序博客网时间：2024/04/30 05:48

　　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

可以根据需要调整SQL语句，获取相关数据，并输出到Excel完成数据处理

上述代码在Windows XP SP3/2003 SP2 + Office2003下测试通过.