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)
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de