| 压缩、修复指定的数据库 |
|
| 作者：Grant 文章来源：IT学院 点击数： 本日：{$DayHits} 更新时间：2006-11-21 22:39:14 |
压缩、修复指定的数据库
Public Function RepairDatabase(strSource As String) As Boolean
On Error GoTo error_handler
Dim I As Integer
'生成压缩后的文件名
Dim strDestination As String
I = 1
Do
strDestination = strSource & I
If Dir(strSource & I) = "" Then
Exit Do
Else
I = I + 1
End If
Loop
'压缩修复指定文件
RepairDatabase = _
Application.CompactRepair( _
LogFile:=True, _
SourceFile:=strSource, _
DestinationFile:=strDestination)
'压缩完成后删除原文件
Kill strSource
'把压缩后的文件名改成原文件名
Name strDestination As strSource
On Error GoTo 0
Exit Function
error_handler:
RepairDatabase = False
End Function
|
| 文章录入：tm 责任编辑：tm |
|
上一篇文章： VB通过DAO访问Access数据库
下一篇文章： 注册代码 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
