Objeto AllStoredProcedures (Access)

A coleção AllStoredProcedures contém um AccessObject para cada procedimento armazenado no objeto CurrentData ou CodeData.

Comentários

O objeto CurrentData ou CodeData tem uma coleção AllStoredProcedures que contém os objetos AccessObject que descrevem instâncias de todos os procedimentos armazenados especificados pelo objeto CurrentData ou CodeData. Por exemplo, você pode enumerar a coleção AllStoredProcedures no Visual Basic para definir ou retornar os valores das propriedades dos objetos AccessObject individuais na coleção.

Consulte um objeto AccessObject individual na coleção AllStoredProcedures , referindo-se ao objeto pelo nome ou referindo-se ao seu índice dentro da coleção. Se você deseja fazer referência a um objeto específico na coleção AllStoredProcedures, é melhor referir-se aos procedimentos armazenados pelo nome, porque o índice da coleção de um procedimento armazenado pode ser alteradas.

A coleção AllStoredProcedures é indexada começando com zero. Se você se referir a um procedimento armazenado pelo índice, o primeiro procedimento armazenado é AllStoredProcedures(0), o segundo procedimento armazenado será AllStoredProcedures (1) e assim por diante.

Observação

Para listar todos os procedimentos armazenados abertos no banco de dados, use a propriedade IsLoaded de cada objeto AccessObject na coleção AllStoredProcedures . Em seguida, você pode usar a propriedade Name de cada objeto AccessObject individual para retornar o nome de um procedimento armazenado.

Não é possível adicionar nem excluir um objeto AccessObject da coleção AllStoredProcedures.

Exemplo

O exemplo a seguir imprime o nome de cada objeto AccessObject aberto na coleção AllProcedures.

Sub AllStoredProcedures() 
    Dim obj As AccessObject, dbs As Object 
    Set dbs = Application.CurrentData 
    ' Search for open AccessObject objects in 
    ' AllStoredProcedures collection. 
    For Each obj In dbs.AllStoredProcedures 
        If obj.IsLoaded = True Then 
            ' Print name of obj. 
            Debug.Print obj.Name 
        End If 
    Next obj 
End Sub

Propriedades

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.