MDAC 2.5 SDK - ADOX

Command and CommandText Properties Example (VB)

See Also

The following code demonstrates how to use the Command property to update the text of a procedure.

Sub ProcedureText()

   Dim cnn As New ADODB.Connection
   Dim cat As New ADOX.Catalog
   Dim cmd As New ADODB.Command

   ' 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
   Set cmd = cat.Procedures("CustomerById").Command

   ' Update the CommandText
   cmd.CommandText = "Select CustomerId, CompanyName, ContactName " & _
      "From Customers " & _
      "Where CustomerId = [CustId]"

   ' Update the Procedure
   Set cat.Procedures("CustomerById").Command = cmd

End Sub