Foxtable(狐表)用户栏目专家坐堂 → 批量增加字段


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

主题:批量增加字段

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


加好友 发短信
等级:九尾狐 帖子:2466 积分:22761 威望:0 精华:0 注册:2011/3/29 17:14:00
批量增加字段  发帖心情 Post By:2019/7/29 17:23:00 [显示全部帖子]

向所有的表增加加入以下列如何做。  上一次编辑人  上一次更新时间   完善度     3列

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


加好友 发短信
等级:九尾狐 帖子:2466 积分:22761 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2019/7/29 23:24:00 [显示全部帖子]

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.Integer) '增加整数型列
    .AddColumn("备注" ,ADOXType.Text) '增加备注列
End With
Builder.Close() '关闭ADOXBuilder
这个是指定给单个表的
向所有的表呢  

 回到顶部