vbs 连接oracle 数据库,VBS访问、操作oracle数据库

Sub FetchDataCount()

Dim sheetName As String

sheetName = "test"

Dim dbServiceName As String

dbServiceName = Sheets(sheetName).Cells(1, 1)

If dbServiceName = "" Then

MsgBox "服务名不能为空"

Return: FetchDataCount

End If

Dim tableName As String

tableName = Sheets(sheetName).Cells(1, 2)

Dim sqlCommand As String

sqlCommand = Sheets(sheetName).Cells(1, 3)

Set con = CreateObject("adodb.connection")

con.connectionstring = "provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=sde;password=sde;Data Source=" & dbServiceName

con.Open

If Err <> 0 Then

MsgBox "连接数据库失败"

WScript.Quit

End If

' Dim Rs As ADODB.Recordset

Dim strSQL

Dim rs

If sqlCommand = "" And tableName = "" Then

MsgBox "既未输入查询语句，也没输入表名"

Return: FetchDataCount

End If

If sqlCommand = "" Then

strSQL = "select * from " & tableName + " where 1=1 "

Else

strSQL = sqlCommand

End If

'定义查询命令对象

Set rs = con.Execute(strSQL)

Dim flag As Boolean

flag = False

Dim index As Integer

index = 2

Dim iColIndex As Integer

'iColIndex = 1

Do Until rs.EOF

Set fld = rs.Fields

If flag = False Then

For i = 0 To fld.Count - 1 Step 1

Sheets(sheetName).Cells(index, i + 1) = rs.Fields(i).Name

Next i

flag = True

index = index + 2

End If

For m = 0 To fld.Count - 1 Step 1

Sheets(sheetName).Cells(index, m + 1) = rs.Fields(m).Value

Next m

index = index + 1

rs.movenext

Loop

con.Close

Set cmd = Nothing

Set con = Nothing

End Sub

vbs 连接oracle 数据库,VBS访问、操作oracle数据库相关推荐

mysql 命令行访问_Mysql 命令行模式访问操作mysql数据库操作
使用环境在cmd模式下输入 mysql --version (查看mysql安装的版本). 完整的命令可以通过mysql --help来获取. 本测试使用的Mysql版本是mysql5, 本测试使用 ...
mysqlclient==1.3.7对应mysql版本_Python通过MySQLdb访问操作MySQL数据库
前言 Python支持通过多种方式访问MySQL数据库.可能有些刚入门的朋友们对Python访问MySQL数据库还不是很熟悉,故计划对Python访问MySQL数据库的这几种方式分别作一介绍. 系列第 ...
android service 访问数据库,XE5 ANDROID通过webservice访问操作MSSQL数据库
XE5 ANDROID通过webservice访问操作MSSQL数据库上接XE5 ANDROID平台调用 webservice 一.服务端在ro里添加函数(在impl上添加阿东connectio ...
数据库MySQL相关操作||创建数据库、显示所有数据库、切换数据库、显示数据库下的数据库表、删除数据库
数据库MySQL相关操作||创建数据库.显示所有数据库.切换数据库.显示数据库下的数据库表.删除数据库 1,创建数据库 create databases mydb: 记得加:(分号) 2,显示所有数据 ...
oracle 伪列访问序列,Oracle数据库对象，同义词、序列、视图、索引
数据库对象简介 Oracle 数据库对象又称模式对象数据库对象是逻辑结构的集合,最基本的数据库对象是表其他数据库对象包括: 同义词是现有对象的一个别名. 简化SQL语句隐藏对象的名称和所有者提 ...
Oracle通过DBLINK访问达梦数据库
环境需求需要安装配置以下相关软件: 1.Oracle Gateways 2.ODBC数据源(gateway机器) 3.达梦数据库软件(gateway机器) 安装配置 Windows环境安装达梦数据 ...
java操作oracle数据_Java jdbc操作oracle数据库的两种方式
本文由广州疯狂软件java培训分享: 第一种应该是比较古老的方法了. Windows下采用JDBC-ODBC Bridge连接oracle数据库 1. 安装oracle客户端程序,在tnsnames. ...
c 连接oracle 通用类,c#操作oracle，有没有相仿sqlhelp之类的通用操作类(6)
当前位置:我的异常网» C# » c#操作oracle,有没有相仿sqlhelp之类的通用操作类 c#操作oracle,有没有相仿sqlhelp之类的通用操作类(6) www.myexceptions ...
java制作oracle程序,Java程序操作Oracle两种方式之简单实现
Java程序操作Oracle两种方式之简单实现 1.通过JDBC-ODBC桥连接Oracle数据库 (1)创建odbc源,在控制面板->管理工具->数据源(odbc)中添加DSN,比如取名 ...
oracle中数据文件创建,操作oracle中的数据文件
收藏于http://dev.yesky.com/296/8090796.shtml Oracle数据库中管理表空间和数据文件数据库的三大组成部分:数据文件,控制文件,Redo日志. 表空间分为系统 ...

vbs 连接oracle 数据库,VBS访问、操作oracle数据库

vbs 连接oracle 数据库,VBS访问、操作oracle数据库相关推荐

最新文章

热门文章