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