Views

...

Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

E-mails

Deixe seu e-mail para receber atualizações...

eBook Promo

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

Inline image 2



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, 



eBooks VBA na AMAZOM.com.br

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine