切断されたADOレコードセットの作成中にエラーが発生しました

Question

メモフィールド（adLongVarWChar）を含むADOで切断されたレコードセットを作成しようとしています。 何らかの理由で、adVarWCharに変換されて戻ってきます。 私は何が間違っていますか？

Private Sub Form_Load() 
Dim rs As New Recordset 

    rs.Fields.Append "test", adLongVarWChar, 512, adFldIsNullable Or adFldLong Or adFldMayBeNull Or adFldMayDefer Or adFldUnknownUpdatable 
    Debug.Print rs.Fields(0).Type & " <- This should be 203 (adLongVarWChar) but it returns 202 (adVarWChar)" 

    Unload Me 
End Sub 

Answer 1

結局のところ、何らかの理由で、あなたが最初のレコードを追加する必要があり、その後、データ型が正しく返されます。

Private Sub Form_Load() 
Dim rs As New Recordset 

    rs.Fields.Append "test", adLongVarWChar, &H7FFFFFFF, adFldIsNullable Or adFldLong Or adFldMayBeNull Or adFldMayDefer Or adFldUnknownUpdatable 
    Debug.Print rs.Fields(0).Type & " <- This should be 203 (adLongVarWChar) but it returns 202 (adVarWChar)" 
    rs.Open 
    rs.AddNew 
    rs.Update 
    Debug.Print rs.Fields(0).Type & " <- This is now 203 (adLongVarWChar)" 

    Unload Me 
End Sub