Parameters (collection), Command (exemple de propriété) (VB)
Le code suivant montre comment utiliser la propriété Command avec l’objet Command pour récupérer des informations de paramètre pour la procédure.
' BeginParametersVB
Sub Main()
On Error GoTo ProcedureParametersError
Dim cnn As New ADODB.Connection
Dim cmd As ADODB.Command
Dim prm As ADODB.Parameter
Dim cat As New ADOX.Catalog
' Open the Connection
cnn.Open _
"Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='Northwind.mdb';"
' Open the catalog
Set cat.ActiveConnection = cnn
' Get the command object
Set cmd = cat.Procedures("CustomerById").Command
' Retrieve Parameter information
cmd.Parameters.Refresh
For Each prm In cmd.Parameters
Debug.Print prm.Name & ":" & prm.Type
Next
'Clean up
cnn.Close
Set cat = Nothing
Set cmd = Nothing
Set cnn = Nothing
Exit Sub
ProcedureParametersError:
Set cat = Nothing
Set cmd = 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
' EndParametersVB
Voir aussi
ActiveConnection, propriété (ADOX)
Catalog, objet (ADOX)
Command, propriété (ADOX)
Procedure, objet (ADOX)
Procedures, collection (ADOX)
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour