✔ Programação GLOBAL®: VBA Access & Excel: Carregando dados em um FORM no Excel, a partir de dados disponíveis no Access

VBA Access & Excel: Carregando dados em um FORM no Excel, a partir de dados disponíveis no Access


 Sybase's PROCs 
VBA Access - Execute Stored Procedure with VBA in Sybase
VBA Excel - Execute Stored Procedure with VBA in Sybase
Cria uma Stored Procedure
Execute uma Stored Procedure com Parâmetro
Atualizar Dados Usando uma Stored Procedure
Deletar Registros com uma Stored Procedure
Transações Usando Stored Procedure
Recuperar Múltiplos Resultados 
Exemplo Básico de Execução de Stored Procedure
Executando Stored Procedure com Parâmetros de Entrada
Capturando Resultados de uma Stored Procedure
Executando Stored Procedure com Parâmetros de Saída
Executando Stored Procedure e Capturando Erros


Function ReadcbDisciplina()
    ' Author:                           Date:                     Contact:
      ' André Bernardes             22/07/2008 11:35    bernardess@gmail.com
    ' Carrega dados no Combo "cbDisciplina".
  
    On Error GoTo ErrorHandler              ' Ative a rotina de tratamento de erro.

    ' Define Vars.
      Dim cnt As ADODB.Connection
    Dim rst As ADODB.Recordset
  
    Dim k As Long
    Dim stDB As String
      Dim stSQL As String
    Dim vaData As Variant

      ' Efetua a conexão.
    Set cnt = New ADODB.Connection                                                  ' Inicia a conexão do objeto (Instantiate the Connection object).
    Let stDB = dbTarget                                                             ' Path to and the name of the database. Assumes the DB and worksheet are in same directory. If not, you need to specify DB path

    ' Limpa o Combo.
    Me.cbDisciplina.Clear
  
    ' Constrói a consulta SQL.
    Let stSQL = stSQL & "SELECT DISTINCT tbl_data_Disciplinass.Sigla, tbl_data_Disciplinass.Disciplina" & Space(1)
      Let stSQL = stSQL & "FROM tbl_data_Disciplinass" & Space(1)
    Let stSQL = stSQL & "WHERE (((tbl_data_Disciplinass.Active) = -1))" & Space(1)
      Let stSQL = stSQL & "ORDER BY tbl_data_Disciplinass.Disciplina"

    With cnt
          .CursorLocation = adUseClient       ' Necesary for creating disconnected recordset.
        .Open stConn                        ' Open connection.
  
        Set rst = .Execute(stSQL)           ' Instantiate the Recordsetobject and execute the SQL-statement.
      End With

    With rst
          Set .ActiveConnection = Nothing     ' Disconnect the recordset.
        Let k = .Fields.Count
  
        vaData = .GetRows                   ' Populate the array with the whole recordset.
    End With
  
    cnt.Close                               ' Close the connection.

      'Really manipulate the Combobox's properties and show the data.
    With Me
          With .cbDisciplina
            .Clear
            .BoundColumn = k
              .AddItem
            .Column = vaData                ' ? vaData(0,0),vaData(1,0),vaData(2,0) - (? vaData(coluna,linha),vaData(coluna,linha),vaData(coluna,linha))
            .ListIndex = -1
        End With
      End With

    Let FirstLoad = True
      Set rst = Nothing                       ' Tira os objetos da memória (Release objects from memory).
    Set cnt = Nothing
  
ErrorHandler:                           ' Rotina de tratamento de erro.
    Call ErrorShow(Err.Number, Err.Description, Err.Source)
  End Function