[Sysadmins] Подключиться к .mdb (ms access) средствами PHP
Victor Zhuravlyov
=?iso-8859-1?q?vitich_=CE=C1_gmail=2Ecom?=
Пн Ноя 24 17:23:27 MSK 2008
Вот понадобился сабж.
На виндовом серваке работает "на ура", а как сделать на никсах - непонятно.
Ниже код, работающий на винде.
<?php
$Kiev_st = '1.1.5';
$Dnepr_st = '1.2.5';
$Don_st = '1.3.5';
$Khar_st = '1.6.5';
echo "<META http-equiv='Content-Type' content='text/html;
charset=windows-1251'>";
echo "<table border='1' align='left' bordercolor='#000000'>
<tr>
<td><a href='start.php?Obj=$Kiev_st&Type=1'>Київ</a></td>
<td><a href='start.php?Obj=$Dnepr_st&Type=1'>Дніпропетровськ</a></td>
<td><a href='start.php?Obj=$Don_st&Type=1'>Донецьк</a></td>
<td><a href='start.php?Obj=$Khar_st&Type=1'>Харків</a></td>
</tr>
</table><br></br>";
if (StrLen($_GET['Obj']) > 0) $obj_num = $_GET['Obj'];
else $obj_num = "1.1.5.1";
if (StrLen($_GET['Obj']) > 0) $type = $_GET['Type'];
else $type = "1";
$db_conn = new COM("ADODB.Connection");
$connstr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=".
realpath("./123.mdb").";";
$db_conn->open($connstr);
$rS = $db_conn->execute("SELECT [Obj_Name_Ua],[Obj_Code],[Obj_Info_Ua] FROM
[Object] WHERE ([Obj_Code] = '$obj_num')");
$S1 = $rS->Fields(0);
$S3 = $rS->Fields(2);
while (!$rS->EOF)
{
if ($S3 > "") echo" $S3->value </br>";
$rS->MoveNext();
}
$rS->Close();
$db_conn->Close();
if (StrLen($_GET['Obj']) > 0) $obj_num = $_GET['Obj'];
else $obj_num = "1.1.5.1";
if (StrLen($_GET['Obj']) > 0) $type = $_GET['Type'];
else $type = "1";
$connstr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=".
realpath("./123.mdb").";";
$db_conn->open($connstr);
$rS = $db_conn->execute("SELECT [TASK_UID],[TASK_ID], [TASK_START_DATE],
[TASK_FINISH_DATE], [TASK_TYPE], [TASK_COST], [TASK_NAME],
[TASK_OUTLINE_NUM] FROM [MSP_TASKS] WHERE (([TASK_OUTLINE_NUM] LIKE '%' +
'$obj_num'+'.' + '%')AND([TASK_TYPE]=$type)) ORDER BY [TASK_OUTLINE_NUM]");
$f1 = $rS->Fields(0);
$f2 = $rS->Fields(1);
$f3 = $rS->Fields(2);
$f4 = $rS->Fields(3);
$f5 = $rS->Fields(4);
$f6 = $rS->Fields(5);
$f7 = $rS->Fields(6);
$f8 = $rS->Fields(7);
echo "<table border='1' align='left' bordercolor='#000000'>";
echo "
<tr bgcolor='#55AAFF'>
<td>Код об'єкту</td>
<td>Назва</td>
<td>Ціна</td>
<td>Дата початку</td>
<td>Дата кінця</td>
</tr> ";
while (!$rS->EOF)
{
echo "
<tr>
<td>$f8->value</td>
<td><a href='start.php?Obj=$f8->value&Type=0'>$f7->value</a></td>
<td>$f6->value</td>
<td>$f3->value</td>
<td>$f4->value</td>
</tr> ";
$rS->MoveNext();
}
echo "</table>";
$rS->Close();
$db_conn->Close();
?>
--
Regards, vitich at gmail dot com
----------- следующая часть -----------
Вложение в формате HTML было удалено...
URL: <http://lists.altlinux.org/pipermail/sysadmins/attachments/20081124/37e041b5/attachment.html>
Подробная информация о списке рассылки Sysadmins