Excel VBA连接ORACLE数据库

'装好oracle客户端，不需引用直接粘贴下列格式运行
Sub connect()
Dim strconnt As String
Set connt = New ADODB.Connection
Dim rs As Object
Set rs = New ADODB.Recordset
Dim sevip, Db, user, pwd As String
'设服务器地址、所连数据，及登录用户密码
sevip = "IP地址"
Db = "数据库名"
user = "用户名"
pwd = "密码"
strconnt = "DRIVER={Microsoft ODBC for Oracle};Password=apps;User ID=apps;Data Source=demo" '
connt.ConnectionString = strconnt
connt.Open
End Sub

'=========================

Sub linkOracle()

Dim strConn As String '连接字符串

Dim dbConn As Object '连接对象
Dim resSet As Object '查询结果集

Dim db_sid, db_user, db_pass As String 'sid,用户名,密码

'设置自己的链接数据
db_sid = "数据库名"
db_user = "用户名"
db_pass = "密码"

'创建对象
Set dbConn = CreateObject("ADODB.Connection")
Set resSet = CreateObject("ADODB.Recordset")
'拼接链接字符串下面两个选一个
strConn = "Provider=OraOLEDB.Oracle.1; user id=" & db_user & "; password=" & db_pass & "; data source = " & db_sid & "; Persist Security Info=True"
strConn = "Provider=MSDAORA.1; user id=" & db_user & "; password=" & db_pass & "; data source = " & db_sid & "; Persist Security Info=True"

'-----打开数据库----
dbConn.Open strConn

'执行查询
Set resSet = dbConn.Execute("select * from 表名")

'打印表头
For j = 0 To resSet.Fields.COUNT - 1
Cells(1, j + 1) = resSet.Fields(j).Name
Next

'粘贴结果
Range("A2").CopyFromRecordset resSet

'-----关闭连接----
dbConn.Close '关闭数据库

End Sub

Excel VBA连接ORACLE数据库相关推荐

VBA 连接Oracle 数据库
Sub?linkOracle()?? ?? ????Dim?strConn?As?String??'连接字符串?? ?????? ????Dim?dbConn?As?Object??'连接对象?? ? ...
oracle vba 数组_Excel VBA 连接各种数据库（二） VBA连接Oracle数据库
(2019.08.02更新)本文内容在Windows10 企业版64bit下测试通过本文主要内容: Oracle环境配置 ODBC驱动设置.第三方驱动下载 VBA连接Oracle连接方法 Oracl ...
Excel VBA 链接 Oracle数据库
标题前言准备第一步远程数据库的准备第二步本地免安装客户端下载 1.下载基本包 1.1 包下载地址 1.2 网盘下载地址 2.配置oracle 网络文件 2.1tnsnames.ora 文件 ...
vba mysql 3706_EXCEL中VBA连接oracle数据库字符串“运行出现3706错误”
我在EXCEL中VBA连接oracle串如下 Conn.ConnectionString = "provider=oraoledb.oracle.1;password=******;user ...
quicksearch连接oracle,dos命令下连接oracle数据库表
Oracle表空间文件损坏后的排查及解决版权声明:本文为博主原创文章,未经博主允许不得转载.https://blog.csdn.net/zergskj/article/details/6303417 ...
ExcelToOracle：批量导入Excel文件到Oracle数据库的自动化工具
ExcelToOracle:批量导入Excel文件到Oracle数据库的自动化工具简介 ExcelToOracle 是一个可以批量导入excel到数据库(mysql/oracle/sqlserver ...
64位系统office Excel 2007导入oracle数据库出错问题解决
关于64位系统安装office Excel 2007导入oracle数据库出错问题解决问题描述:在Excel导入数据库的操作过程中,由于公司人员一直使用的是XP和32位的系统,oracle数据库对X ...
连接oracle的驱动包,连接oracle数据库驱动包
JDBC与JAVA数据库编程一.JDBC的概念 1. JDBC (Java DataBase Connectivity) Java数据库连接 a) 主要提供java数据库应用程序的API支持 2. ...
mysql外部表不是预期格式_批量Excel数据导入Oracle数据库导入excel错误：外部表不是预期的格式解决方案...
在asp.net网站中导出Excel文件后,再把文件导入到数据库中. 读取Excel文件时,打开连接出错. 错误为:外部表不是预期的格式解决:检查了一下,导出的Excel是标准文件不是html,没错 ...

Excel VBA连接ORACLE数据库

Excel VBA连接ORACLE数据库相关推荐

最新文章

热门文章