あるSEのつぶやき・改

ITやシステム開発などの技術に関する話題を、取り上げたりしています。

PowerShell, Access データベースを ADO のパラメータクエリで更新する

PowerShell

PowerShell を使って Access のデータベースにアクセスするには、実行環境や接続文字列に注意点があります。この点の詳しい内容は以下の記事を参照してください。

Access データベースに、既存の技術である ADO のパラメータクエリを用いて、テーブルのデータを更新するサンプルを提示します。

詳細はコメントを付けてあるので分かると思いますが、スクリプトと同じディレクトリにある Access のデータベースファイル (test.mdb or test.accdb) にアクセスし、以下のテーブルを更新します。

  • テーブル名：tblUsers
  • フィールド情報
    • USER_ID (varchar (255))
    • USER_NAME (varchar (255))

本当は、$con.Execute() の戻り値で返ってくるレコードセットを更新しようと思ったのですが、このレコードセットは読み取り専用になるということです。どうも、パラメータクエリを使用した場合はレコードセットで更新する方法はないようですね。

まあ、SQL の実行で更新はできますので問題はないのですけどね。

では、サンプルスクリプトを以下に示します。

#
#  PowerShell から ADO のパラメータクエリでレコードを更新する
#


# 変数を宣言
$adVarChar = 200
$adParamInput = 1
$con = New-Object -ComObject ADODB.Connection  

# スクリプトのカレントディレクトリを取得
$path = Split-Path $MyInvocation.MyCommand.Path -Parent

# スクリプトのカレントディレクトリのデータベースパスを作成
$path = Join-Path $path "test.mdb" # test.accdb でも可


# 拡張子によって接続文字列を切り替える

# MDB 形式の場合
if (([System.IO.Path]::GetExtension($path)) -eq ".mdb") {
  $connectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = $path"

# ACCDB 形式の場合
} elseif(([System.IO.Path]::GetExtension($path)) -eq ".accdb") {
  $connectionString = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = $path"

# 上記以外は例外をスロー
} else {
  throw New-Object System.Exception("Access 拡張子エラー")
}

# 接続をオープン
$con.Open($connectionString)

# パラメータクエリの SQL 宣言
$sql = "UPDATE tblUsers SET USER_NAME = ? WHERE USER_ID = ?"

# ADO のコマンドオブジェクトを生成
$cmd = New-Object -ComObject ADODB.Command
$cmd.ActiveConnection = $con
$cmd.CommandType = 1 #adCmdText:変数を割り当てるを型エラーになる
$cmd.CommandText = $sql
$cmd.Prepared = $true

# パラメータを生成して追加
$param = $cmd.CreateParameter("USER_NAME", $adVarChar, $adParamInput, 255)
$cmd.Parameters.Append($param)

$param = $cmd.CreateParameter("USER_ID", $adVarChar, $adParamInput, 255)
$cmd.Parameters.Append($param)

# パラメータに値を設定
$cmd.Parameters["USER_NAME"].Value = "佐藤太郎"
$cmd.Parameters["USER_ID"].Value = "003"

# SQL を実行してレコードを更新
[void]$cmd.Execute()

# 接続を閉じる
$con.Close()

# COM オブジェクトをリリース(Excelと違ってなくても問題ないけど一応)  
[void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($con)