過程文本范例

過程文本范例

如下代碼演示如何使用 Command 屬性更新過程文本。

Sub ProcedureText()

   Dim cnn As New ADODB.Connection

   Dim cat As New ADOX.Catalog

   Dim cmd As New ADODB.Command

   ' 打開連接

   cnn.Open _

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

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

      "Office\Samples\Northwind.mdb;"

   ' 打開目錄

   Set cat.ActiveConnection = cnn

   ' 獲得 Command

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

   ' 更新 CommandText

   cmd.CommandText = "Select CustomerId, CompanyName, ContactName " & _

      "From Customers " & _

      "Where CustomerId = [CustId]"

   ' 更新過程

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

End Sub