Exemple de propriété ActiveConnection de l’objet Catalog (VB)
La définition de la propriété ActiveConnection sur une connexion ouverte valide « ouvre » le catalogue. À partir d’un catalogue ouvert, vous pouvez accéder aux objets de schéma contenus dans ce catalogue.
' BeginOpenConnectionVB
Sub Main()
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= '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
La définition de la propriété ActiveConnection sur une chaîne de connexion valide « ouvre » également le catalogue.
Attribute VB_Name = "Catalog"
Voir aussi
ActiveConnection, propriété (ADOX)
Catalog, objet (ADOX)
Table, objet (ADOX)
Tables, collection (ADOX)
Type, propriété (table) (ADOX)
Commentaires
https://aka.ms/ContentUserFeedback.
Prochainement : Tout au long de l'année 2024, nous supprimerons progressivement les GitHub Issues en tant que mécanisme de retour d'information pour le contenu et nous les remplacerons par un nouveau système de retour d'information. Pour plus d’informations, voir:Soumettre et afficher des commentaires pour