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

应该是你mdb文件的问题,

用adodb试试看

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

能具体点吗？

？？？

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

用这段就行了

路过  留痕