打开MS Access数据库超过2GB

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"

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