Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Retrieving MDAC version with VBA
- Thread starter Glohamar
- Start date
- Thread starter
- #2
*You need a reference to the MicrosoftScriptingRuntime library for FileSystem Object
[tt]
Public Const MDAC_FILE As String = "c:\program files\common files\system\ado\MSADOMD.DLL"
Public Function GetMDACVersion() As String
On Error Resume Next
Dim FSO As New FileSystemObject
Dim File As File
GetMDACVersion = "MDAC Version: " & CStr(FSO.GetFileVersion(MDAC_FILE))
Set File = Nothing
Set FSO = Nothing
End Function 'GetMDACVersion[/tt]
Turn your headache into my project!
Jeffrey R. Roberts
Insight Data Consulting
Access and SQL Server Development
[tt]
Public Const MDAC_FILE As String = "c:\program files\common files\system\ado\MSADOMD.DLL"
Public Function GetMDACVersion() As String
On Error Resume Next
Dim FSO As New FileSystemObject
Dim File As File
GetMDACVersion = "MDAC Version: " & CStr(FSO.GetFileVersion(MDAC_FILE))
Set File = Nothing
Set FSO = Nothing
End Function 'GetMDACVersion[/tt]
Turn your headache into my project!
Jeffrey R. Roberts
Insight Data Consulting
Access and SQL Server Development
- Status
Similar threads
- Locked
- Question
- Locked
- Question