| | OLE �ｿｽﾉゑｿｽ�ｿｽAccess�ｿｽf�ｿｽ[�ｿｽ^�ｿｽx�ｿｽ[�ｿｽX�ｿｽﾖのア�ｿｽN�ｿｽZ�ｿｽX |
 |
- OLE�ｿｽ�ｿｽ�ｿｽW�ｿｽ�ｿｽ�ｿｽ[�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽg�ｿｽp�ｿｽ�ｿｽ�ｿｽ�ｿｽﾎ、�ｿｽﾅゑｿｽ�ｿｽﾈ単�ｿｽ�ｿｽAccess�ｿｽﾌデ�ｿｽ[�ｿｽ^�ｿｽx�ｿｽ[�ｿｽX(*.mdb)�ｿｽ作す�ｿｽ驍ｱ�ｿｽ�が�ｿｽﾅゑｿｽ�ｿｽﾜゑｿｽ�ｿｽB
�ｿｽﾜゑｿｽ�ｿｽAVB�ｿｽ�ｿｽVC �ｿｽ�ｿｽMicrosoft Jet �ｿｽ�ｿｽ�ｿｽg�ｿｽp�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽo�ｿｽ�ｿｽ�ｿｽﾌ有�ｿｽ�ｿｽ�ｿｽ�ｿｽﾍ、
�ｿｽﾙとゑｿｽﾇのプ�ｿｽ�ｿｽ�ｿｽp�ｿｽe�ｿｽB�ｿｽA�ｿｽ�ｿｽ�ｿｽ\�ｿｽb�ｿｽh�ｿｽ�ｿｽ�ｿｽg�ｿｽp�ｿｽﾅゑｿｽ�ｿｽﾜゑｿｽ�ｿｽﾌで、�ｿｽ�ｿｽ闕ゑｿｽx�ｿｽﾈ托ｿｽ�ｿｽ�が�ｿｽﾈ単�ｿｽﾉ行�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽB
Access�ｿｽﾌデ�ｿｽ[�ｿｽ^�ｿｽx�ｿｽ[�ｿｽX�ｿｽﾉゑｿｽ�ｿｽ�ｿｽ�ｿｽﾚ接托ｿｽ�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽﾌで、ODBC�ｿｽﾌよう�ｿｽﾉ前�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽK�ｿｽv�ｿｽﾈゑｿｽ�ｿｽA
�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾅゑｿｽ�ｿｽBWindows�ｿｽT�ｿｽ[�ｿｽo�ｿｽﾌサ�ｿｽ[�ｿｽo�ｿｽ\�ｿｽt�ｿｽg�ｿｽﾆ、VB�ｿｽAVC �ｿｽﾉゑｿｽ�ｿｽN�ｿｽ�ｿｽ�ｿｽC�ｿｽA�ｿｽ�ｿｽ�ｿｽg�ｿｽ\�ｿｽt�ｿｽg�ｿｽ�ｿｽ�ｿｽJ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ鼾��ｿｽﾍゑｿｽ�ｿｽE�ｿｽﾟでゑｿｽ�ｿｽB
|
| | Perl OLE�ｿｽ�ｿｽ�ｿｽW�ｿｽ�ｿｽ�ｿｽ[�ｿｽ�ｿｽ�ｿｽﾌイ�ｿｽ�ｿｽ�ｿｽX�ｿｽg�ｿｽ[�ｿｽ�ｿｽ |
|
- �ｿｽﾉ端�ｿｽﾉ古ゑｿｽActivePerl�ｿｽﾅなゑｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽAOLE�ｿｽ�ｿｽ�ｿｽW�ｿｽ�ｿｽ�ｿｽ[�ｿｽ�ｿｽ�ｿｽﾍ標�ｿｽ�ｿｽ�ｿｽﾅイ�ｿｽ�ｿｽ�ｿｽX�ｿｽg�ｿｽ[�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾄゑｿｽ�ｿｽﾜゑｿｽ�ｿｽﾌで、
�ｿｽ�ｿｽ�ｿｽﾟてイ�ｿｽ�ｿｽ�ｿｽX�ｿｽg�ｿｽ[�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽK�ｿｽv�ｿｽﾍゑｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽ�ｿｽB
#!/user/local/bin/perl
use Win32::OLE;
print "Content-type: text/plain\n\n";
exit;
|
|
�ｿｽ�ｿｽ�ｿｽ黷ｾ�ｿｽ�ｿｽ�ｿｽﾌコ�ｿｽ[�ｿｽh�ｿｽ�ｿｽCGI�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽs�ｿｽ�ｿｽ�ｿｽﾄエ�ｿｽ�ｿｽ�ｿｽ[�ｿｽ�ｿｽ�ｿｽo�ｿｽﾍゑｿｽ�ｿｽ�ｿｽﾈゑｿｽ�ｿｽ�ｿｽOLE�ｿｽﾍイ�ｿｽ�ｿｽ�ｿｽX�ｿｽg�ｿｽ[�ｿｽ�ｿｽ�ｿｽﾏみと鯉ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾆになゑｿｽﾜゑｿｽ�ｿｽﾌで、
�ｿｽﾈ会ｿｽ�ｿｽﾌ��ｿｽ�ｿｽW�ｿｽ�ｿｽ�ｿｽ[�ｿｽ�ｿｽ�ｿｽC�ｿｽ�ｿｽ�ｿｽX�ｿｽg�ｿｽ[�ｿｽ�ｿｽ�ｿｽﾍ費ｿｽﾎゑｿｽ�ｿｽﾄゑｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽB
- �ｿｽG�ｿｽ�ｿｽ�ｿｽ[�ｿｽﾌ出�ｿｽﾍゑｿｽ�ｿｽ黷ｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽOLE�ｿｽ�ｿｽ�ｿｽC�ｿｽ�ｿｽ�ｿｽX�ｿｽg�ｿｽ[�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽB
[�ｿｽX�ｿｽ^�ｿｽ[�ｿｽg]�ｿｽ�ｿｽ�ｿｽj�ｿｽ�ｿｽ�ｿｽ[�ｿｽﾌ「�ｿｽt�ｿｽ@�ｿｽC�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽw�ｿｽ閧ｵ�ｿｽﾄ趣ｿｽ�ｿｽs�ｿｽv�ｿｽﾅ、
�ｿｽﾆタ�ｿｽC�ｿｽv�ｿｽ�ｿｽ�ｿｽ�ｿｽDOS�ｿｽV�ｿｽF�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽN�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽB
C:\> ppm
PPM interractive shell (2.2.0) - type 'help' for available command
PPM> search OLE
PPM> install Win32::OLE
Install package 'Win32::OLE?' (y/N): y
|
ppm �ｿｽﾆタ�ｿｽC�ｿｽv�ｿｽ�ｿｽ�ｿｽﾄ、PPM �ｿｽR�ｿｽ}�ｿｽ�ｿｽ�ｿｽh�ｿｽ�ｿｽ�ｿｽN�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽB
search OLE �ｿｽﾅ鯉ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽAWin32::OLE �ｿｽ�ｿｽ�ｿｽ\�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾎ、
install Win32:OLE �ｿｽﾅイ�ｿｽ�ｿｽ�ｿｽX�ｿｽg�ｿｽ[�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾄゑｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽB
�ｿｽ�ｿｽ�ｿｽ�ｿｽﾅデ�ｿｽ[�ｿｽ^�ｿｽx�ｿｽ[�ｿｽX�ｿｽﾖのア�ｿｽN�ｿｽZ�ｿｽX�ｿｽﾌ擾ｿｽ�ｿｽ�ｿｽ�ｿｽﾍ奇ｿｽ�ｿｽ�ｿｽ�ｿｽﾅゑｿｽ�ｿｽB
�ｿｽ�ｿｽ�ｿｽﾆは趣ｿｽ�ｿｽﾛにイ�ｿｽ�ｿｽ�ｿｽ^�ｿｽ[�ｿｽt�ｿｽF�ｿｽ[�ｿｽX�ｿｽ�ｿｽ�ｿｽ�成�ｿｽ�ｿｽ�ｿｽﾄア�ｿｽN�ｿｽZ�ｿｽX�ｿｽ�ｿｽ�ｿｽ驍ｾ�ｿｽ�ｿｽ�ｿｽﾅゑｿｽ�ｿｽB
|
| | Access(*.mdb)�ｿｽﾉ接托ｿｽ�ｿｽC�ｿｽ�ｿｽ�ｿｽ^�ｿｽ[�ｿｽt�ｿｽF�ｿｽ[�ｿｽX�ｿｽﾌ作成 |
|
- OLE�ｿｽﾉゑｿｽ�ｿｽAccess�ｿｽf�ｿｽ[�ｿｽ^�ｿｽx�ｿｽ[�ｿｽX�ｿｽﾌ托ｿｽ�ｿｽ�ｿｽﾍ最ゑｿｽ�ｿｽﾈ単�ｿｽﾅ、�ｿｽﾅゑｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾉ難ｿｽ�ｿｽ�し�ｿｽﾜゑｿｽ�ｿｽ�ｿｽ�ｿｽA
Access�ｿｽﾆ趣ｿｽ�ｿｽﾌプ�ｿｽ�ｿｽ�ｿｽp�ｿｽe�ｿｽB�ｿｽ[�ｿｽA�ｿｽ�ｿｽ�ｿｽ\�ｿｽb�ｿｽh�ｿｽ�ｿｽ�ｿｽg�ｿｽp�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽﾌでコ�ｿｽ[�ｿｽh�ｿｽﾌ互奇ｿｽ�ｿｽ�ｿｽ�ｿｽﾍ全�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽ�ｿｽB
#!/usr/local/bin/perl
# OLE�ｿｽ�ｿｽ�ｿｽW�ｿｽ�ｿｽ�ｿｽ[�ｿｽ�ｿｽ�ｿｽ�ｿｽﾇ搾ｿｽ�ｿｽ�ｿｽ
use Win32::OLE;
print "Content-type: text/html\n\n";
print "<html>"
print "<body>"
# �ｿｽv�ｿｽ�ｿｽ�ｿｽo�ｿｽC�ｿｽ_�ｿｽﾆ、�ｿｽﾚ托ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽf�ｿｽ[�ｿｽ^�ｿｽx�ｿｽ[�ｿｽX�ｿｽ�ｿｽ�ｿｽ�ｿｽﾝ抵ｿｽ
$conn = "Provider=Microsoft.Jet.OLEDB.4.0;";
$conn .= "Data Source=zip.mdb;";
# �ｿｽf�ｿｽ[�ｿｽ^�ｿｽx�ｿｽ[�ｿｽX�ｿｽﾌオ�ｿｽu�ｿｽW�ｿｽF�ｿｽN�ｿｽg�ｿｽ�ｿｽ�ｿｽ�成�ｿｽ�ｿｽ�ｿｽﾄ接托ｿｽ
$db = Win32::OLE->new("ADODB.Connection");
$db->Open($conn);
# �ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌク�ｿｽG�ｿｽ�ｿｽ�ｿｽ[QueryZip�ｿｽ�ｿｽ�ｿｽ迯ゑｿｽm�ｿｽ�ｿｽ�ｿｽ�ｿｽX�ｿｽﾖ番搾ｿｽ�ｿｽ�ｿｽ�ｿｽﾉ取得
$rs = $db->Execute("SELECT * FROM QueryZip WHERE pre = 39 ORDER BY code");
# �ｿｽ謫ｾ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽR�ｿｽ[�ｿｽh�ｿｽZ�ｿｽb�ｿｽg�ｿｽﾌ撰ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ[�ｿｽv�ｿｽ�ｿｽ�ｿｽﾄ表�ｿｽ�ｿｽ
while (!$rs->EOF) {
print $rs->Fields('code')->Value, $rs->Fields('name')->Value, $rs->Fields('citys')->Value,"
\n";
$rs->MoveNext;
}
# �ｿｽ�ｿｽ�ｿｽR�ｿｽ[�ｿｽh�ｿｽZ�ｿｽb�ｿｽg�ｿｽ�ｿｽﾂゑｿｽ�ｿｽ�ｿｽ
$rs->Close();
# �ｿｽf�ｿｽ[�ｿｽ^�ｿｽx�ｿｽ[�ｿｽX�ｿｽ�ｿｽﾂゑｿｽ�ｿｽ�ｿｽ
$db->Close();
print "</body></html>";
exit;
|
|
OLE�ｿｽﾚ托ｿｽ�ｿｽﾅは、Jet�ｿｽ�ｿｽ�ｿｽL�ｿｽﾌ��ｿｽ�ｿｽ\�ｿｽb�ｿｽhMove�ｿｽAMoveFirst�ｿｽAMoveNext�ｿｽAMoveLast�ｿｽAMovePrevious�ｿｽ�ｿｽ
�ｿｽ�ｿｽ�ｿｽR�ｿｽ[�ｿｽh�ｿｽZ�ｿｽb�ｿｽg�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽR�ｿｽﾉ移難ｿｽ�ｿｽ�ｿｽ�ｿｽ骼厄ｿｽ�ｿｽ�ｿｽﾂ能�ｿｽﾅゑｿｽ�ｿｽB
|
