Ignore:
Timestamp:
06/29/07 15:17:46 (17 years ago)
Author:
niltonneto
Message:

Versão nova do ADODB (4.5 para 4.95)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/phpgwapi/inc/adodb/tests/pdo.php

    r2 r34  
    33include('../adodb.inc.php'); 
    44 
     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"); 
    587 
    6  
    7 echo "New Connection\n"; 
    8 $DB = NewADOConnection('pdo'); 
    9 echo "Connect\n"; 
    10 $pdo_connection_string = 'odbc:nwind'; 
    11 $DB->Connect($pdo_connection_string,'','') || die("CONNECT FAILED"); 
    12 echo "Execute\n"; 
    13  
    14  
    15  
    16 //$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC; 
    17 $rs = $DB->Execute("select * from products where productid<3"); 
    18 echo "e=".$DB->ErrorNo() . " ".($DB->ErrorMsg())."\n"; 
    19  
    20  
    21 //print_r(get_class_methods($DB->_stmt)); 
    22  
    23 if (!$rs) die("NO RS"); 
    24 echo "FETCH\n"; 
    25 $cnt = 0; 
    26 while (!$rs->EOF) { 
    27         print_r($rs->fields); 
    28         $rs->MoveNext(); 
    29         if ($cnt++ > 1000) break; 
     88} catch (exception $e) { 
     89        echo "<pre>"; 
     90        echo $e; 
     91        echo "</pre>"; 
    3092} 
    3193 
    32 echo "<br>--------------------------------------------------------<br>\n\n\n"; 
    33  
    34 $stmt = $DB->PrepareStmt("select * from products"); 
    35 $rs = $stmt->Execute(); 
    36 echo "e=".$stmt->ErrorNo() . " ".($stmt->ErrorMsg())."\n"; 
    37 while ($arr = $rs->FetchRow()) { 
    38         print_r($arr); 
    39 } 
    40 die("DONE\n"); 
    41  
    4294?> 
Note: See TracChangeset for help on using the changeset viewer.