はじめに
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
PostgreSQL完全機能リファレンス―実行例を通して「理解」を深める。
posted with amazlet at 10.08.18
鈴木 啓修
秀和システム
売り上げランキング: 149690
秀和システム
売り上げランキング: 149690
おすすめ度の平均:
役に立ちますまさに「完全機能」
PostgreSQLリファレンスの新定番