Does MS Access Exist? 1

[brews]

In VB6 I checked to see if the user had MS Access installed before checking for a table. This procedure is to make sure the app does not crash because lack of the program Access. this code in VB6

Public Sub FindAccessVer(ByRef bFound As Boolean)
    Dim oXLApp As Object
    Dim sAppName As String
    sAppName = "Access.Application"
    Set oXLApp = OpenApp(sAppName, bFound)
    If Not bFound Then Exit Sub
    oXLApp.Quit
    Set oXLApp = Nothing
End Sub

This line

Set oXLApp = OpenApp(sAppName, bFound)

is causing initial problems. Is there a work around in .net?

Thanks.

 

[strongm]

Perhaps if you showed the contents of the OpenApp function it would help

 

[brews]

Thanks for the response. Here is the code.

Function OpenApp(ByVal sAppName As String, ByRef bSuccess As Boolean) As Object
    Dim oApp As Object
    On Error Resume Next
    Set oApp = CreateObject(sAppName)
    If Err.Number = 0 Then
        Set OpenApp = oApp
        bSuccess = True
    Else
        bSuccess = False
    End If
    Set oApp = Nothing
End Function

 

[brews]

It must have been the brews last night because the app is working as it is intended. Many thanx for the consideration.

 

[SkipVought]

You have much more going on than is necessary.

If OpenApp returns Nothing then no object was created...

Function OpenApp(ByVal sAppName As String) As Object
    Set OpenApp = CreateObject(sAppName)
End Function

So the call

   if OpenApp(YourApplicationName) is nothing then
       'no application object created
   else
       'application object created
   end if

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[SkipVought]

Well you probably do need the On error statement.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[brews]

Thank you. Sometimes the learning curve is steep but the experience is always worthwhile.