最新活动:电脑PC端+手机端+微网站+自适应网页多模板选择-建站388元起价!!!
当前位置:主页 > 网站建设 > Excel VBA连接并操作Oracle建站知识

Excel VBA连接并操作Oracle建站知识

时间:2023-05-22 19:05:22 阅读: 文章分类: 网站建设 作者: 网站技术员

导读:1建站知识Excel通过ADO方式连接到Oracle并操作Oracle给我们这些编程能力不强的人带来很大的福音,结合着Excel的数据处理与图表制网站建设制作seo网站排名优化软件。

网站建设制作seo网站排名优化软件以下是通过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=seo网站排名优化软件" & OraPwd & _ ";User;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;Data Source=" & OraID & _ ";Persist Security Info=True" ConnDB.CursorLocation = adUseServer ConnDB.Open ConnStr OraOpen = True '成功执行后,数据库即被打开 'MsgBox "Connect to the oracle database Successful!", vbInfseo网站优化软件ormation, "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下测试通过.相关网站建设制作seo网站排名优化软件。

关键词标签: 操作 标签

声明: 本文由我的SEOUC技术文章主页发布于:2023-05-22 ,文章Excel VBA连接并操作Oracle建站知识主要讲述标签,操作,Excel VBA连接并操作Oracle建站知识网站建设源码以及服务器配置搭建相关技术文章。转载请保留链接: https://www.seouc.com/article/web_5115.html

我的IDC 网站建设技术SEOUC.COM
专注网站建设,SEO优化,小程序设计制作搭建开发定制网站等,数千家网站定制开发案例,网站推广技术服务。
  • 5000+合作客服
  • 8年从业经验
  • 150+覆盖行业
  • 最新热门源码技术文章