ONLY DO WHAT ONLY YOU CAN DO

こけたら立ちなはれ 立ったら歩きなはれ

Oracle

SQLを実行し結果をコンソール出力

PowerShell [System.Reflection.Assembly]::LoadWithPartialName("System.Data") $cs = "Provider=MSDAORA;User ID=xxxxx;Password=yyyyy;Data Source=zzzzz" $oraCon = New-Object System.Data.OleDb.OleDbConnection($cs) $oraCmd = New-Object System.Dat…

フォルダ内のSQLを読んで実行結果をTAB区切りファイルに出力する

VBScript Option Explicit Private fs Private conn '結果出力 Private Sub writeResult(rs, sqlFile) '上書きか、追加書き込みか Dim mode: mode = "2" '2:ForWriting If WScript.Arguments.Count > 2 Then If WScript.Arguments(2) = "1" Then mode = "8" …

フォルダ内のSQLを読んで実行結果をExcelに出力する

VBScript Option Explicit Private fs Private conn Private excelApp Private excelBook Private excelSheet '出力シートの準備 Private Sub openSheet(iSheet, sqlFile) '必要なら、シートを追加する If iSheet > excelBook.WorkSheets.Count Then excelBo…

SQL で FizzBuzz

with a as ( select 0 as n from dual union all select 1 from dual ) select case when mod(n, 3) = 0 and mod(n, 5) = 0 then 'FizzBuzz' when mod(n, 3) = 0 then 'Fizz' when mod(n, 5) = 0 then 'Buzz' else to_char(n) end from ( select a01.n + a02…

Java で ADO

import com.jacob.com.*; import com.jacob.activeX.*; public class Lesson002 { public static void main(String[] args) { ActiveXComponent cn = new ActiveXComponent("ADODB.Connection"); try { Dispatch.call(cn ,"Open", "xxxx", "yyyy", "zzzz"); …