以文本方式查看主题

-  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=131750)
--  作者：hongye
--  发布时间：2019/3/5 23:07:00
--  请问SQL查询的问题
请问：如果我想在外部数据源里查找指定的表这个代码怎么写？
比如我要查找外部数据源“tset”里是否有“客户表”，如果没有就增加一个“客户表”，里面有客户编号，客户名称，客户税号等，请问这个代码怎么写？
--  作者：有点蓝
--  发布时间：2019/3/5 23:10:00
--  
参考：http://www.foxtable.com/webhelp/scr/1943.htm
--  作者：hongye
--  发布时间：2019/3/5 23:41:00
--  
Dim ssw As String = "客户表"
Dim lst As List(Of String)
lst = Connections("彬阳数据").GetTableNames
For Each nm As String In lst
    If ssw = nm Then
        Output.Show(nm)
    Else
        Dim Builder As New ADOXBuilder("彬阳数据") \'要指定数据源名称
        Dim tbl As ADOXTable
        Builder.Open()
        tbl = Builder.NewTable("客户表") \'创建表
        With tbl
            .AddColumn("客户编号" ,ADOXType.String, 50)
            .AddColumn("客户税号" ,ADOXType.String, 60)
            .AddColumn("客户名称" ,ADOXType.String, 120)
            .AddColumn("客户地址" ,ADOXType.String, 120)
            .AddColumn("备注" ,ADOXType.Text)
        End With
        Builder.AddTable(tbl, True, True) \'增加表
        Builder.Close()
    End If
Next


是这样吗？
--  作者：有点甜
--  发布时间：2019/3/6 9:00:00
--  
Dim ssw As String = "客户表"
Dim lst As List(Of String)
lst = Connections("彬阳数据").GetTableNames
If lst.Contains(ssw) = False Then
   
    Dim Builder As New ADOXBuilder("彬阳数据") \'要指定数据源名称
    Dim tbl As ADOXTable
    Builder.Open()
    tbl = Builder.NewTable("客户表") \'创建表
    With tbl
        .AddColumn("客户编号" ,ADOXType.String, 50)
        .AddColumn("客户税号" ,ADOXType.String, 60)
        .AddColumn("客户名称" ,ADOXType.String, 120)
        .AddColumn("客户地址" ,ADOXType.String, 120)
        .AddColumn("备注" ,ADOXType.Text)
    End With
    Builder.AddTable(tbl, True, True) \'增加表
    Builder.Close()
End If