| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1801 人关注过本帖
标题:acess 导入到excel时出错,不可识别的数据库格式(已解决)
取消只看楼主 加入收藏
wangtuan7788
Rank: 1
等 级:新手上路
帖 子:286
专家分:0
注 册:2007-10-8
收藏
 问题点数:0 回复次数:4 
acess 导入到excel时出错,不可识别的数据库格式(已解决)
Dim dbs As Database
    Set dbs = OpenDatabase(App.Path & "\data\电子磅管理.mdb")
    If Dir(ExcelPath) <> "" Then
    Kill ExcelPath
    End If
   dbs.Execute "SELECT * INTO [Excel 8.0;DATABASE=" & ExcelPath & "].[Sheet1] FROM " & sTableName
    dbs.Close
    Set dbs = Nothing

Set dbs = OpenDatabase(App.Path & "\data\电子磅管理.mdb")这句出错了,提示说是不可识别的数据库格式,请问怎么解决?

[[it] 本帖最后由 wangtuan7788 于 2008-5-29 08:49 编辑 [/it]]
搜索更多相关主题的帖子: 数据库 excel acess 格式 
2008-05-28 20:16
wangtuan7788
Rank: 1
等 级:新手上路
帖 子:286
专家分:0
注 册:2007-10-8
收藏
得分:0 
我在其他部分用ado控件连接数据库的就没什么问题啊

你笑我和你们不一样,我笑你们大家都一样~
2008-05-28 21:16
wangtuan7788
Rank: 1
等 级:新手上路
帖 子:286
专家分:0
注 册:2007-10-8
收藏
得分:0 
回复 3# lzn3303768 的帖子
能具体点吗?

你笑我和你们不一样,我笑你们大家都一样~
2008-05-28 21:17
wangtuan7788
Rank: 1
等 级:新手上路
帖 子:286
专家分:0
注 册:2007-10-8
收藏
得分:0 
???

你笑我和你们不一样,我笑你们大家都一样~
2008-05-28 22:08
wangtuan7788
Rank: 1
等 级:新手上路
帖 子:286
专家分:0
注 册:2007-10-8
收藏
得分:0 
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\电子磅管理.mdb"
If Dir(ExcelPath) <> "" Then
Kill ExcelPath
End If
cn.Execute "SELECT * INTO [Excel 8.0;DATABASE=" & ExcelPath & "].[Sheet1] FROM " & sTableName
cn.Close

用这段就行了

你笑我和你们不一样,我笑你们大家都一样~
2008-05-29 08:50
快速回复:acess 导入到excel时出错,不可识别的数据库格式(已解决)
数据加载中...
 
   



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

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