VBScriptからODBC経由でPostgreSQL8.4を操作する

はじめに

VBScriptからODBCシステムデータソース経由でPostgreSQL8.4を操作してみました。

前回までのエントリは、こちら。

事前準備

VBScriptでPostgreSQLを操作する前に以下の準備を行っておく必要があります。

システムデータソースの登録
データベースとテーブルの作成
テストデータの挿入

VBScriptでPostgreSQLを操作する

以下のようなスクリプトを作成し、コマンドプロンプトから実行すると、tbl_test01テーブルに格納されているレコードを全件表示することができます。

Call Main()
Sub Main()
  Dim connect, rs
  Set connect = CreateObject("ADODB.Connection")
  Call connect.Open("DSN=PostgreSQL35W;UID=postgres;PWD=xxx")
  If Err.Number <> 0 Then
    Call WScript.Echo(Err.Number)
    Call WScript.Echo(Err.Source)
    Call WScript.Echo(Err.Description)
    WScript.Quit(0)
  End If

  Set rs = connect.Execute("SELECT * FROM tbl_test01")
  If Err.Number <> 0 Then
    Call WScript.Echo(Err.Number)
    Call WScript.Echo(Err.Source)
    Call WScript.Echo(Err.Description)
    WScript.Quit(0)
  End If
  If rs.EOF Then
    rs.close
    Set rs = Nothing
    Call WScript.Echo("データがありません")
    WScript.Quit(0)
  End If
  Do While Not rs.EOF
    Call WScript.Echo(rs("id").value & "::" & rs("name").value) 
    rs.Movenext
  Loop
  rs.close
  Set rs = Nothing

  ' コネクションのクローズ
  connect.Close
  Set connect = Nothing
End Sub