Gecko [ nrupathungauniversityblr.ac.in ]

Name	Size	Permission
benchmark.php	2.11 KB	-rwxr-xr-x
client.php	4.06 KB	-rwxr-xr-x
pdo.php	1.69 KB	-rwxr-xr-x
test-active-record.php	4.6 KB	-rwxr-xr-x
test-active-recs2.php	1.41 KB	-rwxr-xr-x
test-active-relations.php	2.97 KB	-rwxr-xr-x
test-active-relationsx.php	24.45 KB	-rwxr-xr-x
test-datadict.php	7.53 KB	-rwxr-xr-x
test-perf.php	897 B	-rwxr-xr-x
test-pgblob.php	1.99 KB	-rwxr-xr-x
test-php5.php	2.57 KB	-rwxr-xr-x
test-xmlschema.php	1.27 KB	-rwxr-xr-x
test.php	54.96 KB	-rwxr-xr-x
test2.php	566 B	-rwxr-xr-x
test3.php	993 B	-rwxr-xr-x
test4.php	4.64 KB	-rwxr-xr-x
test5.php	1.43 KB	-rwxr-xr-x
test_rs_array.php	677 B	-rwxr-xr-x
testcache.php	887 B	-rwxr-xr-x
testdatabases.inc.php	18.59 KB	-rwxr-xr-x
testgenid.php	723 B	-rwxr-xr-x
testmssql.php	2.06 KB	-rwxr-xr-x
testoci8.php	2.39 KB	-rwxr-xr-x
testoci8cursor.php	2.96 KB	-rwxr-xr-x
testpaging.php	2.33 KB	-rwxr-xr-x
testpear.php	954 B	-rwxr-xr-x
testsessions.php	2.54 KB	-rwxr-xr-x
time.php	513 B	-rwxr-xr-x
tmssql.php	1.83 KB	-rwxr-xr-x
xmlschema-mssql.xml	832 B	-rwxr-xr-x
xmlschema.xml	961 B	-rwxr-xr-x

Code Editor : testoci8cursor.php

<?php
/*
@version v5.20.18 28-Jun-2020
@copyright (c) 2000-2013 John Lim (jlim#natsoft.com). All rights reserved.
@copyright (c) 2014 Damien Regad, Mark Newnham and the ADOdb community
 Released under both BSD license and Lesser GPL library license.
 Whenever there is any discrepancy between the two licenses,
 the BSD license will take precedence.
 Set tabs to 4 for best viewing.

Latest version is available at http://adodb.org/
*/

/*
	Test for Oracle Variable Cursors, which are treated as ADOdb recordsets.

We have 2 examples. The first shows us using the Parameter statement.
	The second shows us using the new ExecuteCursor($sql, $cursorName)
	function.

------------------------------------------------------------------
-- TEST PACKAGE YOU NEED TO INSTALL ON ORACLE - run from sql*plus
------------------------------------------------------------------

-- TEST PACKAGE
CREATE OR REPLACE PACKAGE adodb AS
TYPE TabType IS REF CURSOR RETURN tab%ROWTYPE;
PROCEDURE open_tab (tabcursor IN OUT TabType,tablenames in varchar);
PROCEDURE data_out(input IN varchar, output OUT varchar);

procedure myproc (p1 in number, p2 out number);
END adodb;
/

CREATE OR REPLACE PACKAGE BODY adodb AS
PROCEDURE open_tab (tabcursor IN OUT TabType,tablenames in varchar) IS
	BEGIN
		OPEN tabcursor FOR SELECT * FROM tab where tname like tablenames;
	END open_tab;

PROCEDURE data_out(input IN varchar, output OUT varchar) IS
	BEGIN
		output := 'Cinta Hati '||input;
	END;

procedure myproc (p1 in number, p2 out number) as
begin
p2 := p1;
end;
END adodb;
/

------------------------------------------------------------------
-- END PACKAGE
------------------------------------------------------------------

include('../adodb.inc.php');
include('../tohtml.inc.php');

error_reporting(E_ALL);
	$db = ADONewConnection('oci8');
	$db->PConnect('','scott','natsoft');
	$db->debug = 99;

/*
*/

define('MYNUM',5);

$rs = $db->ExecuteCursor("BEGIN adodb.open_tab(:RS,'A%'); END;");

if ($rs && !$rs->EOF) {
		print "Test 1 RowCount: ".$rs->RecordCount()."";
	} else {
		print "Error in using Cursor Variables 1";
	}

print "<h4>Testing Stored Procedures for oci8</h4>";

$stid = $db->PrepareSP('BEGIN adodb.myproc('.MYNUM.', :myov); END;');
	$db->OutParameter($stid, $myov, 'myov');
	$db->Execute($stid);
	if ($myov != MYNUM) print "Error with myproc";

$stmt = $db->PrepareSP("BEGIN adodb.data_out(:a1, :a2); END;",true);
	$a1 = 'Malaysia';
	//$a2 = ''; # a2 doesn't even need to be defined!
	$db->InParameter($stmt,$a1,'a1');
	$db->OutParameter($stmt,$a2,'a2');
	$rs = $db->Execute($stmt);
	if ($rs) {
		if ($a2 !== 'Cinta Hati Malaysia') print "Stored Procedure Error: a2 = $a2";
		else echo "OK: a2=$a2";
	} else {
		print "Error in using Stored Procedure IN/Out Variables";
	}

$tname = 'A%';

$stmt = $db->PrepareSP('select * from tab where tname like :tablename');
	$db->Parameter($stmt,$tname,'tablename');
	$rs = $db->Execute($stmt);
	rs2html($rs);

${this.title}

Code Editor : testoci8cursor.php