文字列型のフィールドを挿入したい

Question

実現したいこと

EXCELでレコードセットを新規に作成しようとしています。
文字列型のフィールドを作成したいのですが、何故かエラーになってしまいます。
理由が分からないので、知見をください。

前提

EXCELの標準モジュールでコードを書いています。

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

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

該当のソースコード

VBA

ソースコード

Sub Test1()　'Microsoft ActiveX Data Objects6.1 Library参照設定済

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
    
    With .Fields
    
        .Append "ID", adVarChar　　　　’ここでエラー
        .Append "Name", adVarChar　　’ここでもエラー
        .Append "Score", adInteger
    
    End With
    
    .Open
    
    .AddNew
    
        !ID = "001"
        !Name = "一郎"
        !Score = 50
    
    .Update

End With

Cells(1, 1).CopyFromRecordset rs

rs.Close: Set rs = Nothing



End Sub
### 試したこと

.Append "ID", adVarChar　　の箇所でエラーになります。
インテリセンスで選択したのですが、何がいけないのかわかりません。
ちなみに[adChar] を選択しても同じエラーになりました。
[adVariant](Variant型？)を選択すればうまくいくのですが。。。

### 補足情報（FW/ツールのバージョンなど）

Office　365


よろしくお願いします。

Comments

[sazi]

DBのOPENはしていますか?

[u_zu]

saziさん　
DBのOPENはしていません。　今回　新たに設定したので、DBは存在していない、という認識です。
adVarChar　の代わりに　adVariant　を設定すればうまくいくので、DBのOPENは　今回の問題点では
ない、というように思っていました。

[sazi]

保存先のaccessに対するconnection(接続情報)を指定してDBをopenする事で、当該のデータに保存が出来ます。

[hatena19]

saziさん
データベースに接続せずにメモリ上でレコードセットを生成して操作するということは可能です。

kanaMind: Memory上でRecordsetを使用する
https://kanamind.blogspot.com/2011/10/memoryrecordset.html

ただ、エクセルでデータ操作(フィルター、ソートなど)は可能なので、わさわざインメモリレコードセットを使う必然性は疑問です。
そのため情報はすくないですね。

[sazi]

hatena19さん>
成程。ありがとうございます。
data tableのような使い方をしているという事ですね。
タグにAccessがあったのでてっきりAccessに保存しているものとばかり思っていました。

Answer 1

テキスト型のフィールドはサイズ(DefinedSize引数)を設定する必要があるようです。
下記のコードで問題なく動作するのを確認しました。

    With .Fields
    
        .Append "ID", adVarChar, 255
        .Append "Name", adVarChar, 255
        .Append "Score", adInteger
    
    End With

Comments

[u_zu]

hatena19さん

ありがとうございます。

＞テキスト型のフィールドはサイズ(DefinedSize引数)を設定する必要があるようです。

というような情報はどこで(どのようなサイトで)分かるのでしょうか？
ネットを見ても分からなかったので。。。教えてください。

また、「Append "ID", 」と入力した後に表示される、インテリセンスを見ると、
Type As DataTypeEnum の後ろは[]で囲われている項目のようです。
これを見て、引数が必須項目ではない、と思っていました。

[hatena19]

https://learn.microsoft.com/ja-jp/office/client-developer/access/desktop-database-reference/append-method-ado

上記の公式ドキュメントでも省略可能とはなっています。
ただ、経験上、公式ドキュメントでもたまに間違いがあるし、英語から翻訳する場合に誤訳もあります。
ということで、ドキュメント通りでもエラーが出る場合はけっこうあります。

実際に試してみて、エラーがでずに実行できたという情報提供です。そのため「あるようです。」と言葉を濁しています。

Accessでテーブルのフィールドをデザインビューで設定するとき、フィールドサイズの設定を省略するとことができないということから設定する必要があるのではと思い、実際に試してみた結果です。

[u_zu]

hatena19さん

ありがとうございます。　参考になりました。