昨日、ご紹介したヤツは、エラーが起こっても無視する仕様(バグ)になっていました。 以下のように改善いたしました。 改善点 Win32::OLE->Option(Warn => 3);を使用することにより、エラー時に本処理を中止し、Perlがエラーメッセージを出力し、本プロセスが終了する。 use Win32::OLE::Const 'Microsoft ActiveX Data Objects 2.0 Library';を追加したことにより、指定タイプライブラリのコンスタントadUseServer等が参照可能になる。 Select count(*) aru From sysobjects Where NAME = 'test_table'でテーブルの有無チェックが出来る。 $rs->{CursorLocation} = adUseClient;で、$rs->{RecordCount}にレコ