Foxtable(狐表)用户栏目专家坐堂 → [求助] 未能批量动态增加列


  共有1403人关注过本帖树形打印复制链接

主题:[求助] 未能批量动态增加列

帅哥哟,离线,有人找我吗?
Darcylau
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:55 积分:439 威望:0 精华:0 注册:2017/6/5 21:39:00
[求助] 未能批量动态增加列  发帖心情 Post By:2018/3/13 22:31:00 [只看该作者]

老师,你好!
我们需要在原有的产品表中批量增加114个数据列,想用动态修改表结构来实现。

我们在新打开的表中测试,按帮助动态修改表结构,在命令窗口复制代码并执行,但是显示错误。


此主题相关图片如下:qq图片20180313222815.png
按此在新窗口浏览图片

[此贴子已经被作者于2018/3/13 22:32:08编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:23887 积分:121851 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/13 22:52:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:74445 积分:373353 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/14 9:16:00 [只看该作者]

你如果执行多次同样的代码,就有可能报错。因为你已经添加了某列,你再添加,列名重复了,肯定会报错。

 回到顶部
帅哥哟,离线,有人找我吗?
Darcylau
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:55 积分:439 威望:0 精华:0 注册:2017/6/5 21:39:00
  发帖心情 Post By:2018/3/27 22:39:00 [只看该作者]

老师,你好!
我们需要在原有的产品表中批量增加个数据列,想用动态修改表结构来实现。

我们在新打开的表中测试,按帮助动态修改表结构,在命令窗口复制代码并执行,但是显示错误。


此主题相关图片如下:qq图片20180327223506.png
按此在新窗口浏览图片

我在查看表结构对话框中手动添加数据列,显示同样的错误。


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:23887 积分:121851 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/27 23:11:00 [只看该作者]

MDAC修复了没有?

https://jingyan.baidu.com/article/d5a880ebd7792513f147ccda.html

https://jingyan.baidu.com/article/495ba84113c84938b30ede3a.html

https://www.baidu.com/baidu?word=80004005

 回到顶部
帅哥哟,离线,有人找我吗?
Darcylau
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:55 积分:439 威望:0 精华:0 注册:2017/6/5 21:39:00
  发帖心情 Post By:2018/3/28 12:48:00 [只看该作者]

老师,您好!
二楼时已经修复了MDAC的(0x80040E3E), 之后动态批量增加列没有问题。

但今天同样批量增加列时出现错误是(0x80004005),我按您的提示,修改成功了regsvr32 Softpub.dll和regsvr32 Wintrust.dll, 但是regsvr32 Initpki.dll 修复不了,弹出错误提示:

图片点击可在新窗口打开查看此主题相关图片如下:qq图片2.png
图片点击可在新窗口打开查看
批量或者手动增加列时,依然提示错误。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:74445 积分:373353 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/28 12:59:00 [只看该作者]

手动通过菜单增加列,也报错?新建的一个项目,也是这样?如果是修复mdac

 

http://www.foxtable.com/webhelp/scr/2715.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
Darcylau
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:55 积分:439 威望:0 精华:0 注册:2017/6/5 21:39:00
  发帖心情 Post By:2018/3/28 14:09:00 [只看该作者]

老师,你好!
手动增加列可以,新建项目批量增加列也可以。
只是原来的项目批量增加列不可以。很蹊跷。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:74445 积分:373353 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/28 14:25:00 [只看该作者]

以下是引用Darcylau在2018/3/28 14:09:00的发言:
老师,你好!
手动增加列可以,新建项目批量增加列也可以。
只是原来的项目批量增加列不可以。很蹊跷。

 

贴出你写的代码。或者执行下面代码测试,如

 

Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
With Builder.Tables("表A")
    .AddColumn("日期abc" ,ADOXType.DateTime) '增加日期型列
End With
Builder.Close() '关闭ADOXBuilder


 回到顶部
帅哥哟,离线,有人找我吗?
Darcylau
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:55 积分:439 威望:0 精华:0 注册:2017/6/5 21:39:00
  发帖心情 Post By:2018/3/28 17:50:00 [只看该作者]

老师,执行了您的代码,显示同样的错误。我的代码如下:

Dim Builder As New ADOXBuilder '批量增加生产单表中的型材数据列

Builder.Open() '打开ADOXBuilder

With Builder.Tables("生产单")

    .AddColumn("SGLG",ADOXType.String,7)'增加上轨拉杆编号

    .AddColumn("SGLGm",ADOXType.String,10)'增加上轨拉杆名称

    .AddColumn("SGLGt",ADOXType.Text)'增加上轨拉杆截面图  

    .AddColumn("SGLGx",ADOXType.String,2)'增加上轨拉杆形状

    .AddColumn("SGLGi",ADOXType.Byte)'增加上轨拉杆数量

    .AddColumn("SGLG2",ADOXType.String,7)'增加上轨拉杆2编号

    .AddColumn("SGLG2m",ADOXType.String,10)'增加上轨拉杆2名称

    .AddColumn("SGLG2t",ADOXType.Text)'增加上轨拉杆2截面图

    .AddColumn("SGLG2x",ADOXType.String,2)'增加上轨拉杆2形状

    .AddColumn("SGLG2i",ADOXType.Byte)'增加上轨拉杆2数量

    .AddColumn("XGLG",ADOXType.String,7)'增加下轨地梁编号

    .AddColumn("XGLGm",ADOXType.String,10)'增加下轨地梁名称

    .AddColumn("XGLGt",ADOXType.Text)'增加下轨地梁截面图

    .AddColumn("XGLGx",ADOXType.String,2)'增加下轨地梁形状

    .AddColumn("XGLGi",ADOXType.Byte)'增加下轨地梁数量

    .AddColumn("XGLG2",ADOXType.String,7)'增加下轨地梁2编号

    .AddColumn("XGLG2m",ADOXType.String,10)'增加下轨地梁2名称

    .AddColumn("XGLG2t",ADOXType.Text)'增加下轨地梁2截面图    

    .AddColumn("XGLG2x",ADOXType.String,2)'增加下轨地梁2形状

    .AddColumn("XGLG2i",ADOXType.Byte)'增加下轨地梁数量

    .AddColumn("QSQL",ADOXType.String,7)'增加前锁墙料编号

    .AddColumn("QSQLm",ADOXType.String,10)'增加前锁墙料名称

    .AddColumn("QSQLt",ADOXType.Text)'增加前锁墙料截面图

    .AddColumn("QSQLx",ADOXType.String,2)'增加前锁墙料形状

    .AddColumn("QSQLi",ADOXType.Byte)'增加前锁墙料数量

    .AddColumn("QSQL2",ADOXType.String,7)'增加前锁墙料2编号

    .AddColumn("QSQL2m",ADOXType.String,10)'增加前锁墙料2名称

    .AddColumn("QSQL2t",ADOXType.Text)'增加前锁墙料2截面图

    .AddColumn("QSQL2x",ADOXType.String,2)'增加前锁墙料2形状

    .AddColumn("QSQL2i",ADOXType.Byte)'增加前锁墙料2数量

    .AddColumn("CSQL",ADOXType.String,7)'增加侧锁墙料编号

    .AddColumn("CSQLm",ADOXType.String,10)'增加侧锁墙料名称

    .AddColumn("CSQLt",ADOXType.Text)'增加侧锁墙料截面图

    .AddColumn("CSQLx",ADOXType.String,2)'增加侧锁墙料形状

    .AddColumn("CSQLi",ADOXType.Byte)'增加侧锁墙料数量

    .AddColumn("TL",ADOXType.String,7)'增加套料编号

    .AddColumn("TLm",ADOXType.String,10)'增加套料名称

    .AddColumn("TLt",ADOXType.Text)'增加套料截面图

    .AddColumn("TLx",ADOXType.String,2)'增加套料形状

    .AddColumn("TLi",ADOXType.Byte)'增加套料数量

    .AddColumn("TL2",ADOXType.String,7)'增加套料2编号

    .AddColumn("TL2m",ADOXType.String,10)'增加套料2名称

    .AddColumn("TL2t",ADOXType.Text)'增加套料2截面图

    .AddColumn("TL2x",ADOXType.String,2)'增加套料2形状

    .AddColumn("TL2i",ADOXType.Byte)'增加套料2数量

End With

Builder.Close()'关闭ADOXBuilder


 回到顶部
总数 22 1 2 3 下一页