asp压缩数据库

iid0019 楼主

请问用asp代码能不能实现ACCESS里面的： 工具->数据库使用工具->压缩和修复数据库

kuhanzhu

根据以下俩函数（过程）自己写个表单：

1. sub yasuo2()
   
2. '        call CompressData()
   
3. '        Sub CompressData()
   
4.         If Not IsObject(Conn) Then
   
5.                 CheckData Conn,GetConnstr
   
6.         End If
   
7.         Set Conn = Nothing
   
8.         Dim DBPath
   
9.         DBPath = Server.MapPath(Request.Form("Data_Path"))
   
10.         Dim BoolIs97
    
11.         BoolIs97 = Request.Form("boolIs97")
    
12.         CompactDB DBPath,boolIs97
    
13. 'End Sub
    
14. 
    
15. end sub
    
16. 
    
17. 
    
18. 
    
19. '=====================压缩参数=========================
    
20. Sub CompactDB(DBPath, boolIs97)
    
21.         On Error Resume Next
    
22.         Dim Fso, Engine, strDBPath,JET_3X
    
23.         strDBPath = Left(DBPath,InstrRev(DBPath,"\"))
    
24.         Set Fso = CreateObject("Scripting.FileSystemObject")
    
25.         If Err.Number <> 0 Then
    
26.                 Err.Clear()
    
27.         response.write "<div style=""color:#ff0000;"">当前站点可能不支持FSO组件，压缩操作跳过。</div>"
    
28.                 Exit Sub
    
29.         End If
    
30.         If Fso.FileExists(DBPath) Then
    
31.                         Fso.CopyFile DBPath,strDBPath & "CompactDBTemp.mdb"
    
32.                         Set Engine = CreateObject("JRO.JetEngine")
    
33.                         If BoolIs97 = "True" Then
    
34.                                 Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "CompactDBTemp.mdb", _
    
35.                                 "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "CompactDBTemp1.mdb;" _
    
36.                                 & "Jet OLEDB:Engine Type=" & JET_3X
    
37.                         Else
    
38.                                 Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "CompactDBTemp.mdb", _
    
39.                                 "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "CompactDBTemp1.mdb"
    
40.                         End If
    
41.                 Fso.CopyFile strDBPath & "CompactDBTemp1.mdb",DBPath
    
42.                 Fso.DeleteFile(strDBPath & "CompactDBTemp.mdb")
    
43.                 Fso.DeleteFile(strDBPath & "CompactDBTemp1.mdb")
    
44.                 Set Fso = nothing
    
45.                 Set Engine = nothing
    
46.                 If Err.Number <> 0 Then
    
47.                         Err.Clear()
    
48.                     response.write "<div style=""color:#ff0000;""><b>出错原因" & Err.Description & "操作,压缩操作跳过。</b></div>"
    
49.                         Exit Sub
    
50.                 End If
    
51.         response.write "<div style=""color:#ff0000;"">你的数据库, " & Replace(DBPath,"\","\\") & ", 已经压缩成功!</div>"
    
52.         Else
    
53.                 response.write "<div style=""color:#ff0000;"">数据库名称或路径不正确. 请重试!</div>"
    
54.         End If
    
55. End Sub

复制代码

iid0019 楼主

谢谢，我试试！

downup

学习一下
不过，感觉还是SQL数据库用起来安逸，呵呵，就太贵了，郁闷