动态改变表名称、表结构 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态改变表名称、表结构

共有1857人关注过本帖树形打印复制链接主题：动态改变表名称、表结构

wmh

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：46 积分：515 威望：0 精华：0 注册：2015/8/24 20:19:00

动态改变表名称、表结构 发帖心情

Post By：2018/12/4 11:06:00 [只看该作者]

老师，如果用代码改变表的名称、表的结构？我查找帮助，查了一上午都没有找到如何操作。谢谢了

wmh

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：46 积分：515 威望：0 精华：0 注册：2015/8/24 20:19:00

Post By：2018/12/4 11:15:00 [只看该作者]

终于找到了，不用麻烦老师了。谢谢！

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/4 11:17:00 [只看该作者]

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

wmh

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：46 积分：515 威望：0 精华：0 注册：2015/8/24 20:19:00

Post By：2018/12/4 14:02:00 [只看该作者]

老师，以表A为例。我想删除表A的现有列，然后增加列并设定列名称。下列代码有错误。

Dim Builder As New ADOXBuilder

dim i as integer

Builder.Open() '打开ADOXBuilder

With Builder.Tables("表A")

' For i =0 To Tables("表A") .Cols.Count

.DeleteColumn(i)

' Next

' For i As Integer=1 To 10

' .AddColumn(i,ADOXType.String, 250) '增加字符型列,长度指定为250

'Next

End With

Builder.Close() '关闭ADOXBuilder

错在哪里？

谢谢了

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/4 14:48:00 [只看该作者]

Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
With Builder.Tables("表A")
    For Each c As Col In Tables("表A").Cols
        If c.DataCol.Expression = "" Then
            .DeleteColumn(c.name)
        End If
    Next
    For i As Integer=1 To 10
        .AddColumn("列" & i,ADOXType.String, 250) '增加字符型列,长度指定为250
    Next
End With
Builder.Close() '关闭ADOXBuilder
DataTables.Unload("表A")
DataTables.load("表A")