创建断开连接的 ADO 记录集时出错答案

【问题标题】：Error while creating a disconnected ADO recordset创建断开连接的 ADO 记录集时出错
【发布时间】：2023-03-09 17:10:01
【问题描述】：

我正在尝试使用包含备注字段 (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

【问题讨论】：

尝试使用-1 而不是512 的大小。

标签： vb6 ado

【解决方案1】：

事实证明，由于某种原因，您需要先添加一条记录，然后 DataType 才能正确返回：

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

【讨论】：