|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Verificando a versão da ADO esta instalada.
|
 |
|
|
|
Postada em 24/8/2003 por Ð@®l@n
Você pode verificar via código se a ADO ( MDAC ) esta instalada em seu computador.
1- Inicie um novo projeto no VB e insira um botão de comando no formulário padrão
2- Insira o seguinte código no evento Click do botão de comando - command1 . O código invoca a função AdoVersao que
Private Sub Command1_Click()
If AdoVersao <> "" Then
MsgBox "A versão da ADO instalada é a versão : " & AdoVersao, vbInformation, "Versão ADO"
Else
MsgBox "A ADO não esta instalada na sua maquina.", vbInformation, "Versão ADO"
End If
End Sub
3- O código da função AdoVersao é o seguinte:
Function AdoVersao() As String
Dim o As Object
On Error Resume Next
Set o = CreateObject("ADODB.Connection")
If Err.Number = 0 Then
AdoVersao = o.Version
Else
AdoVersao = ""
End If
End Function
|
|
|
|
|
