Old DAO code into ADO conversion problem

[LittleSmudge]

I have some code in DAO that creates a new database in the current db'd folder that is straight out of the Access97 help manual

Sub CreateDatabaseX()

    Dim wrkDefault As Workspace
    Dim dbsNew As DATABASE
    Dim prpLoop As Property

    ' Get default Workspace.
    Set wrkDefault = DBEngine.Workspaces(0)

    ' Make sure there isn't already a file with the name of 
    ' the new database.
    If Dir(&quot;Activity.mdb&quot;) <> &quot;&quot; Then Kill &quot;Activity.mdb&quot;

    ' Create a new database with the specified collating order.
    Set dbsNew = wrkDefault.CreateDatabase(&quot;Activity.mdb&quot;, _
        dbLangGeneral)

    dbsNew.Close

End Sub

However, I'm now working on a A2000 implementation using ADO and I do NOT want to have to reference the DAO libraries on all the users machines that this will run on.

ADO does not recognise Workspace or Database as types.


What is the ADO equivalent of this code ?



G LS

 

[cmmrfrds]

Check this site out for that example, plus, many other examples of DAO to ADO conversin.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dndao/html/daotoado.asp

 

[LittleSmudge]

Thanks cmmrfrds, thats a useful link.

It didn't directly answer the question but it lead on to other links that allows me to work it out ( and answer a few more issues to boot.

It seems I'm going to have to change library references afterall becuase to do what I want I will need "ADO 2.5 ADOX for Security" which is not standard on the user's machines either.

I'll post a separate query about using code to test for library references and install them if not already there.


Thanks,

G LS

 

[cmmrfrds]

I was curuious about setting the reference library from vba code. Here is code to check and set. You can investigate how to remove library.

Function ReferenceFromFile(strFileName As String) As Boolean
Dim ref As Reference

On Error GoTo Error_ReferenceFromFile
Set ref = References.AddFromFile(strFileName)
ReferenceFromFile = True

Exit_ReferenceFromFile:
Exit Function

Error_ReferenceFromFile:
MsgBox Err & ": " & Err.description
ReferenceFromFile = False
Resume Exit_ReferenceFromFile
End Function

Function CreateReference()
If ReferenceFromFile("C:\Program Files\Common Files\SYSTEM\ADO\msadox.dll&quot = True Then
MsgBox "Reference set successfully."
Else
MsgBox "Reference not set successfully."
End If
End Function

 

[LittleSmudge]

Thanks again cmmrfrds,

This, combined with the code supplied by FP in thread705-354999 gives me all I need.
The code in the link shows how to extract the Full Path Name of the Reference. So I'll be able to work it out from here.


G LS