Foxtable(狐表)用户栏目专家坐堂 → [求助]在导入excel表时,想删除已经导入的表


  共有2311人关注过本帖树形打印复制链接

主题:[求助]在导入excel表时,想删除已经导入的表

帅哥哟,离线,有人找我吗?
小美菜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:651 积分:4945 威望:0 精华:0 注册:2016/1/16 22:42:00
[求助]在导入excel表时,想删除已经导入的表  发帖心情 Post By:2016/7/18 23:11:00 [只看该作者]

在导入excel表时,想判断以前是否导入某表名,想删除已经有的表名

Dim ip As New  Importer
Dim tTable As  DataTable=DataTables("tmpx")
If ttable IsNot Nothing Then
  'ttable.delete
End If
ip.SourcePath = "D:\ProcStock\数据库追加.xls"  '指定数据文件
ip.SourceTableName = "20160718"  '指定要导入的表
ip.NewTableName="tmpx" ' & tdate '导入后的表名
ip.Format =  "Excel" '指定导入格式
ip.Import()
Dim twin As WinForm.Form = Forms("excel导入")
Tables("excel导入_TableExcel").DataSource =DataTables("tmpx")


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/18 23:52:00 [只看该作者]

删除表,参考代码

 

If DataTables.Contains("表A") Then
    Dim Builder As New ADOXBuilder
    Builder.Open()
    With Builder
        .DeleteTable("表A")
    End With
    Builder.Close()
    DataTables.Unload("表A")
End If

 

http://www.foxtable.com/webhelp/scr/2122.htm

 


 回到顶部