ONLY DO WHAT ONLY YOU CAN DO

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

ADO

フォルダ内の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…

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