• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    Excel VBA连接并操作Oracle
    以下是通过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下测试通过.
    您可能感兴趣的文章:
    • VBA中操作Excel常用方法总结
    • excel vba 高亮显示当前行代码
    • excel vba 限制工作表的滚动区域代码
    • 合并Excel工作薄中成绩表的VBA代码,非常适合教育一线的朋友
    • 用vba实现将记录集输出到Excel模板
    • Python + selenium + requests实现12306全自动抢票及验证码破解加自动点击功能
    • python requests包的request()函数中的参数-params和data的区别介绍
    • python:解析requests返回的response(json格式)说明
    • 基于python requests selenium爬取excel vba过程解析
    上一篇:Oracle DBA常用语句第1/2页
    下一篇:Oracle 外连接实现代码
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    Excel VBA连接并操作Oracle Excel,VBA,连接,并,操作,Oracle,