次のコードでは、プロシージャのパラメータ情報を取得するための、Command オブジェクトを使用した Command プロパティの使用方法を示します。
Sub ProcedureParameters()
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=c:\Program Files\Microsoft Office\" & _
"Office\Samples\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
End Sub