source: sandbox/2.5.1-evolucao/phpgwapi/inc/adodb/tests/pdo.php @ 8222

Revision 8222, 1.7 KB checked in by angelo, 11 years ago (diff)

Ticket #3491 - Compatibilizar Expresso com novas versoes do PHP

  • Property svn:eol-style set to native
  • Property svn:executable set to *
Line 
1<?php
2error_reporting(E_ALL);
3include('../adodb.inc.php');
4
5echo "<pre>";
6try {
7        echo "New Connection\n";
8       
9       
10        $dsn = 'pdo_mysql://root:@localhost/northwind?persist';
11       
12        if (!empty($dsn)) {
13                $DB = NewADOConnection($dsn) || die("CONNECT FAILED");
14                $connstr = $dsn;
15        } else {
16       
17                $DB = NewADOConnection('pdo');
18               
19                echo "Connect\n";
20               
21                $u = ''; $p = '';
22                /*
23                $connstr = 'odbc:nwind';
24               
25                $connstr = 'oci:';
26                $u = 'scott';
27                $p = 'natsoft';
28               
29               
30                $connstr ="sqlite:d:\inetpub\adodb\sqlite.db";
31                */
32               
33                $connstr = "mysql:dbname=northwind";
34                $u = 'root';
35               
36                $connstr = "pgsql:dbname=test";
37                $u = 'tester';
38                $p = 'test';
39               
40                $DB->Connect($connstr,$u,$p) || die("CONNECT FAILED");
41       
42        }
43       
44        echo "connection string=$connstr\n Execute\n";
45       
46        //$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;
47        $rs = $DB->Execute("select * from ADOXYZ where id<3");
48        if  ($DB->ErrorNo()) echo "*** errno=".$DB->ErrorNo() . " ".($DB->ErrorMsg())."\n";
49       
50       
51        //print_r(get_class_methods($DB->_stmt));
52       
53        if (!$rs) die("NO RS");
54       
55        echo "Meta\n";
56        for ($i=0; $i < $rs->NumCols(); $i++) {
57                var_dump($rs->FetchField($i));
58                echo "<br>";
59        }
60       
61        echo "FETCH\n";
62        $cnt = 0;
63        while (!$rs->EOF) {
64                adodb_pr($rs->fields);
65                $rs->MoveNext();
66                if ($cnt++ > 1000) break;
67        }
68       
69        echo "<br>--------------------------------------------------------<br>\n\n\n";
70       
71        $stmt = $DB->PrepareStmt("select * from ADOXYZ");
72       
73        $rs = $stmt->Execute();
74        $cols = $stmt->NumCols(); // execute required
75       
76        echo "COLS = $cols";
77        for($i=1;$i<=$cols;$i++) {
78                $v = $stmt->_stmt->getColumnMeta($i);
79                var_dump($v);
80        }
81       
82        echo "e=".$stmt->ErrorNo() . " ".($stmt->ErrorMsg())."\n";
83        while ($arr = $rs->FetchRow()) {
84                adodb_pr($arr);
85        }
86        die("DONE\n");
87
88} catch (exception $e) {
89        echo "<pre>";
90        echo $e;
91        echo "</pre>";
92}
93
94?>
Note: See TracBrowser for help on using the repository browser.