| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 225 人关注过本帖
标题:求助:关于vb.net导入excel到access的问题
只看楼主 加入收藏
huangyz_xy
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2016-10-2
结帖率:71.43%
  问题点数:0  回复次数:2   
求助:关于vb.net导入excel到access的问题
我是菜鸟,刚刚接触,请问如何把一个excel表里面指定sheet导入到access里面和sheet名相同table里面,如果里面存在同名table,询问是追加进去还是删除后重新建一个table。
程序代码:
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & App.Path & "\datas\Data_Source.mdb" & "';Persist Security Info=False"
    conn.Open
    If rst.State = adStateOpen Then rst.Close
    rst.Open "SELECT * FROM MsysObjects", conn, adOpenKeyset, adLockOptimistic
    For intloop = 0 To rst.RecordCount - 1
        If rst.Fields("name") = "NRCellDU" & "_" & ComDU_Type Then  
            kill = 1
        End If
        rst.MoveNext
    Next intloop
   
    If ComDU_Type = "" Then
        MsgBox "请选择NRCellDU类型都再确认导入!", vbInformation, "Yams"
        Exit Sub
    Else
        If kill = 1 Then
            If MsgBox("<NRCellDU_" & ComDU_Type & ">已经存在,是否删除后重新导入?", vbCritical + vbOKCancel, "删除警告") = vbOK Then
                conn.Execute "DROP TABLE NRCellDU_" & ComDU_Type
                SQL = "select *  into NRCellDU_" & ComDU_Type & " from  [Excel 12.0 Xml;database=" & txtNRCellDU & "].[NRCellDU$]"
                conn.Execute SQL
            Else
                Exit Sub
            End If
        Else
            SQL = "select *  into NRCellDU_" & ComDU_Type & " from  [Excel 12.0 Xml;database=" & txtNRCellDU & "].[NRCellDU$]"
            conn.Execute SQL
        End If
    End If


以上是vb6的部分代码,用如何实现呢?
附件: 您没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: vb.net 导入 If conn excel 
【推荐】大型监控、工控、组态VC++./C#源码组件库2019下载!
【推荐】超50万数控、建模仿真、电力VC++/.NET图形源码库下载!
【推荐】专业CAD\GIS\业务流程VC++/C#可视化图形软件源码库下载!
2019-10-04 18:27
厨师王德榜
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:84
帖 子:534
专家分:2039
注 册:2013-2-16
  得分:0 
也能用Ado访问,这段代码基本上不需要怎么改动,都可以直接用了吧?
2019-10-22 13:52
ipsc1978
Rank: 1
来 自:广东湛江
等 级:新手上路
帖 子:1
专家分:0
注 册:2019-11-7
  得分:0 
最后把EXCEL另存为文本文件 制表符分隔,这种方式导入导出不受OFFICE版本和组件的约束,兼容性好。要不在不同的机上不同的OFFICE版本会让你的程序在兼容性上非常头痛。

海军退伍军人
原BBSXP官方论坛版主
原DSS跳舞机官方论坛版主
2019-11-07 23:50
快速回复:求助:关于vb.net导入excel到access的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.088506 second(s), 9 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved