Hur kontrollerar man med ett program om datorn har Ado drivrutierna och i så fall vilken version.


Tackam för hjälp!

På www.microsoft.com/data finns ett program som du kan köra för att se vilken version det är. En variant är även att skriva:

set con = createobject("adodb.connection")
debug.print con.version

Den funka fint, tack!
Men om man lägger till ADO som referens i programmet och den drivrutinen inte finns blir det krasch!

Jag vill göra en installations kontroll, som kontrollerar vilka drivrutiner som behövs.
Programmet skall bestämma vilken installation som kommer startas.

Tacksam för hjälp!

Lägg inte in ADO som en reference i din application.

CreateObject("ADODB.Connection") är en 'late binding' och din applikation vet inget om ADO förän du försöker köra koden.

Ett ex på implementation kan vara så här

<code>

Private Sub main()
On Error Resume Next

Dim strMsgPrompt As String
Dim strMsgTitle As String
Dim conn1

Set conn1 = CreateObject("ADODB.Connection")

Select Case Err.Number

Case 0 'No error
With conn1
strMsgPrompt = "Provider: " & .Provider & vbCrLf & _
"Version: " & .Version
strMsgTitle = "ADO Version"
End With

Case Else
'Can't find ADO
strMsgPrompt = Err.Description
strMsgTitle = "ERROR: " & Err.Number

End Select

MsgBox strMsgPrompt, vbOKOnly, strMsgTitle

End Sub

</code>

Om du kör rutinen jag föreslog och har errorhantering på detta så vet du i alla fall om rätt version inte finns. Då kan du samtidigt installera samma version som ditt projekt ät tänkt att använda:

<code>
on error resume next
set con = createobject("adodb.connection")
if err <> 0 then
' ingen ado finns
else
if con.version < "2.6" then
' då installerar vi 2.6 genom ett anrop till den
' funktion som startar shell och kör Mdac_Typ.Exe
else
' allt är lugnt, då kör vi vidare
end if
end if
</code>

Perfekt!!!

Nu har jag allt jag behöver!
Tusen tack!!!