← Back to branch summary

~ubuntu-branches/ubuntu/maverick/mahara/maverick-updates

« back to all changes in this revision

Viewing changes to htdocs/lib/adodb/tests/testoci8.php

  • Committer: Bazaar Package Importer
  • Author(s): Nigel McNie
  • Date: 2008-04-29 11:15:39 UTC
  • Revision ID: james.westby@ubuntu.com-20080429111539-b28eqkagavaub2zr
Tags: upstream-1.0.2
Import upstream version 1.0.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
htdocs/lib/adodb/tests/testoci8.php
 
1
<html>
 
2
<body>
 
3
<?php
 
4
/* 
 
5
V4.80 8 Mar 2006  (c) 2000-2006 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
?>
 
 
b'\\ No newline at end of file'