以下是通过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”被勾选上。 建立连接过程,代码如下: <div class="codetitle"><a style="CURSOR: pointer" data="71322" class="copybut" id="copybut71322" onclick="doCopy('code71322')"> 代码如下:<div class="codebody" id="code71322"> 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!","Connect fail!" End Function 可以根据需要调整SQL语句,获取相关数据,并输出到Excel完成数据处理 上述代码在Windows XP SP3/2003 SP2 + Office2003下测试通过. (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|