以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]ADOXBuilder新增表时如何判断是否已经存在同名表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=183827)

--  作者:洮沙
--  发布时间:2022/11/15 11:07:00
--  [求助]ADOXBuilder新增表时如何判断是否已经存在同名表
问题1如题,问题2:新增列如何判断是否存在同名列?麻烦老师指导一下,谢谢!
--  作者:有点蓝
--  发布时间:2022/11/15 11:10:00
--  
定义一个集合,每添加一个列时判断一下集合是否有这个列名,,如果没有就添加列,同时把列名放入集合。
--  作者:洮沙
--  发布时间:2022/11/15 11:42:00
--  
蓝版,列好判断,增加表怎么判断呢?
[此贴子已经被作者于2022/11/15 11:47:10编辑过]

--  作者:有点蓝
--  发布时间:2022/11/15 11:48:00
--  
if 集合.contains("xx列") = false then
.AddColumn("xx列" ,ADOXType.String12)
集合.add("xx列"
end if

--  作者:洮沙
--  发布时间:2022/11/15 11:54:00
--  
增加列前判断没有问题了。

新增表前怎么判断是否已经有同名表存在?这个不会了!
Dim Builder As New ADOXBuilder("nwnd") \'要指定数据源名称
Dim
tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable(
"订单") \'创建表
With
tbl
    .AddColumn(
"日期" ,ADOXType.DateTime)
    .AddColumn(
"产品" ,ADOXType.String, 12)
    .AddColumn(
"客户" ,ADOXType.String, 20)
    .AddColumn(
"数量" ,ADOXType.Integer)
    .AddColumn(
"备注" ,ADOXType.Text)
End With
Builder.AddTable(tbl, True, True)
\'增加表
Builder.Close()

--  作者:有点蓝
--  发布时间:2022/11/15 11:58:00
--  
http://www.foxtable.com/webhelp/topics/1943.htm
--  作者:洮沙
--  发布时间:2022/11/15 12:01:00
--  
OK!