Exemplo do método Refresh de procedimentos (VB)
O código a seguir mostra como atualizar a coleção Procedures de um Catálogo. Isso é exigido antes que objetos Procedure do Catálogo possam ser acessados.
' BeginProceduresRefreshVB
Sub Main()
On Error GoTo ProcedureRefreshError
Dim cat As New ADOX.Catalog
' Open the Catalog
cat.ActiveConnection = _
"Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='Northwind.mdb';"
' Refresh the Procedures collection
cat.Procedures.Refresh
'Clean up
Set cat.ActiveConnection = Nothing
Set cat = Nothing
Exit Sub
ProcedureRefreshError:
Set cat = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
' EndProceduresRefreshVB
Consulte Também
Objeto Catalog (ADOX)
Coleção Procedures (ADOX)
Método Refresh (ADO)