打开超过 2GB 的 MS Access 数据库

Question

您好，希望可以解决此问题，但我的 ms 访问程序在完成数据清理之前就崩溃了。它现在达到最大 2GB 并且不会打开任何人知道在这里做什么？我只需要它来删除列中的所有数据，有价值的是查询以及它们的顺序。

只是得到错误无法打开数据库''。它可能不是您的应用程序识别的数据库，或者文件可能已损坏。它给了我两次。

它是 .accdb 格式，所以不应该是阅读问题

干杯。

Answer 1

尝试直接从 DAO 数据库引擎运行压缩和修复，而无需在 Access 中打开文件

您可以从任何支持 VBA 的应用程序或 VBScript 文件中使用以下代码（它是为 VBScript 文件设计的，但您必须将位数与您的 Access 应用程序相匹配，请参阅this post，但在 Excel 中也应该可以正常运行)

Dim wShell, oExec, sFileSelected
Set wShell=CreateObject("WScript.Shell")
Set oExec=wShell.Exec("mshta.exe ""about:<input type=file id=FILE><script>FILE.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);</script>""")
sFileSelected = oExec.StdOut.ReadLine
CreateObject("DAO.DBEngine.120").CompactDatabase sFileSelected, Left(sFileSelected, Len(sFileSelected) - 6) & "Compacted.accdb"

这应该在压缩时复制损坏数据库中的所有内容。它会创建一个新文件，并附加您当前的文件名和 Compacted。