Gecko [ v3.cesa.co.za ]

Name	Size	Permission	Date
LibTest.php	3.37 KB	-rw-r--r--	2023-01-22 09:53
benchmark.php	2.41 KB	-rw-r--r--	2023-01-22 09:53
pdo.php	2.4 KB	-rw-r--r--	2023-01-22 09:53
test-active-record.php	5.23 KB	-rw-r--r--	2023-01-22 09:53
test-active-recs2.php	2.12 KB	-rw-r--r--	2023-01-22 09:53
test-active-relations.php	3.67 KB	-rw-r--r--	2023-01-22 09:53
test-active-relationsx.php	25.16 KB	-rw-r--r--	2023-01-22 09:53
test-datadict.php	7.84 KB	-rw-r--r--	2023-01-22 09:53
test-perf.php	1.58 KB	-rw-r--r--	2023-01-22 09:53
test-pgblob.php	2.69 KB	-rw-r--r--	2023-01-22 09:53
test-php5.php	2.91 KB	-rw-r--r--	2023-01-22 09:53
test-xmlschema.php	1.96 KB	-rw-r--r--	2023-01-22 09:53
test.php	54.87 KB	-rw-r--r--	2023-01-22 09:53
test2.php	1.26 KB	-rw-r--r--	2023-01-22 09:53
test3.php	1.3 KB	-rw-r--r--	2023-01-22 09:53
test4.php	4.84 KB	-rw-r--r--	2023-01-22 09:53
test5.php	1.7 KB	-rw-r--r--	2023-01-22 09:53
test_mssqlnative.php	5.33 KB	-rw-r--r--	2023-01-22 09:53
test_rs_array.php	1.37 KB	-rw-r--r--	2023-01-22 09:53
testcache.php	1.14 KB	-rw-r--r--	2023-01-22 09:53
testdatabases.inc.php	17.55 KB	-rw-r--r--	2023-01-22 09:53
testgenid.php	1.41 KB	-rw-r--r--	2023-01-22 09:53
testmssql.php	2.3 KB	-rw-r--r--	2023-01-22 09:53
testoci8.php	2.67 KB	-rw-r--r--	2023-01-22 09:53
testoci8cursor.php	3.21 KB	-rw-r--r--	2023-01-22 09:53
testpaging.php	2.62 KB	-rw-r--r--	2023-01-22 09:53
testpear.php	1.21 KB	-rw-r--r--	2023-01-22 09:53
testsessions.php	2.83 KB	-rw-r--r--	2023-01-22 09:53
time.php	1.21 KB	-rw-r--r--	2023-01-22 09:53
tmssql.php	2.54 KB	-rw-r--r--	2023-01-22 09:53
xmlschema-mssql.xml	832 B	-rw-r--r--	2023-01-22 09:53
xmlschema.xml	961 B	-rw-r--r--	2023-01-22 09:53

Rename

<?php
/**
 * Test for Oracle Variable Cursors, which are treated as ADOdb recordsets.
 *
 * This file is part of ADOdb, a Database Abstraction Layer library for PHP.
 *
 * @package ADOdb
 * @link https://adodb.org Project's web site and documentation
 * @link https://github.com/ADOdb/ADOdb Source code and issue tracker
 *
 * The ADOdb Library is dual-licensed, released under both the BSD 3-Clause
 * and the GNU Lesser General Public Licence (LGPL) v2.1 or, at your option,
 * any later version. This means you can use it in proprietary products.
 * See the LICENSE.md file distributed with this source code for details.
 * @license BSD-3-Clause
 * @license LGPL-2.1-or-later
 *
 * @copyright 2000-2013 John Lim
 * @copyright 2014 Damien Regad, Mark Newnham and the ADOdb community
 */

/*
	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);