求助：窗体连接本地Access数据库问题

lz6a879

近期得到一Access档案，其中一个功能是读取在线数据库备份至本地，起初都 OK，但是当本地数据库（Access）记录多到一定程度的时候就会发生错误，执行Msg = "No table found with this name - " & tblNameQualev & " !"。
是不是读取超时？该如何改进？


Private Sub CheckQualevData()

    On Error GoTo No_Table
    Set rstData = dbsCurrent.OpenRecordset("SELECT * FROM " & tblNameQualev & _
            " WHERE INTERNAL_KEY > 0 ORDER BY IDENTITY_KEY")

    X = rstData.RecordCount
    If X > 0 Then
        rstData.MoveLast
        lblUpdateQualev.Caption = rstData.Fields("CC_SEQU_ID3") & " - " & rstData.Fields("CC_DATI_CAST")
        UpdateQualev.Enabled = True
    Else
        ' empty table
        lblUpdateQualev.Caption = " no Data - empty Table "
    End If
    rstData.Close
    Exit Sub
No_Table:
    Msg = "No table found with this name - " & tblNameQualev & " !"    ' Define message.
    Style = vbOK
    Title = "Info"    ' Define title.
    Response = MsgBox(Msg, Style, Title)
    UpdateQualev.Enabled = False
End Sub

tmtony

最好在 No_Table:
这里下面加一句
msgbox err.no & "--" & err.description

看看具体 是什么错误 才好分析

lz6a879

tmtony 发表于 2014-12-6 13:34
最好在 No_Table:
这里下面加一句
msgbox err.no & "--" & err.description

加这句后运行错误，好像不能这么直接加，不知道何解？

运行错误：
424
要求对象。

roych

lz6a879 发表于 2014-12-6 14:05
加这句后运行错误，好像不能这么直接加，不知道何解？

运行错误：

那就是没对象了？可能没有符合条件的记录吧？

lz6a879

roych 发表于 2014-12-6 15:44
那就是没对象了？可能没有符合条件的记录吧？

但为什起初（大概几千行数据吧）是好的呢，等到本地数据库文件达到1GB左右的时候就很难连上，偶尔还可以连上。

lz6a879

本人电脑配置比较低。

tmtony

本地数据库不能超过2G
也可使用多个MDB来分开存

lz6a879

问题已解决。

我把OLE/DDE超时设成60S就OK了，就是费时等待。

看来我的是老爷车了。

风中漫步

学习了
数据库容量收什么限制?有的却是TB级,有的最多就10W条

lz6a879

tmtony 发表于 2014-12-6 22:52
本地数据库不能超过2G
也可使用多个MDB来分开存

哈哈，又打不开了，郁闷
加了如下语句
MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description

显示
Error#：3035
超出系统资源

是不是正如楼上所述原因？

要怎么处理呢？