merge in branch for direct messaging integration by EMR Direct
[openemr.git] / library / adodb / tests / pdo.php
blobb66018f8e0d8712156db585f49a527ffcd286411
1 <?php
2 error_reporting(E_ALL);
3 include('../adodb.inc.php');
5 echo "<pre>";
6 try {
7 echo "New Connection\n";
10 $dsn = 'pdo_mysql://root:@localhost/northwind?persist';
12 if (!empty($dsn)) {
13 $DB = NewADOConnection($dsn) || die("CONNECT FAILED");
14 $connstr = $dsn;
15 } else {
17 $DB = NewADOConnection('pdo');
19 echo "Connect\n";
21 $u = ''; $p = '';
23 $connstr = 'odbc:nwind';
25 $connstr = 'oci:';
26 $u = 'scott';
27 $p = 'natsoft';
30 $connstr ="sqlite:d:\inetpub\adodb\sqlite.db";
33 $connstr = "mysql:dbname=northwind";
34 $u = 'root';
36 $connstr = "pgsql:dbname=test";
37 $u = 'tester';
38 $p = 'test';
40 $DB->Connect($connstr,$u,$p) || die("CONNECT FAILED");
44 echo "connection string=$connstr\n Execute\n";
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";
51 //print_r(get_class_methods($DB->_stmt));
53 if (!$rs) die("NO RS");
55 echo "Meta\n";
56 for ($i=0; $i < $rs->NumCols(); $i++) {
57 var_dump($rs->FetchField($i));
58 echo "<br>";
61 echo "FETCH\n";
62 $cnt = 0;
63 while (!$rs->EOF) {
64 adodb_pr($rs->fields);
65 $rs->MoveNext();
66 if ($cnt++ > 1000) break;
69 echo "<br>--------------------------------------------------------<br>\n\n\n";
71 $stmt = $DB->PrepareStmt("select * from ADOXYZ");
73 $rs = $stmt->Execute();
74 $cols = $stmt->NumCols(); // execute required
76 echo "COLS = $cols";
77 for($i=1;$i<=$cols;$i++) {
78 $v = $stmt->_stmt->getColumnMeta($i);
79 var_dump($v);
82 echo "e=".$stmt->ErrorNo() . " ".($stmt->ErrorMsg())."\n";
83 while ($arr = $rs->FetchRow()) {
84 adodb_pr($arr);
86 die("DONE\n");
88 } catch (exception $e) {
89 echo "<pre>";
90 echo $e;
91 echo "</pre>";