VBA Tips - Exemplo da propriedade ActiveConnection de catálogo no Código ADOX

|Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES VBA

O que é o fenômeno chamado BIG DATA?

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Configure a propriedade ActiveConnection como uma conexão válida e abra o catálogo. Torne possível acessar os objetos de esquema contidos em um catálogo aberto.

' BeginOpenConnectionVB 

Sub OpenConnection() 

 On Error GoTo OpenConnectionError 

 

 Dim cnn As New ADODB.Connection 

 Dim cat As New ADOX.Catalog 

 

 cnn.Open "Provider='Microsoft.Jet.OLEDB.4.0';" & _ 

 "Data Source= 'c:\Program Files\Microsoft Office\" & _ 

 "Office\Samples\Northwind.mdb';" 

 Set cat.ActiveConnection = cnn 

 Debug.Print cat.Tables(0).Type 

 

 'Clean up 

 cnn.Close 

 Set cat = Nothing 

 Set cnn = Nothing 

 Exit Sub 

 

OpenConnectionError: 

 

 Set cat = Nothing 

 

 If Not cnn Is Nothing Then 

 If cnn.State = adStateOpen Then cnn.Close 

 End If 

 Set cnn = Nothing 

 

 If Err <> 0 Then 

 MsgBox Err.Source & "-->" & Err.Description, , "Error" 

 End If 

End Sub 

' EndOpenConnectionVB 

Configurar a propriedade ActiveConnection como uma sequência de conexão válida também "abrirá" o catálogo.

Sub Main() 

 On Error GoTo OpenConnectionWithStringError 

 Dim cat As New ADOX.Catalog 

 

 cat.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _ 

 "Data Source='c:\Program Files\Microsoft Office\" & _ 

 "Office\Samples\Northwind.mdb';" 

 Debug.Print cat.Tables(0).Type 

 

 'Clean up 

 Set cat.ActiveConnection = Nothing 

 Exit Sub 

 

OpenConnectionWithStringError: 

 Set cat = Nothing 

 

 If Err <> 0 Then 

 MsgBox Err.Source & "-->" & Err.Description, , "Error" 

 End If 

End Sub 

' EndOpenConnection2VB 

Tags: VBA, ActiveConnection, Tips, ADODB, OLEDB, ADOX,