Foxtable(狐表)用户栏目专家坐堂 → 看帮助联想到的一个扩展,有大神帮忙的吗


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

主题:看帮助联想到的一个扩展,有大神帮忙的吗

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


加好友 发短信
等级:婴狐 帖子:39 积分:348 威望:0 精华:0 注册:2013/6/16 11:56:00
看帮助联想到的一个扩展,有大神帮忙的吗  发帖心情 Post By:2014/3/28 8:27:00 [只看该作者]

今日看帮助,看到动态修改表结构,这一章

其中有一个内容如下所示:

重命名列

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

Dim Builder As New ADOXBuilder
Builder.Open()

With
Builder.Tables("A")
    .
RenameColumn("第一列","姓名")
End With

Builder
.Close()

然后重新打开项目,表A的"第一列"已经被重命名为"姓名"。

 

我想,如果我现在在表A上创建一个窗口,窗口上有控件textbox1 、 textbox2和确定按钮,在textbox1里输入一个字段,比如第一列,在textbox2里输入字段,比如姓名,那么按下确定键后,第一列就会被改为姓名。

也就是说依据控件内容来重命名列。该怎么弄啊


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


加好友 发短信
等级:婴狐 帖子:39 积分:348 威望:0 精华:0 注册:2013/6/16 11:56:00
  发帖心情 Post By:2014/3/28 8:27:00 [只看该作者]

沙发坐等

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


加好友 发短信
等级:管理员 帖子:47497 积分:251397 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/3/28 8:28:00 [只看该作者]

Dim Builder As New ADOXBuilder
Builder.Open()

With
Builder.Tables("A")
    .
RenameColumn("第一列", e.Form.Controls("TextBox1").Value)
End With

Builder
.Close()

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


加好友 发短信
等级:婴狐 帖子:39 积分:348 威望:0 精华:0 注册:2013/6/16 11:56:00
回复:(狐狸爸爸)Dim Builder As New ADOXBuilderBu...  发帖心情 Post By:2014/3/28 8:33:00 [只看该作者]

我昨天傍晚的时候就是这么写的,好像不管事

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


加好友 发短信
等级:婴狐 帖子:39 积分:348 威望:0 精华:0 注册:2013/6/16 11:56:00
  发帖心情 Post By:2014/3/28 8:37:00 [只看该作者]

提示的是这个,HRESULT:0x800A0CC1

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


加好友 发短信
等级:管理员 帖子:47497 积分:251397 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/3/28 8:41:00 [只看该作者]

说明问题不在于此,可能原因:

http://www.foxtable.com/help/topics/2715.htm

 

 

记得如果第一列已经重命名,再次执行会出错,因为第一列已经不存在。

 

 


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


加好友 发短信
等级:婴狐 帖子:39 积分:348 威望:0 精华:0 注册:2013/6/16 11:56:00
回复:(狐狸爸爸)说明问题不在于此,可能原因:ht...  发帖心情 Post By:2014/3/28 9:35:00 [只看该作者]

OK!果然按了这个后就好了

谢谢狐爸爸

 


 回到顶部