Filter results from an Excel sheet?
CodeGuru Home VC++ / MFC / C++ .NET / C# Visual Basic VB Forums Developer.com
Results 1 to 15 of 20

Thread: Filter results from an Excel sheet?

Threaded View

  1. #14
    Join Date
    Jan 2006
    Location
    Chicago, IL
    Posts
    14,875

    Re: Filter results from an Excel sheet?

    Unless you have 5 or LESS users (at least with the old versions) They would corrupt DB files with 6 or 7 concurrent requests. Everything went down, until the DB was rebuilt.

    This is from the old days, when we used it. We'd rebuild BEFORE each run.

    Code:
    Option Explicit
    
    Private Sub Form_Load()
    ' Set Reference to Microsoft Jet Runtim Object (JRO)
    '  BROWSE if not found: \program files\common files\system\ado\msjro.dll
      CompactAndRepair (db$)
    End Sub
    
    
    Sub CompactAndRepair(db$)
      Dim jro As jro.JetEngine, xn$
      Set jro = New jro.JetEngine
      Screen.MousePointer = vbHourglass
      xn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\"
      jro.CompactDatabase xn & db, xn & db & "-2"
      If Len(Dir(App.Path & "\" & db & "-2")) > 0 Then
        Kill App.Path & "\" & db
        Do While Len(Dir(App.Path & "\" & db)) > 0
          DoEvents               ' wait for delete
        Loop
        Name App.Path & "\" & db & "-2" As App.Path & "\" & db
        Do While Len(Dir(App.Path & "\" & db)) = 0
        DoEvents        ' wait for copy to complete
        Loop
    End If
    Screen.MousePointer = vbDefault
    End Sub
    Last edited by dglienna; December 21st, 2011 at 06:18 PM.
    David

    CodeGuru Article: Bound Controls are Evil-VB6
    2013 Samples: MS CODE Samples

    CodeGuru Reviewer
    2006 Dell CSP
    2006, 2007 & 2008 MVP Visual Basic
    If your question has been answered satisfactorily, and it has been helpful, then, please, Rate this Post!

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


Azure Activities Information Page

Windows Mobile Development Center


Click Here to Expand Forum to Full Width

This is a CodeGuru survey question.


Featured


HTML5 Development Center