Procedures Append Method Example (VB)
The following code demonstrates how to use a Command object and the Procedures collection Append method to create a new procedure in the underlying data source.
' BeginCreateProcedureVB
Sub Main()
On Error GoTo CreateProcedureError
Dim cnn As New ADODB.Connection
Dim cmd As New 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='Northwind.mdb';"
' Create the parameterized command (Microsoft Jet specific)
Set cmd.ActiveConnection = cnn
cmd.CommandText = "PARAMETERS [CustId] Text;" & _
"Select * From Customers Where CustomerId = [CustId]"
' Open the Catalog
Set cat.ActiveConnection = cnn
' Create the new Procedure
cat.Procedures.Append "CustomerById", cmd
'Clean
cnn.Close
Set cat = Nothing
Set cmd = Nothing
Set cnn = Nothing
Exit Sub
CreateProcedureError:
Set cat = Nothing
Set cmd = Nothing
If Not cnn Is Nothing Then
If cnn.State = adStateOpen Then cnn.Close
End If
Set cnn = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
' EndCreateProcedureVB
See Also
ActiveConnection Property (ADOX)
Append Method (ADOX Procedures)
Catalog Object (ADOX)
Procedure Object (ADOX)
Procedures Collection (ADOX)
Зворотний зв’язок
https://aka.ms/ContentUserFeedback.
Очікується незабаром: протягом 2024 року ми будемо припиняти використання механізму реєстрації проблем у GitHub для зворотного зв’язку щодо вмісту й замінювати його новою системою зворотного зв’язку. Докладніше:Надіслати й переглянути відгук про