使用VBA ADO连接写入DBF小数字段

编程问答 2022-06-03

问题描述

我正在尝试使用VBA中的ADODB连接将新记录添加到DBF表中。在构建表时，有一些数字（十进制）字段的大小设置为4，我无法写入这些字段。

运行时错误'-2147217887（80040e21）'：字段的大小太长。 我试图将所有类型的vba变量都无效。只有Null起作用。

  • 记录集字段属性：
  • Recordset.DefinedSize返回8
  • Recordset.Type返回adDouble 
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBF.Path & ";Extended Properties=dBASE IV;"
sql = "SELECT * FROM " & Left(DBF.Name,(InStrRev(DBF.Name,".",-1,vbTextCompare) - 1))
rs.CursorType = 1
rs.Open sql,con,3
With rs
    .addNew
    .Fields("SIZE_4_FIELD") = myVar 'tried all types
End With
rs.Update

我按照@Alex K的建议手动进行了尝试。

con.Execute "insert into myTable (SIZE_4_Field) values ('123')" 'Field too long Error
con.Execute "insert into myTable (Other_Field) values ('123')" 'Works
con.Execute "insert into myTable (SIZE_4_Field) values (123)" 'Field too long Error
con.Execute "insert into myTable (SIZE_4_Field) values (Null)" 'Works

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）