From: Tuncay BAŞ (tuncay@bir.net.tr)
Date: Thu 08 Jan 2004 - 09:32:53 EST
Kodları kendinize göre değiştirebilirsiniz.
Genel fikir vermesi amacıyla uygulamalı gönderiyorum
<?
// Connection
$conn = new COM("ADODB.Connection") or die("ADODB başlatılamıyor");
$conn->Open("DRIVER={Microsoft Access Driver
(*.mdb)};DBQ=C:\Inetpub\wwwroot\denemeler\php_mdb\veri.mdb");
if($islem=="sil") {
$sil="delete * from uyeler where uyeId=$id";
$rs = $conn->Execute($sil);
}
// Recordset
$rs = $conn->Execute("SELECT * FROM uyeler order by UyeAdi");
// Alan isimlerini döküyoruz
echo "<TABLE border='1'><TR><TH colspan='6'>Veriler</TH><TR>";
echo "<TR>";
echo "<TH>" . $rs->Fields[0]->name . "</TH>";
echo "<TH>" . $rs->Fields[1]->name . "</TH>";
echo "<TH>" . $rs->Fields[2]->name . "</TH>";
echo "<TH>" . $rs->Fields[3]->name . "</TH>";
echo "<TH>" . $rs->Fields[4]->name . "</TH>";
echo "<TH>" . $rs->Fields[5]->name . "</TH>";
echo "</TR>";
// Verileri döküyoruz
$i=0;
while ($i<10)
{
$id=$rs->Fields[0]->value;
echo "<tr>";
echo "<td>" . $rs->Fields[0]->value . " </td>";
echo "<td><a href=mdb.php?islem=sil&id=$id>" . $rs->Fields[1]->value .
"</a> </td>";
echo "<td>" . $rs->Fields[2]->value . " </td>";
echo "<td>" . $rs->Fields[3]->value . " </td>";
echo "<td>" . $rs->Fields[4]->value . " </td>";
echo "<td>" . $rs->Fields[5]->value . " </td>";
echo "</tr>";
$rs->MoveNext();
$i++;
}
echo "</TABLE>";
// Kapanış
$rs->Close();
$conn->Close();
$rs->Release();
$conn->Release();
$rs = null;
$conn = null;
?>