Update to upstream version 4.94
[Packages/TYPO3.CMS.git] / typo3 / sysext / adodb / adodb / tests / testoci8.php
1 <html>
2 <body>
3 <?php
4 /*
5 V4.80 8 Mar 2006 (c) 2000-2007 John Lim (jlim#natsoft.com.my). All rights reserved.
6 Released under both BSD license and Lesser GPL library license.
7 Whenever there is any discrepancy between the two licenses,
8 the BSD license will take precedence.
9 Set tabs to 4 for best viewing.
10
11 Latest version is available at http://adodb.sourceforge.net
12 */
13 error_reporting(63);
14 include("../adodb.inc.php");
15 include("../tohtml.inc.php");
16
17 if (0) {
18 $db = ADONewConnection('oci8po');
19
20 $db->PConnect('','scott','natsoft');
21 if (!empty($testblob)) {
22 $varHoldingBlob = 'ABC DEF GEF John TEST';
23 $num = time()%10240;
24 // create table atable (id integer, ablob blob);
25 $db->Execute('insert into ATABLE (id,ablob) values('.$num.',empty_blob())');
26 $db->UpdateBlob('ATABLE', 'ablob', $varHoldingBlob, 'id='.$num, 'BLOB');
27
28 $rs = &$db->Execute('select * from atable');
29
30 if (!$rs) die("Empty RS");
31 if ($rs->EOF) die("EOF RS");
32 rs2html($rs);
33 }
34 $stmt = $db->Prepare('select * from adoxyz where id=?');
35 for ($i = 1; $i <= 10; $i++) {
36 $rs = &$db->Execute(
37 $stmt,
38 array($i));
39
40 if (!$rs) die("Empty RS");
41 if ($rs->EOF) die("EOF RS");
42 rs2html($rs);
43 }
44 }
45 if (1) {
46 $db = ADONewConnection('oci8');
47 $db->PConnect('','scott','natsoft');
48 $db->debug = true;
49 $db->Execute("delete from emp where ename='John'");
50 print $db->Affected_Rows().'<BR>';
51 $stmt = &$db->Prepare('insert into emp (empno, ename) values (:empno, :ename)');
52 $rs = $db->Execute($stmt,array('empno'=>4321,'ename'=>'John'));
53 // prepare not quite ready for prime time
54 //$rs = $db->Execute($stmt,array('empno'=>3775,'ename'=>'John'));
55 if (!$rs) die("Empty RS");
56
57 $db->setfetchmode(ADODB_FETCH_NUM);
58
59 $vv = 'A%';
60 $stmt = $db->PrepareSP("BEGIN adodb.open_tab2(:rs,:tt); END;",true);
61 $db->OutParameter($stmt, $cur, 'rs', -1, OCI_B_CURSOR);
62 $db->OutParameter($stmt, $vv, 'tt');
63 $rs = $db->Execute($stmt);
64 while (!$rs->EOF) {
65 adodb_pr($rs->fields);
66 $rs->MoveNext();
67 }
68 echo " val = $vv";
69
70 }
71
72 if (0) {
73 $db = ADONewConnection('odbc_oracle');
74 if (!$db->PConnect('local_oracle','scott','tiger')) die('fail connect');
75 $db->debug = true;
76 $rs = &$db->Execute(
77 'select * from adoxyz where firstname=? and trim(lastname)=?',
78 array('first'=>'Caroline','last'=>'Miranda'));
79 if (!$rs) die("Empty RS");
80 if ($rs->EOF) die("EOF RS");
81 rs2html($rs);
82 }
83 ?>