oracle数据库存大文本,Oracle大文本在ASP中存取问题的解决

一、关于ADO

在基于Client/Server结构的数据库环境中,通过OLE DB接口可以存取数据,但它定义的是低层COM接口,不仅不易使用,而且不能被VB,VBA,VBScript等高级编程工具访问。而使用ADO则可以很容易地使VB等编程语言直接访问数据(通过OLE DB接口)。ADO是基于面向对象方法的,ADO对象模型总共才包括六个对象,相对于数据访问对象(DAO)来说简单得多。因此实际中常常使用它来访问数据库。

二、ADO访问数据库实例

下面,我们以Oracle为例,使用VB6.0来访问其数据库中的存储过程。在此例中,我们首先在Oracle数据库上创建有两个存储过程,一个不带参数,另一个带有参数。然后,使用ADO来访问这两个存储过程。步骤如下:

1. 在Oracle服务器上运行以下DDL脚本:

drop TABLE person;

create TABLE person

(ssn NUMBER(9) PRIMARY KEY,

fname VARchar2(15),

lname VARchar2(20));

insert INTO person VALUES(555662222,’Sam’,’Goodwin’);

insert INTO person VALUES(555882222,’Kent’,’Clark’);

insert INTO person VALUES(666223333,’Jane’,’Doe’);

COMMIT;

/

2. 在Oracle服务器上创建包(package):

create OR REPLACE PACKAGE packperson

AS

TYPE tssn is TABLE of NUMBER(10)

INDEX BY BINARY_INTEGER;

TYPE tfname is TABLE of VARchar2(15)

INDEX BY BINARY_INTEGER;

TYPE tlname is TABLE of VARchar2(20)

INDEX BY BINARY_INTEGER;

PROCEDURE allperson

(ssn OUT tssn,

fname OUT tfname,

lname OUT tlname);

PROCEDURE oneperson

(onessn IN NUMBER,

ssn OUT tssn,

fname OUT tfname,

lname OUT tlname);

END packperson;

/

3. 在Oracle服务器上创建以下包体(package body):

create OR REPLACE PACKAGE BODY packperson

AS

PROCEDURE allperson

(ssn OUT tssn,

fname OUT tfname,

lname OUT tlname)

IS

CURSOR person_cur IS

select ssn, fname, lname

FROM person;

percount NUMBER DEFAULT 1;

BEGIN

FOR singleperson IN person_cur

LOOP

ssn(percount) := singleperson.ssn;

fname(percount) := singleperson.fname;

lname(percount) := singleperson.lname;

percount := percount + 1;

END LOOP;

END;

PROCEDURE oneperson

(onessn IN NUMBER,

ssn OUT tssn,

fname OUT tfname,

lname OUT tlname)

IS

CURSOR person_cur IS

select ssn, fname, lname

FROM person

where ssn = onessn;

percount NUMBER DEFAULT 1;

BEGIN

FOR singleperson IN person_cur

LOOP

ssn(percount) := singleperson.ssn;

fname(percount) := singleperson.fname;

lname(percount) := singleperson.lname;

percount := percount + 1;

END LOOP;

END;

END;

/

4. 在 VB 6.0 中打开一个新的工程,缺省创建表单 Form1。

5. 在表单上添加二个按钮,cmdGetEveryone和cmdGetOne。

6. 在代码窗口中添加以下代码:

Option Explicit

Dim Cn As ADODB.Connection

Dim CPw1 As ADODB.Command

Dim CPw2 As ADODB.Command

Dim Rs As ADODB.Recordset

Dim Conn As String

Dim QSQL As String

Dim inputssn As Long

Private Sub cmdGetEveryone_Click()

Set Rs.Source = CPw1

Rs.Open

While Not Rs.EOF

MsgBox “Person data: ” & Rs(0) & “,

” & Rs(1) & “, ” & Rs(2)

Rs.MoveNext

Wend

Rs.Close

End Sub

Private Sub cmdGetOne_Click()

Set Rs.Source = CPw2

inputssn = InputBox(

“Enter the SSN you wish to retrieve:”)

CPw2(0) = inputssn

Rs.Open

MsgBox “Person data: ” & Rs(0) & ”

, ” & Rs(1) & “, ” & Rs(2)

Rs.Close

End Sub

Private Sub Form_Load()

’使用合适的值代替以下用户ID,

口令(PWD)和服务器名称(SERVER)

Conn = “UID=*****;PWD=*****;driver=” _

& “{Microsoft ODBC for

Oracle};SERVER=dseOracle;”

Set Cn = New ADODB.Connection

’创建Connection对象

With Cn

.ConnectionString = Conn

.CursorLocation = adUseClient

.Open

End With

QSQL = “{call packperson.allperson(

{resultset 9,ssn,fname,”_

& “lname})}”

Set CPw1 = New ADODB.Command

’创建Command对象

With CPw1

Set .ActiveConnection = Cn

.CommandText = QSQL

.CommandType = adCmdText

End With

QSQL =”{call packperson.oneperson(?,

{resultset 2,ssn, “_

& ” fname,lname})}”

’调用存储过程

Set CPw2 = New ADODB.Command

With CPw2

Set .ActiveConnection = Cn

.CommandText = QSQL

.CommandType = adCmdText

.Parameters.Append.createParameter(

,adInteger, _

adParamInput)

’添加存储过程参数

End With

Set Rs = New ADODB.Recordset

With Rs

.CursorType = adOpenStatic

.LockType = adLockReadOnly

End With

End Sub

Private Sub Form_Unload(Cancel As Integer)

Cn.Close

Set Cn = Nothing

Set CPw1 = Nothing

Set CPw2 = Nothing

Set Rs = Nothing

End Sub

7. 运行程序。当点下cmdGetEveryone按钮时,程序调用Oracle数据库中不带参数的存储过程packperson.allperson,点下cmdGetOne按钮时调用packperson.oneperson存储过程。

我们一直都在努力坚持原创.......请不要一声不吭,就悄悄拿走。

我原创,你原创,我们的内容世界才会更加精彩!

【所有原创内容版权均属TechTarget,欢迎大家转发分享。但未经授权,严禁任何媒体(平面媒体、网络媒体、自媒体等)以及微信公众号复制、转载、摘编或以其他方式进行使用。】

微信公众号

TechTarget

官方微博

TechTarget中国

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/359733.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

java桌面版_长大了Java! 提出Java桌面版

java桌面版不,这不是另一个“ Java已死”的咆哮。 Java非常活跃。 它是可用的最佳开发和运行时平台之一。 迄今为止,最稳定的平台。 那可能只是它最大的祸根。 荒谬! 稳定性如何? 你可能会问。 好吧,您可以看到创新所带…

[原创]2014年上半年测试书籍推荐

[原创]2014年上半年测试书籍推荐 周末,打扫完屋子,趁着有空,也整理下自己在2014年上半年翻看的测试相关的书! 1 书名: 《google软件测试之道》 图书地址:http://item.jd.com/11330792.html 推荐星级&#x…

PHP文件加到WordPress页面,WordPress-所有页面链接到index.php文件

[WORDPRESS上的新功能]我正在使用自己的CSS等创建自己的wordpress主题。我设法在index.php文件中获得了所有不错的东西, 而且我现在也尝试制作其他页面。当我制作home.php, blog.php, about.php和contact.php文件(在我的主题文件夹中)时, 它们没有链接到该文件。我遵循Lynda.co…

Android实现简单短信发送器

布局&#xff1a; <RelativeLayout xmlns:android"http://schemas.android.com/apk/res/android"xmlns:tools"http://schemas.android.com/tools"android:id"id/container"android:layout_width"match_parent"android:layout_heigh…

linux 查看文件哈希码,使用linux的sha1sum命令查看效验文件哈希值命令

服务器今天小编给大家分享的是使用linux的sha1sum命令查看效验文件哈希值命令&#xff0c;相信很多人都不太了解&#xff0c;为了让大家更加了解&#xff0c;所以给大家总结了以下内容&#xff0c;一起往下看吧。一定会有所收获的哦。sha1sum命令用于生成和校验文件的sha1值。它…

Java中的传值与传引用

曾经对java中传值还是传引用的问题十分困惑&#xff0c;而且也被问到过许多次&#xff0c;无论是面试&#xff0c;还是平时我们平时的讨论中。 在stackoverflow上面浏览时&#xff0c;无意中发现了跟这个问题有关的论题&#xff0c;于是深入地查看了&#xff0c;感觉获益匪浅&a…

java高性能序列化_Java最佳实践–高性能序列化

java高性能序列化在使用Java编程语言时&#xff0c;我们将继续讨论与建议的实践有关的系列文章&#xff0c;我们将讨论并演示如何将对象序列化用于高性能应用程序。 所有讨论的主题均基于用例&#xff0c;这些用例源于电信行业关键任务超高性能生产系统的开发。 在阅读本文的…

linux进程属主6,20150917 Linux进程查看与管理以及作业管理

第一、基础知识MBR引导--内核--内核程序--》协调其它程序一般内核运行在硬件之上&#xff0c;各应用也在硬件之前1)OS的基本功能&#xff1a;文件系统、网络功能、进程管理、内存管理、驱动程序、安全功能以上为通用目的设置的程序。&#xff0c;程序指令数据&#xff0c;程序运…

在javaweb中通过servlet类和普通类读取资源文件

javaweb有两种方式读取资源文件 在Servlet中读取&#xff0c;可以使用servletContext&#xff0c;servletContext可以拿到web所有的资源文件&#xff0c;然后随便读&#xff0c;但是这种方法不常用&#xff0c;尽量少在Servlet中读取资源文件 在普通Java类中&#xff08;DAO中&…

linux运行python脚本语句,如何在Linux下运行Python脚本

1、使用python的IDEL运行python如果你的Linux安装了python,CtrlAltT打开Terminal后输入指令&#xff1a;python,会出现>>>,这个时候就可以在里面输入python脚本开始运行了使用exit()退出python环境该环境下与MATLAB很像(1)查看python版本&#xff1a;python idle下面输…

数学图形(1.43)贝壳形曲线与鱼形曲线

贝壳形曲线 #http://curvebank.calstatela.edu/naturalcurves/slide7.jpgvertices 12000t from 0 to (2*PI)r 10*(0.7 2.6*cos(t) 1.3*pow(sin(90*t), 3))x r*sin(t) y r*cos(t) 鱼形曲线 #http://www.2dcurves.com/quartic/quarticfi.html vertices 1000 t from 0 to…

linux下编译ios,为iOS安装OpenCV

一&#xff0c;要求CMake 2.8.8 或者更高Xcode 4.2 或者更新二&#xff0c;从Git库取得最新的 OpenCV使用 git 客户端从 http://github.com/itseez/opencv clone Open 库。在 max os x 下&#xff0c;可以通过以下命令行完成cd ~/git clone https://github.com/Itseez/opencv…

学习使用资源文件[11] - DLL 中的资源文件

本例将把一张 bmp 图片, 以资源文件的方式嵌入 dll, 然后再调用.第一步: 建一个 DLL 工程, 如图:然后保存, 我这里使用的名称都是默认的.第二步: 建一个资源原文件, 如图:编辑内容如下(路径中的文件一定要存在):img1 BITMAP "c:\temp\test.bmp"然后, 取个名(后缀须是…

linux 自动安装 yum,LINUX6安装YUM仓库和实现开机自动挂载

# LINUX6安装YUM仓库和实现开机自动挂载---------------------------------安装环境-------------------------------Redhat6镜像文件&#xff1a;链接&#xff1a;https://pan.baidu.com/s/1DKH6adbrsipM-cTzH-wBgA 百度网盘 密码是hxcbVmware Workstation虚拟机工具&#x…

.NET Framework 4.0源代码

原文出处&#xff1a;http://blogs.microsoft.co.il/blogs/arik/archive/2010/07/12/step-into-net-framework-4-0-source-code.aspx 本文将向你展示如何配置Visual Studio 2010逐语句执行.NET Framework 4.0源代码。 为啥? 因为很酷。 因为能帮助调试。 你不仅能看到源代码…

高tps、低延迟_如何在不到1ms的延迟内完成100K TPS

高tps、低延迟马丁汤普森&#xff08;Martin Thompson&#xff09;和迈克尔巴克&#xff08;Michael Barker&#xff09;讨论了如何通过采用一种新的基础架构和软件方法来构建一种以不到1ms的延迟处理100K TPS的HPC金融系统。 一些技巧包括&#xff1a; 了解平台 建模领域 明…

linux 保留最近目录,Linux如何删除全部目录只保留最新修改的目录

1、查看数据盘在没有分区和格式化数据盘之前&#xff0c;使用 “df –h”命令&#xff0c;是无法看到数据盘的&#xff0c;可以使用“fdisk -l”命令查看。友情提示&#xff1a;若您执行fdisk -l命令&#xff0c;发现没有 /dev/sdb 表明您的云服务无数据盘&#xff0c;那么您无…

jqGrid Events

事件定义示例&#xff1a; var lastSel; jQuery("#gridid").jqGrid({ ... onSelectRow: function(id){ if(id && id!lastSel){ jQuery(#gridid).restoreRow(lastSel); lastSelid; } j…

linux cpu负载巡检,linux服务器巡检报告.doc

Linux服务器巡检设备Power Edge硬件配置信息机型号Power Edge R710CPU4颗 Intel? Xeon? CPU E5520 2.27GHz内存16G硬盘600G系统信息操作系统LINUX 2.6.18IP主机名(一)操作系统检查检查项检查操作参考标准巡检情况操作系统版本检查执行命令uname –a系统账户检查利用root身份…

数据结构课程设计题目十二_计算机学院学生会的打印机(优先队列)

本文出自:http://blog.csdn.net/svitter 题目12&#xff1a;计算机学院学生会的打印机&#xff08;优先队列&#xff09; 小明抱怨学生会的打印机不符合FIFO的原则&#xff0c;看到很多在他后面来打印的同学比他先打印出来。五分钟前&#xff0c;小明的文件就是下一个候选的&am…