創(chuàng)建過(guò)程范例

創(chuàng)建過(guò)程范例

如下代碼演示怎樣使用 Command 對(duì)象和 Procedures 集合 Append 方法，在基本數(shù)據(jù)源中創(chuàng)建新的過(guò)程。

Sub CreateProcedure()

   Dim cnn As New ADODB.Connection

   Dim cmd As New ADODB.Command

   Dim prm As ADODB.Parameter

   Dim cat As New ADOX.Catalog

   ' 打開(kāi)連接

   cnn.Open _

      "Provider=Microsoft.Jet.OLEDB.4.0;" & _

      "Data Source=c:\Program Files\Microsoft Office\" & _

      "Office\Samples\Northwind.mdb;"

   ' 創(chuàng)建參數(shù)化命令（Jet 指定）

   Set cmd.ActiveConnection = cnn

   cmd.CommandText = "PARAMETERS [CustId] Text;" & _

      "Select * From Customers Where CustomerId = [CustId]"

   ' 打開(kāi)目錄

   Set cat.ActiveConnection = cnn

   ' 創(chuàng)建新過(guò)程

   cat.Procedures.Append "CustomerById", cmd

End Sub