CommFort

Код: Выделить всё

<?
$conn = new COM("ADODB.Connection") or die("Cannot start ADO");

// Microsoft Access строка подключения к базе дыннх. Обратите внимание на написание пути к файлу base.mdb (не один слеш, а два)
$conn->Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\\AppServ\\www\\base.mdb");


// SQL statement to build recordset.
$rs = $conn->Execute("SELECT name FROM users where online=true");
echo "<p>Этот простой скрипт php показывает, как связатся с базой данных для бота от SkifNika в своих целях, напрмер создать WEB статистику<br>В этом примере мы считываем имена (name) тех кто онлайн (online=true) из таблицы Users</p>";

// Display all the values in the records set
while (!$rs->EOF) {
    $fv = $rs->Fields("name");
    echo "Value: ".$fv->value."<br>\n";
    $rs->MoveNext();
}
$rs->Close();
?>

Код: Выделить всё

<?php
   error_reporting(0);
include("includer.php");
$conn = new COM("ADODB.Connection") or die("Cannot start ADO");
$conn->Open($connect);
$rid = $conn->Execute("SELECT * FROM stat ORDER BY mesto ");
     while (!$rid->EOF) {
       $i++;
  $fid = $rid->Fields('id');
              {
            $sql="SELECT name FROM users where id=".$fid;
       $ruser = $conn->Execute($sql);
             $fname = $ruser->Fields[0];

$sql="SELECT ochki FROM vic where id=".$fid;
       $rvic = $conn->Execute($sql);
             $fochki = $rvic->Fields[0];
echo $i.". "."<B>".$fname." : " . $fochki  ."<BR>";
       }
    $rid->MoveNext();
  }
 $rid = $conn->Execute("SELECT * FROM stat ORDER BY mesto ");

$rid->Close();
?>