Source for file northwind-access.php

Documentation is available at northwind-access.php
<html>
<head>
<title>ODBTP PEAR DB Example: MS Access</title>
</head>
<body>
<?php
 
    /*
    ** This example shows how to connect to a MS Access database
    ** using the PEAR DB driver for ODBTP.
    */
 
    require( "DB.php" );
 
    $dsn = 'odbtp(access)://127.0.0.1/c:\NorthWind.mdb?rowcache=yes';
 
    $options['persistent'] = false;
    $dbh = DB::connect( $dsn, $options );
    if( PEAR::isError( $dbh ) ) {
        echo "Error message: " . $dbh->getMessage() . "<br>\n";
        echo "Detailed error description: " . $dbh->getDebugInfo() . "<br>\n";
        die;
    }
    $sql = "SELECT * FROM Customers AS C, Orders AS O "
         . "WHERE O.CustomerId = C.CustomerId";
    $res = $dbh->query( $sql );
    if( PEAR::isError( $res ) ) {
        echo "Error message: " . $res->getMessage() . "<br>\n";
        echo "Detailed error description: " . $res->getDebugInfo() . "<br>\n";
        die;
    }
    do {
        if( !($cols = $res->numCols()) ) continue;
 
        echo $res->numRows() . " rows<p>\n";
 
        $colinfo = $res->tableInfo();
        if( PEAR::isError( $colinfo ) ) {
            echo "Error message: " . $colinfo->getMessage() . "<br>\n";
            echo "Detailed error description: " . $colinfo->getDebugInfo() . "<br>\n";
            die;
        }
        echo "<table cellpadding=2 cellspacing=0 border=1>\n";
        echo "<tr>";
        echo "<td>&nbsp;<b>Table</b>&nbsp;</td>";
        echo "<td>&nbsp;<b>Name</b>&nbsp;</td>";
        echo "<td>&nbsp;<b>Type</b>&nbsp;</td>";
        echo "<td>&nbsp;<b>Length</b>&nbsp;</td>";
        echo "<td>&nbsp;<b>Flags</b>&nbsp;</td>";
        echo "</tr>\n";
 
 
        for( $i = 0; $i < $cols; $i++ ) {
            echo "<tr>";
            echo "<td>&nbsp;". $colinfo[$i]['table'] . "&nbsp;</td>";
            echo "<td>&nbsp;". $colinfo[$i]['name'] . "&nbsp;</td>";
            echo "<td>&nbsp;". $colinfo[$i]['type'] . "&nbsp;</td>";
            echo "<td>&nbsp;". $colinfo[$i]['len'] . "&nbsp;</td>";
            echo "<td>&nbsp;". $colinfo[$i]['flags'] . "&nbsp;</td>";
            echo "</tr>\n";
        }
        echo "</table><p>\n";
        echo "<table cellpadding=2 cellspacing=0 border=1>\n";
        echo "<tr>";
 
        for( $col = 0; $col < $cols; $col++ ) {
            echo "<td><nobr>&nbsp;" . $colinfo[$col]['name'] . "&nbsp;</nobr></td>";
        }
        echo "</tr>\n";
 
        while( $row = $res->fetchRow() ) {
            echo "<tr>";
            for( $col = 0; $col < $cols; $col++ ) {
                if( is_null( $row[$col] ) ) $row[$col] = "NULL";
                echo "<td valign=\"top\"><pre>";
                print_r( $row[$col] );
                echo "</pre></td>";
            }
            echo "</tr>\n";
        }
        echo "</table><p>\n\n";
    }
    while( $res->nextResult() );
 
    $dbh->disconnect();
?>
</body>
</html>