Oracle
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…
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" …
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…
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…
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"); …