| | #!/usr/local/bin/perl
require 'common.pl';
use Win32::OLE;
print <<VIEW1;
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=Shift_JIS">
</HEAD>
<BODY>
<FORM name=frm>
<TEXTAREA name=Query cols=80 rows=10>$_POST{'Query'}</TEXTAREA>
<INPUT type=submit name=submit value="送信">
</FORM>
VIEW1
if ( $_POST{'Query'} ne "" ) {
$MdbPath = "C:\\Program Files\\WinOfSql\\Tool\\parts\\販売管理.mdb";
$Lbox = Win32::OLE->new( "Lbox.BatchHelper" );
$Database = Win32::OLE->new( "Lbox.Database" );
$Result = $Database->Connect( 1, $MdbPath );
if ( $Result eq "" ) {
$Value = $Database->LoadSqlData( $_POST{'Query'} );
if ( !($Lbox->IsError( $Value )) ) {
$Value = $Lbox->HtmlConvert( $Value, 1 );
}
$Database->DisConnect();
}
}
print $Value;
print <<VIEW2;
</BODY>
</HTML>
VIEW2
| |
