Office中国论坛/Access中国论坛

标题: 有关.CompactDatabase的问题,大家帮我看看 [打印本页]

作者: iron 时间: 2005-3-25 21:17
标题: 有关.CompactDatabase的问题,大家帮我看看

   Dim Je As New JRO.JetEngine

   Dim strSPath As String, strDPath As String, strTPath As String

   Dim dbs As DAO.Database

   Dim tdf As DAO.TableDef

   Dim str As String, strp As String

         ' Loop through all tables in the database.

         Set dbs = CurrentDb

         For Each tdf In dbs.TableDefs

            ' If the table has a connect string, it's a linked table.

            If Len(tdf.Connect) > 0 Then

               str = Trim(Right(tdf.Connect, Len(tdf.Connect) - InStr(tdf.Connect, "DATABASE=") - 8))

               strp = Mid(tdf.Connect, InStr(1, tdf.Connect, "

WD=") + 4, (InStr(1, tdf.Connect, "DATABASE=") - (InStr(1, tdf.Connect, "

WD=") + 4) - 1))

            Exit For

            End If

         Next tdf



   strSPath = str

   strDPath = CurrentProject.Path & "\tempdb.mdb"

   strTPath = CurrentProject.Path & "\bakdb.mdb"







   Je.CompactDatabase "

rovider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strSPath & ";OLEDB

atabase Password=" & strp, "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDPath & "; Jet OLEDB

atabase Password=" & strp & ""

最后这段代码不知道那里错了.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)