同じようなことをやっているので、手元にあるものをサンプルとして提供します。
接続情報等は適宜変更して下さい。
私が実際に行っているのは、DB側にストアドを準備して、そのストアドを呼び出す為に行っています。
VBS側では起動の制御とその進捗状況をIEに表示させています(※このサンプルでは進捗表示は割愛)
尚、CSVファイルのインポートはCOPYコマンドを使用するとINSERTなどを使用するより格段に高速です。
VBS
1 Option Explicit
2 '---------------------------------------------------------------
3 '定数
4 '---------------------------------------------------------------
5 'ODBC Connection
6 Private Const DB_SERVER = "SERVER=localhost;" 'DBサーバー名
7 Private Const DATABASE = "DATABASE=dadabase_name;" 'DB名
8
9 Private Const DB_DRIVER = "DRIVER={PostgreSQL ODBC Driver(UNICODE)};" 'ODBCドライバー名
10 Private Const DB_PORT = "PORT=5432;" 'ポート
11 Private Const DB_UID = "UID=userid;" 'ユーザー名
12 Private Const DB_PWD = "PWD=password;" 'パスワード
13 '----------------------------------------------------------------
14 '環境設定部
15 '----------------------------------------------------------------
16 'ADOオブジェクトを作成します
17 Dim objADO: Set objADO = CreateObject("ADODB.Connection")
18 Dim objRS
19 Dim Connection: Connection = DB_DRIVER & DB_SERVER & DB_PORT & DB_UID & DB_PWD & DATABASE
20
21 objADO.ConnectionTimeout=0 'コネクションタイムアウト(無制限)
22 objADO.CommandTimeout=0 'コマンドタイムアウト(無制限)
23
24 'ADOを使いデータソースをオープンします
25 objADO.Open Connection
26
27 '----------------------------------------------------------------
28 '実行部
29 '----------------------------------------------------------------
30 Dim wSQL
31 '処理の実行
32 wSQL = "何某かのSQL文"
33 Set objRS = objADO.Execute(wSQL)
34 '何某かの後処理
35 '----------------------------------------------------------------
36 'データベースをクローズします
37 objADO.Close
38
39 'オブジェクトの破棄
40 Set objRS = Nothing
41 Set objADO = Nothing
42 Wscript.Quit
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/12/14 07:04
2017/12/14 07:08
2017/12/14 07:13
2017/12/14 08:16
2017/12/14 14:56 編集
2017/12/15 00:19
2017/12/15 01:31
2017/12/15 01:45
2017/12/15 07:37