着急，在线等答案！

Question

 Dim db As Database
  Dim rs As Recordset
  Dim connter As Integer
  Dim workarea(200) As String
  ProgressBar1.Visible = True
  ProgressBar1.Max = UBound(workarea)
  ProgressBar1.Value = ProgressBar1.Min
  For Counter = LBound(workarea) To UBound(workarea)
  workarea(Counter) = "initial value " & Counter
  ProgressBar1.Value = Counter
    Set db = Workspaces(0).OpenDatabase(App.Path & "\likangyaodian.mdb")
  Dim sql As String
  If Check1.Value = 1 Then
     sql = "delete * from 进货表 "
     db.Execute sql
  End If
  If Check2.Value = 1 Then
     sql = "delete * from 销售表 "
     db.Execute sql
  End If
  If Check3.Value = 1 Then
     sql = "delete * from 退货表 "
     db.Execute sql
  End If
  If Check4.Value = 1 Then
     sql = "delete * from 出库明细表"
     db.Execute sql
  End If
  Next Counter
  ProgressBar1.Visible = False
  ProgressBar1.Value = ProgressBar1.Min提示不可识别的数据库格式！！！    是什么原因啊？？

Answer 1

提示下面这条语句错了
Set db = Workspaces(0).OpenDatabase(App.Path & "\likangyaodian.mdb") 

Answer 2

likangyaodian.mdb是版本较新的数据库?

Answer 3

要用更低版本的 Access 创建 mdb。

Answer 4

楼主您把Execute下的代码贴出来。

Answer 5

连接数据库路径是用Microsoft.Jet.OLEDB.4.0

Answer 6

Private Sub Command1_Click()
   Dim db As Database
  Dim rs As Recordset
  Dim connter As Integer
  Dim workarea(200) As String
  ProgressBar1.Visible = True
  ProgressBar1.Max = UBound(workarea)
  ProgressBar1.Value = ProgressBar1.Min
  For Counter = LBound(workarea) To UBound(workarea)
  workarea(Counter) = "initial value " & Counter
  ProgressBar1.Value = Counter
  Set db = Workspaces(0).OpenDatabase(App.Path & "\likangyaodian.mdb")
  Dim sql As String
  If Check1.Value = 1 Then
     sql = "delete * from 进货表 "
     db.Execute sql
  End If
  If Check2.Value = 1 Then
     sql = "delete * from 销售表 "
     db.Execute sql
  End If
  If Check3.Value = 1 Then
     sql = "delete * from 退货表 "
     db.Execute sql
  End If
  If Check4.Value = 1 Then
     sql = "delete * from 出库明细表"
     db.Execute sql
  End If
  Next Counter
  ProgressBar1.Visible = False
  ProgressBar1.Value = ProgressBar1.Min
End Sub

Answer 7

Workspaces 只能支持旧版本的 mdb。建表的问题：
先准备一个空白的旧版本 mdb，复制到你现在的机器上。
不要直接打开，用 ODBC 创建一个数据源指向该 mdb。
然后用 Acess 打开新版本 mdb，将表导出到该 ODBC 数据源。
这样应该可以了。

Answer 8

如果新版本的access，要怎么初始化表中的数据？？请帮忙！！

Answer 9

有没有这样一段代码，无论拿到哪个access版本下都能运行
就是清空表中全部数据的代码

Answer 10

楼主您引用了Microsoft DAO 3.6 Object Library就可以解决。

Answer 11

您打开您的VB文件，在VB窗体的上面工具栏里有个[工程(P)],选择后就会看到有个[引用(N)]

Answer 12

16 楼正解。DAO 3.51 仅仅支持到 Access 97。Access 2000 以上改变了数据文件格式，需要 3.6 版本支持。至于有说 Microsoft.Jet.OLEDB.4.0 的，那是 ADO 库，不是一回事。