過程參數(shù)范例

過程參數(shù)范例

如下代碼演示如何通過 Command 對(duì)象使用 Command 屬性檢索過程的參數(shù)信息。

Sub ProcedureParameters()

   Dim cnn As New ADODB.Connection

   Dim cmd As ADODB.Command

   Dim prm As ADODB.Parameter

   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

   ' 獲得命令對(duì)象

   Set cmd = cat.Procedures("CustomerById").Command

   ' 檢索參數(shù)信息

   cmd.Parameters.Refresh

   For Each prm In cmd.Parameters

      Debug.Print prm.Name & ":" & prm.Type

   Next

End Sub