open($conn);
$oTS = $dbc->OpenSchema($adSchemaTables);
while (!$oTS->EOF) {
$name = $oTS->Fields["TABLE_NAME"]->value;
if (substr($name, 0, 4) != "MSys") {
echo "Table: $name
";
$rs = $dbc->Execute($name);
showTable($rs);
}
$oTS->MoveNext();
}
$oTS->close();
$dbc->close();
}
function showTable($rs) {
$num_columns = $rs->Fields->Count();
echo "\n";
for ($i=0; $i < $num_columns; $i++) {
$fld[$i] = $rs->Fields($i);
echo "| ".$fld[$i]->name." | ";
}
$rowcount = 0;
while (!$rs->EOF) {
echo "
";
for ($i=0; $i < $num_columns; $i++) {
echo "| ".$fld[$i]->value." | ";
}
echo "\n";
$rowcount++;
$rs->MoveNext();
}
echo "
";
}
function showSchemaTables($pathName, $passwd) {
$adSchemaTables = 4;
$dbc = new COM("ADODB.Connection") or die("Cannot start ADO");
$conn = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=".$passwd.";Data Source=".$pathName;
$dbc->open($conn);
$oTS = $dbc->OpenSchema($adSchemaTables);
showTable($oTS);
}
?>