以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎样向未加载的外部数据源SQL表添加一个列？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139277)
--  作者：ytzn
--  发布时间：2019/8/9 15:17:00
--  [求助]怎样向未加载的外部数据源SQL表添加一个列？
通过下述方法增加列，必须是创建个新表，怎样才能向未加载的外部数据源表添加一个列？多谢！


Dim Builder As New ADOXBuilder("wdsj") \'要指定数据源名称
Dim tbl As ADOXTable
Builder.Open() 
tbl = Builder.NewTable("施工部位") \'创建表
With tbl
    .AddColumn("张三" ,ADOXType.String,1)
End With
Builder.AddTable(tbl) \'增加表
Builder.Close()
--  作者：有点蓝
--  发布时间：2019/8/9 15:29:00
--  

增加列

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

Dim Builder As New ADOXBuilder("wdsj")
Builder.Open() \'打开ADOXBuilder
With Builder.Tables("表A")
   .AddColumn("张三" ,ADOXType.String,1)
End With
Builder.Close() \'关闭ADOXBuilder
--  作者：ytzn
--  发布时间：2019/8/9 15:58:00
--  
多谢有点蓝老师！
--  作者：liuzhenguo100
--  发布时间：2019/12/18 9:46:00
--  
外部数据源的“表A”没有通过菜单加载到狐表中，所以无法使用datatables.load("表A")方法，请问如何判断外部数据源的“表A”中，是否存在名称为“张三”列？ 
--  作者：有点蓝
--  发布时间：2019/12/18 9:54:00
--  
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "region"
cmd.CommandText = "SELECT * From {订单}"
dt = cmd.ExecuteReader()

然后遍历dt所有列看有没有“张三”列：http://www.foxtable.com/webhelp/topics/1428.htm