Build your own database analysis tool (Page 4)

Search DominoPower's 11,441 Lotus-related article archive

Home
EasyPrint
News details

Articles-only

Twitter Feed

Build your own database analysis tool (continued)


'--Do a magical bubble sort to sort the forms according to their titles



          Dim top, bot, cur, cur2 As Integer

          top = Ubound(formArray)

          bot = Lbound(formArray)

          

          Dim tmp_element As Variant

          

          For cur = bot To top

               cur2 = cur

               Do While cur2 > bot '--bubble up

                    If(formArray(cur2) > formArray(cur2-1)) Then

                         Exit Do

                    Else

                         '--swap

                         tmp_element = formArray(cur2)

                         formArray(cur2) = formArray(cur2-1)

                         formArray(cur2-1) = tmp_element

                    End If

                    cur2 = cur2-1

               Loop

          Next

     '--This ends the magical bubble sort.  Do you feel freshly percolated?

[Be aware that as sort algorithms go, the bubble sort is among the very slowest. If you are sorting a hundred elements or so, the bubble sort won't make your brain bubble. But if you're planning on sorting much larger amounts of data, consider at the very least using a "shell sort" or "quicksort" algorithm. -- DG]

Analyze This (view)
Now that you have detailed information about the databases on your system, you can set up views to help you sort through that information and organize it in a meaningful way. I've created views that show the title, the file name, the size and even the number of forms, views and agents in each of them. In Figure C, you can see an example of how I've sorted all of the database information documents by the size of the database.

FIGURE C

Sorting by size helps you figure out what databases are hogging your hard drive. Roll over picture for a larger image.

Other possible uses
You can use the agent as-is or you can use it as a starting point for similar applications. Here are some ideas I have for other uses for this agent.

Make this a scheduled agent that runs weekly and deletes the old reports. This way you will always have fairly fresh information.

Create an email agent that emails you a weekly report containing either the top-level information on all databases or details about a select number of databases that you are in charge of.