Foxtable(狐表)用户栏目专家坐堂 → [求助]增加列的代码,怎么调?


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

主题:[求助]增加列的代码,怎么调?

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


加好友 发短信
等级:幼狐 帖子:82 积分:760 威望:0 精华:0 注册:2016/9/14 10:04:00
[求助]增加列的代码,怎么调?  发帖心情 Post By:2016/10/15 22:41:00 [只看该作者]

 Dim bd As new  ADOXBuilder("管理数据")

bd.Open()

bd.Tables("供应商库").AddColumn("lm",ADOXType.Text)

bd.Close()



“管理数据”是Access数据库名!


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2016/10/16 7:08:00 [只看该作者]

增加列

在命令窗口执行下面的代码:

Dim Builder As New ADOXBuilder("数据源名称")
Builder.Open()
'打开ADOXBuilder
With
Builder.Tables("表A")
    .AddColumn(
"日期" ,ADOXType.DateTime) '增加日期型列
    .AddColumn(
"产品" ,ADOXType.String, 12) '增加字符型列,长度指定为12
    .AddColumn(
"客户" ,ADOXType.String, 20) '增加字符列,长度为20
    .AddColumn(
"数量" ,ADOXType.Integer) '增加整数型列
    .AddColumn(
"备注" ,ADOXType.Text) '增加备注列
End
With
Builder.Close()
'关闭ADOXBuilder



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

[此贴子已经被作者于2016/10/16 7:09:00编辑过]

 回到顶部