当前位置: 网学 > 编程文档 > VB > 正文

数据库压缩

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/16
下载{$ArticleTitle}原创论文样式

窗体加一个Command控件,点击控件即可完成,把下列代码全部复制到窗体上。 

Dim s As String

Private Sub Command1_Click()

  On Error Resume Next
  Dim sNewName As String
  Dim sBakFile As String
  Dim sDataBase As String
  sNewName = s      ''提取数据库
  sDataBase = sNewName
 
  MousePointer = 11
 
  snewfile = Left$(sDataBase, Len(sDataBase) - 3) & "NEW"
  sBakFile = Left$(sDataBase, Len(sDataBase) - 3) & "BAK"


     FileCopy sDataBase, sBakFile          ''备份数据库,重新命名


  DBEngine.RepairDatabase sDataBase         ''修复数据库

 
  If Dir(snewfile) <> "" Then
     Kill snewfile                      ''如果目标数据库存在,则删除目标数据库
  End If
 
  DBEngine.CompactDatabase sDataBase, snewfile ''压缩数据库

  If Dir(sBakFile) <> "" Then        ''删除备份数据库
     Kill sBakFile
  End If
 
  If Dir(sDataBase) <> "" Then
     Kill sDataBase         '' 删除数据库
  End If
 
  FileCopy snewfile, sDataBase    ''重新复制数据给数据库

  MousePointer = 0
 
  MsgBox "压缩数据库完成"
 
    Unload Me
   
     Set mClass显菜单 = New Class显菜单
     Set mClass显菜单 = Nothing
    
End Sub

Private Sub Form_Load()
  s = App.Path & "\db1.mdb"

End Sub
 

 

  • 上一篇资讯: VB 二进制文件的操作
  • 下一篇资讯: 把DataGrid数据传送到Excel
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号