ADODB.Recordset で Recordset.Fields.Append の 初期値(FieldValue)が設定できない

Question

前提・実現したいこと

Recordsetを新規作成し、Fieldを追加、Fieldに初期値を追加したい

発生している問題・エラーメッセージ

実行時エラー '3001':引数が間違った型、許容範囲外、または競合しています。

該当のソースコード

Sub Main()
    Dim adoRs As New ADODB.Recordset
    With adoRs
        With .Fields
            .Append "処理日", adDate, , , Now
            .Append "列1", adVarChar, 255, , "倉庫"
        End With
        .Open
    End With
End Sub

試したこと

型がダメかと思い、.Append "処理日", adVarChar, , , Format(Now, "yyyy/mm/dd hh:nn:ss")にしたり、
.Append "処理日", adDate, , , Nowを無視して次の行を実行したが、同じエラー
FieldValueを無しにした.Append "処理日", adDateならOK

参照設定

Microsoft ActiveX Data Objects 6.1 Library

Answer 1

Append メソッド (ADO) | Microsoft Docs

公式のヘルプがちょっとわかりにくいですが、

FieldValue パラメーターは、Field オブジェクトを Record オブジェクトに (Recordset オブジェクトではなく) 追加する場合にのみ有効です。Record オブジェクトは、フィールドの追加と値の設定を同時に行うことができます。Recordset オブジェクトの場合は、Recordset を閉じた状態でフィールドを作成し、その後、Recordset を開いてフィールドに値を設定する必要があります。

とあるように、Fields.Appendで初期値を設定できるのはADODB.Recordオブジェクトのみとなります。

もし、Recordsetに追加する全ての行に同じ値を設定したい、という事であれば
以下のようにAddNewをするときに初期値を渡してあげると若干マシになるかもしれません。

Sub Main()
    Dim adoRs As New ADODB.Recordset
    With adoRs
        Dim proccessedTime As Date
        processedTime = Now
        
        With .Fields
            .Append "処理日", adDate
            .Append "列1", adVarChar, 255, , "倉庫"
        End With
        .Open
        
        adoRs.AddNew "処理日", proccessedTime '行追加と同時に、「処理日」フィールドにproccessedTimeを設定。
        'あとは普通に値を設定。
    End With
End Sub

また、文字列にadVarCharを使うと、いわゆる環境依存文字が含まれる場合にエラーになりますので注意が必要です(adVarWCharなどであれば、VBAで扱える文字は基本入るはずです)。

Comments

[woria]

丁寧にありがとうございます。
RecordsetではなくRecordは利用したことがなかったので、後程調べてみます。
文字通りなら、Recordset = Record Collection ?

今回の案件では環境依存文字はないのですが、念のためadVarCharではなく、adVarWCharの方を使っていきたいと思います。

Answer 2

ADODBを使うなら、SQLのLTER TABLEを使うことになります。

下記が参考になるでしょう。

特定フィールドに既定値を設定したい - マイクロソフト コミュニティ

Comments

[woria]

今回のマクロではADODB.ConnectionやSQLを利用しません。
DAOを使わず、ADODB.Recordsetを新しく用意して、マクロ内でAppendする場合はDefaultValueを使うことはできないという認識でよろしいでしょうか。

[hatena19]

テーブルを作成せずに、メモリ上でレコードセットを作成するということでしょうか（インメモリレコードセット）。ならば、そういう認識でいいと思います。