<?
# **********************************************************
# オブジェクト作成
# **********************************************************
$Database = new COM( "Lbox.Database" );

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

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

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

# **********************************************************
# 出力ファイルオープン
# **********************************************************
$Csv = fopen( "社員マスタ.csv", "w" );

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

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

# **********************************************************
# ファイルクローズ
# **********************************************************
fclose( $Csv );

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

# **********************************************************
# オブジェクト解放
# **********************************************************
$Database->Release();
$Database = null;