USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página