LabView

请教如何用SQL语句来压缩ACCESS数据库

2019-07-17 12:12发布

站内问答 / LabVIEW
18044 14 1754
通过对ACCESS数据库的“修复与压缩”会使程序的运行更加稳定和提高运行速度。——请教如何用SQL语句来压缩ACCESS数据库，只用SQL语句哟！谢谢！
友情提示: 此问题已得到解决，问题已经关闭,关闭后问题禁止继续编辑，回答。
14条回答
Jack315
2019-07-18 01:47
本帖最后由 Jack315 于 2014-11-30 18:06 编辑
luo_wei 发表于 2014-11-30 16:00
CompactDatabase  方法：这个怎么使用，谢谢

假设编程环境为 Access VBA。首先要引用相应的库，比如 Microsoft Jet and Replication Object 2.6 Library。下面这段代码片段演示 CompactDatabase 的使用方法：

  2. Private Sub CompactDBFile()
  3. ' 压缩数据库文件
  4.     Const cstrTemporaryFileName = "Temporary.mdb"
  5.     Dim jroJE As New JRO.JetEngine
  6.     Dim strSourceFile As String
  7.     Dim strDestinationFile As String

  9.     ' 如果数据库文件之前已打开连接，则关闭该数据库文件的连接
  10.     If mconData.State <> adStateClosed Then CloseConnection

  12.     ' mstrFileName 含有欲操作的数据库文件名
  13.     strDestinationFile = GetDatabankDirectory & mstrFileName
  14.     If Dir(strDestinationFile) <> "" Then
  15.         ' 确保临时文件不存在
  16.         strSourceFile = GetDatabankDirectory & cstrTemporaryFileName
  17.         If Dir(strSourceFile) <> "" Then Kill strSourceFile

  19.         ' 将欲压缩文件改名为临时文件
  20.         Name strDestinationFile As strSourceFile

  22.         ' 压缩临时文件
  23.         jroJE.CompactDatabase cstrConnection & strSourceFile & ";", cstrConnection & strDestinationFile & ";"
  24.         ’ 删除临时文件
  25.         Kill strSourceFile
  26.     End If
  27. End Sub
复制代码
另外，LZ也可以参考 Access VBA 中关于 CompactDatabase 方法的帮助：


Temp.jpg


一周热门 更多>

相关文章