Foxtable(狐表)用户栏目专家坐堂 → 在已有的表增加列


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

主题:在已有的表增加列

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


加好友 发短信
等级:七尾狐 帖子:1762 积分:4605 威望:0 精华:0 注册:2017/11/8 17:37:00
在已有的表增加列  发帖心情 Post By:2021/12/1 11:57:00 [显示全部帖子]

Dim na = e.form.Controls("TextBox1").Text       ‘’‘’‘’‘’‘’‘’‘表名
Dim nam = e.form.Controls("TextBox2").Text     ‘’‘’‘’’‘’‘’列代码
Dim Builder As New ADOXBuilder("YB") '要指定数据源名称
Builder.Open()
With Builder.Tables(na)
    .AddColumn(nam & "001" ,ADOXType.DateTime)
    .AddColumn(nam & "002" ,ADOXType.String, 255)
    .AddColumn(nam & "003" ,ADOXType.String, 255)
    .AddColumn(nam & "004" ,ADOXType.String, 255)
    .AddColumn(nam & "005" ,ADOXType.String, 255)
    .AddColumn(nam & "006" ,ADOXType.String, 255)
  
End With
Builder.AddTable(na,True,True) 
Builder.Close()
Syscmd.Project.Open(ProjectFile)
不知哪里出错了,增加不了

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


加好友 发短信
等级:七尾狐 帖子:1762 积分:4605 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2021/12/1 12:26:00 [显示全部帖子]

Dim Builder As New ADOXBuilder("YB") '要指定数据源名称
是外表

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


加好友 发短信
等级:七尾狐 帖子:1762 积分:4605 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2021/12/1 15:22:00 [显示全部帖子]

增加表可以,增加列怎么会这样
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20211201152222.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:七尾狐 帖子:1762 积分:4605 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2022/5/10 11:17:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20220510111104.png
图片点击可在新窗口打开查看

对过表名与数据库的表名是一致的,
可能是直接从数据库修改了表名
不知这个有没有问题

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


加好友 发短信
等级:七尾狐 帖子:1762 积分:4605 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2022/5/10 12:06:00 [显示全部帖子]

操作时出错,重入后又已增加了列

 回到顶部