Perl


  Lbox.Database + MDB ( Web )



common.pl

  
#!/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
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ