Topic: Determining the DAO version

[MP]

Yep, you heard me right, DAO, not ADO. I'll defend the use of it another time.

In the mean time, can you think of a better way to determine the active DAO version?

Code: [Select]

(defun _GetDAOVersion ( / result )

    (vl-some
   
       '(lambda ( version )
            (setq result
                (if
                    (vl-registry-read
                        (strcat
                            "HKEY_CLASSES_ROOT\\DAO.DBEngine"
                            version
                        )                     
                    )
                    (substr version 2)
                )               
            )
        )
   
       '( [color=green];| ".40" ".39" ".38" ".37" |;[/color] ".36" ".35" "")
   
    )
   
[color=green]    ;;  The result will be a string like "36" or "" (for
    ;;  DAO 3.0 which didn't specify a version number) or
    ;;  nil if DAO is not installed.[/color]
   
    result
   
)
Thanks.

[Kerry]

.. I'll defend the use of it another time.

whatever fires your engines Michael

[JohnK]

*phew* And people say im obscure in my references; *lol* It took me 15 minutes to find out what `DOA' was -- and im not all that sure i understand it at the moment either - .

[ http://msdn.microsoft.com/archive/default.asp?url=/archive/en-us/dnarvb4/html/msdn_mpdao310.asp ]

I'll read and follow the links to learn as much as i can as to "what" your/you can look for and see if i cant think up a better way then the reg.

later

[JohnK]

This guy [ http://www.delphi3000.com/articles/article_2970.asp?SK= ] Just looks in the common folder for the latest dll.

Would that be better?

[MP]

I had considered that earlier but my thinking was that mere file residency does not necessarily guarantee it's active; i.e. a dll may be resident but not necessarily registered. Good thinking tho John.

[JohnK]

Then reading the reg is by far the best method.