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
' ********************************************************** ' オブジェクト作成 ' ********************************************************** 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
<? 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
<? 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