以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  看帮助联想到的一个扩展,有大神帮忙的吗  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48387)

--  作者:xalcddonmhp
--  发布时间: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
--  发布时间:2014/3/28 8:27:00
--  
沙发坐等
--  作者:狐狸爸爸
--  发布时间: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
--  发布时间:2014/3/28 8:33:00
--  回复:(狐狸爸爸)Dim Builder As New ADOXBuilderBu...
我昨天傍晚的时候就是这么写的,好像不管事
--  作者:xalcddonmhp
--  发布时间:2014/3/28 8:37:00
--  
提示的是这个,HRESULT:0x800A0CC1
--  作者:狐狸爸爸
--  发布时间:2014/3/28 8:41:00
--  

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

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

 

 

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

 

 


--  作者:xalcddonmhp
--  发布时间:2014/3/28 9:35:00
--  回复:(狐狸爸爸)说明问题不在于此,可能原因:ht...

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

谢谢狐爸爸