VBScript + MySQL
拡張子:txtvbswsfjsphpjavahtmlutf8sjis
' **********************************************************
' オブジェクト作成
' **********************************************************
Set Cn = CreateObject( "ADODB.Connection" )
Set Rs = CreateObject( "ADODB.Recordset" )
Set Fs = CreateObject( "Scripting.FileSystemObject" )

strDriver = "{MySQL ODBC 3.51 Driver}"
strServer = "localhost"
strDB = "lightbox"
strUser = "root"
strPass = ""

ConnectionString = _
	"Provider=MSDASQL" & _
	";Driver=" & strDriver & _
	";Server=" & strServer & _
	";DATABASE=" & strDB & _
	";UID=" & strUser & _ 
	";PWD=" & strPass & _ 
	";" 

' **********************************************************
' 接続
' **********************************************************
on error resume next
Cn.Open ConnectionString
if Err.Number <> 0 then
	Wscript.Echo Err.Description
	Wscript.Quit
end if
on error goto 0

' **********************************************************
' レコードセット取得
' **********************************************************
Query = "select * from `社員マスタ`"
on error resume next
Rs.Open Query, Cn
if Err.Number <> 0 then
	Cn.Close
	Wscript.Echo Err.Description
	Wscript.Quit
end if
on error goto 0

' **********************************************************
' 出力ファイルオープン
' **********************************************************
Set Csv = Fs.CreateTextFile( "社員マスタ.csv", True )

' **********************************************************
' タイトル出力
' **********************************************************
Buffer = ""
For i = 0 to Rs.Fields.Count - 1
	if Buffer <> "" then
		Buffer = Buffer & ","
	end if
	Buffer = Buffer & Rs.Fields(i).Name
Next
Csv.WriteLine Buffer

' **********************************************************
' データ出力
' **********************************************************
Do While not Rs.EOF
	Buffer = ""
	For i = 0 to Rs.Fields.Count - 1
		if Buffer <> "" then
			Buffer = Buffer & ","
		end if
		Buffer = Buffer & Rs.Fields(i).Value
	Next
	Csv.WriteLine Buffer
	Rs.MoveNext
Loop

' **********************************************************
' ファイルクローズ
' **********************************************************
Csv.Close

' **********************************************************
' レコードセットクローズ
' **********************************************************
Rs.Close

' **********************************************************
' 接続解除
' **********************************************************
Cn.Close

' **********************************************************
' オブジェクト解放
' **********************************************************
Set Fs = Nothing
Set Rs = Nothing
Set Cn = Nothing

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
<?
header( "Expires: Wed, 31 May 2000 14:59:58 GMT" );
# **********************************************************
# 外部ファイル
# **********************************************************
$conf_client_charset = "shift_jis";
$conf_db_type = 5;
require_once( "http://lightbox.in.coocan.jp/gen/db.txt" );

# **********************************************************
# 接続
# **********************************************************
$SQL = new DB( "TANIMURA", "" , "lightbox", "lightbox"  );

$Query = "select * from 社員マスタ";

$Column = $SQL->QueryEx( $Query );

$handle = fopen("ora.csv", 'w');
while( $Column ) {

	$Line = "";
	for( $i = 0; $i < $SQL->nField; $i++ ) {
		if ( $Line != "" ) {
			$Line .= ",";
		}
		$Line .= $Column[$i];
	}
	fwrite($handle, $Line . "\n" );
	

	$Column = $SQL->QueryEx( );
}
fclose($handle);

# **********************************************************
# 接続解除
# **********************************************************
$SQL->Close();

?>
OK

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
<?
header( "Expires: Wed, 31 May 2000 14:59:58 GMT" );
# **********************************************************
# 外部ファイル
# **********************************************************
$conf_client_charset = "shift_jis";
$conf_db_type = 6;
require_once( "http://lightbox.in.coocan.jp/gen/db.txt" );

# **********************************************************
# 接続
# **********************************************************
$SQL = new DB( "ped0-026/ORCL", "" , "lightbox", 'lightbox' );

$Query = "select * from 社員マスタ";

$Column = $SQL->QueryEx( $Query );

$handle = fopen("ora.csv", 'w');
while( $Column ) {

	$Line = "";
	for( $i = 0; $i < $SQL->nField; $i++ ) {
		if ( $Line != "" ) {
			$Line .= ",";
		}
		$Line .= $Column[$i];
	}
	fwrite($handle, $Line . "\n" );
	

	$Column = $SQL->QueryEx( );
}
fclose($handle);

# **********************************************************
# 接続解除
# **********************************************************
$SQL->Close();

?>
OK