以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]卸载数据源所有的表的代码要怎么写？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88296)
--  作者：jiterp
--  发布时间：2016/7/31 9:24:00
--  [求助]卸载数据源所有的表的代码要怎么写？

老师好，求一段代码，谢谢！

 

指定一个数据源，然后卸载这个数据源所有的表。
--  作者：大红袍
--  发布时间：2016/7/31 9:37:00
--  

Dim ls As new List(Of String)
For Each dt As DataTable In DataTables
    If dt.ConnectionName = "abc" Then
        ls.add(dt.name)
    End If
Next
For Each s As String In ls
    DataTables.Unload(s)
Next

[此贴子已经被作者于2016/7/31 9:42:49编辑过]
--  作者：jiterp
--  发布时间：2016/7/31 10:05:00
--  
谢谢