编程论坛 » VB6论坛 » acess 导入到excel时出错，不可识别的数据库格式（已解决）

wangtuan7788 发表于 2008-5-28 20:16

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]]

三断笛 发表于 2008-5-28 20:44

应该是你mdb文件的问题,

lzn3303768 发表于 2008-5-28 21:16

用adodb试试看

wangtuan7788 发表于 2008-5-28 21:16

我在其他部分用ado控件连接数据库的就没什么问题啊

wangtuan7788 发表于 2008-5-28 21:17

回复 3# lzn3303768 的帖子

能具体点吗？

wangtuan7788 发表于 2008-5-28 22:08

？？？

wangtuan7788 发表于 2008-5-29 08:50

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

用这段就行了

查看完整版本: acess 导入到excel时出错，不可识别的数据库格式（已解决）