以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么样写外部数据源表是否存在的语句？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19604)
--  作者：today_ok
--  发布时间：2012/5/15 20:55:00
--  怎么样写外部数据源表是否存在的语句？


Dim Builder As New ADOXBuilder("dghm") \'要指定数据源名称

Dim tbl As ADOXTable
Builder.Open()

With Builder
    .DeleteTable("订单")  \'删除表
End With

tbl = Builder.NewTable("订单") \'创建表
With tbl
    .AddColumn("订单" ,ADOXType.String,30)
    .AddColumn("产品" ,ADOXType.String, 30)
    End With
Builder.AddTable(tbl) \'增加表
Builder.Close()

 

 

 

 

各位高手，这样写出错，提示删除时没有订单表，我怎么样加一段代码来判断数据源是否有此表存在，如果有则删除，没有则执行下面的创建动作。。

 
--  作者：狐狸爸爸
--  发布时间：2012/5/15 22:16:00
--  

这里有答案：

 

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