以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  动态修改结构报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140438)

--  作者:yifan3429
--  发布时间:2019/9/5 16:30:00
--  动态修改结构报错
Dim Builder As New ADOXBuilder("2019ERP") \'要指定数据源名称
\'Dim Builder As New ADOXBuilder
Builder.Open() \'打开ADOXBuilder
With Builder.Tables("员工奖惩记录")
    .AddColumn("日期" ,ADOXType.DateTime) \'增加日期型列
    .AddColumn("姓名" ,ADOXType.String, 12) \'增加字符型列,长度指定为12
    .AddColumn("身份证" ,ADOXType.String, 20) \'增加字符列,长度为20
    .AddColumn("备注" ,ADOXType.Text) \'增加备注列
End With
Builder.Close() \'关闭ADOXBuilder

---------------------------
版本:2019.9.8.1
---------------------------
代码执行出错,错误信息:



System.Runtime.InteropServices.COMException (0x80040E3E): 异常来自 HRESULT:0x80040E3E

   在 ADOX.Columns.Append(Object Item, DataTypeEnum Type, Int32 DefinedSize)

   在 Foxtable.ADOXTable.AddColumn(String Name, ADOXType DataType, Int32 Length)

   在 UserCode.Test()
---------------------------
确定   
---------------------------


--  作者:有点蓝
--  发布时间:2019/9/5 16:43:00
--  
看看数据库是不是已经有同名的列了
--  作者:yifan3429
--  发布时间:2019/9/5 16:49:00
--  
没有重复的列
--  作者:有点蓝
--  发布时间:2019/9/5 16:52:00
--  
我测试没有问题。上传实例说明