VB.NETѹËõACCESSÊý¾Ý¿â

'´´½¨Êý¾Ý¿â
  Private Sub Create(ByVal mdbPath As String)
        If File.Exists(mdbPath) Then
            Throw New Exception("Ä¿±êÊý¾Ý¿âÒѾ­´æÔÚ£¬ÎÞ·¨´´½¨")
        End If
        mdbPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + mdbPath
        Dim cat As ADOX.Catalog = New ADOX.Catalog()
        cat.Create(mdbPath)
    End Sub
    '''' <summary>
    '''ѹËõÐÞ¸´Êý¾Ý¿â
    ''' </summary>
    ''' <param name="mdbPath"> ±»Ñ¹ËõµÄÊý¾Ý¿â·¾¶+Êý¾Ý¿âÎļþÃû</param>
    ''' <remarks></remarks>
    Public Sub Compact(ByVal mdbPath As String)
        'If Not File.Exists(mdbPath) = False Then '¼ì²éÊý¾Ý¿âÊÇ·ñÒÑ´æÔÚ
        '    Throw New Exception("Ä¿±êÊý¾Ý¿â²»´æÔÚ£¬ÎÞ·¨Ñ¹Ëõ")
        'End If
        Dim temp = GetSysDatePartTime()
        Dim FilePath As String = mdbPath.Substring(0, mdbPath.LastIndexOf("\") + 1)
        Dim DbFileName As String = mdbPath.Substring(mdbPath.LastIndexOf("\") + 1, mdbPath.Length - mdbPath.LastIndexOf("\") - 1)
        File.Copy(mdbPath, FilePath + "DbBak\Bak" + temp + ".mdb", True)
        Dim StrProvid As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
        Dim jt As JRO.JetEngineClass = New JRO.JetEngineClass()
        jt.CompactDatabase(StrProvid + mdbPath, StrProvid +