Perl


  Lbox.Database + Excel ( バッチ )



  
# **********************************************************
# オブジェクト使用宣言
# **********************************************************
use Win32::OLE;
use Win32::OLE::Variant;

# **********************************************************
# オブジェクト作成
# **********************************************************
$Database = Win32::OLE->new( "Lbox.Database" );

# **********************************************************
# ターゲット Excel
# **********************************************************
$Target = "C:\\TEMP\\社員マスタ.xls";

# **********************************************************
# 接続
# **********************************************************
$Result = $Database->Connect( 0, $Target );
if ( $Result ne "" ) {
	print $Result;
	exit();
}

# **********************************************************
# レコードセット取得
# **********************************************************
$Query = "select * from [社員マスタ]";
$bRet = $Database->Query( $Query );
if ( !$bRet ) {
	print "SQLのエラーかまたは対象データが存在しません";
	exit();
}

# **********************************************************
# 出力ファイルオープン
# **********************************************************
open( CSV_FILE,">./社員マスタ.csv" );

# **********************************************************
# タイトル出力
# **********************************************************
$Buffer = "";
for( $i = 0; $i < $Database->{FieldCount}; $i++ ) {
	if ( $Buffer ne "" ) {
		$Buffer .= ",";
	}
	$Buffer .= $Database->GetName($i);
}
print CSV_FILE "$Buffer\n";

# **********************************************************
# データ出力
# **********************************************************
while ( $bRet ) {
	$Buffer = "";
	for( $i = 0; $i < $Database->{FieldCount}; $i++ ) {
		if ( $Buffer ne "" ) {
			$Buffer .= ",";
		}
		$Buffer .= $Database->GetText($i);
	}
	print CSV_FILE "$Buffer\n";
	$bRet = $Database->Query();
}

# **********************************************************
# ファイルクローズ
# **********************************************************
close( CSV_FILE );

# **********************************************************
# 接続解除
# **********************************************************
$Database->DisConnect;
  










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





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

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ