MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]ListBox desacoplada e carregada via ADOBD, carrega com as colunas desorganizada/fora da ordem

    Compartilhe

    Fabio Morais
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 08/10/2013

    [Resolvido]ListBox desacoplada e carregada via ADOBD, carrega com as colunas desorganizada/fora da ordem

    Mensagem  Fabio Morais em Qua 31 Ago 2016, 16:00

    Bom dia, Prezados

    Estou realizando um projeto aonde carrego uma listbox via ADOBD de um BackEnd, a carga ocorre de forma correta. O que está adverso é a disposição das colunas, as mesmas estão retornando desordenadas fora do escopo que organizei na SQL.

    Há alguma forma da listbox retornar as colunas conforme organização da SQL.

    Código:

    Private Sub Form_Open(Cancel As Integer)

       Dim conn As ADODB.Connection
       Dim rst As ADODB.Recordset
       Dim strSQL As String

       Set conn = CurrentProject.Connection
       Set rst = New ADODB.Recordset

    strSQL = "SELECT PK_BASE_LOTE_ECOMEX, LOTE, PO, FORNECEDOR, DATA_CHEGADA, DIAS_PARADOS, COMPRADOR, AREA_COMPRADOR, NUMERO_ANALISTA_IMPEX, FILTRO_ANALISTA_IMPEX, FILTRO_FLUXO_COMPRAS FROM T_BASE_LOTE_ECOMEX;"

       With rst
           Set .ActiveConnection = conn
           .Source = "\\inet.tam.com.br\tam\Dados\Suprimentos e Logistica\Impex\DataBaseCompex\BackUp\DataBase.accdb"
           .LockType = adLockOptimistic
           .CursorType = adOpenKeyset
           .Open strSQL
       End With
       
       Set Me.listaLotesPendente.Recordset = rst

    End Sub


    .................................................................................
    Ninguém é responsável pelo seu sucesso ou fracasso [Você precisa estar registrado e conectado para ver esta imagem.]

    Fabio Morais
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 08/10/2013

    Re: [Resolvido]ListBox desacoplada e carregada via ADOBD, carrega com as colunas desorganizada/fora da ordem

    Mensagem  Fabio Morais em Qui 01 Set 2016, 02:19


    Com a ajuda do mestre Avelino, tive a orientação para solução da adversidade

    basta adicionar a linha

    .CursorLocation = adUseClient


    Re: Organizar retorno de uma ListBox carregada por ADOBD RecordSet
    Mensagempor Avelino Sampaio » 31 Ago 2016, 14:00

    Fábio,

    acrescente a parte em vermelho e teste:

    Código:
    ...
    With rst
    Set .ActiveConnection = conn
    .Source = "\\inet.tam.com.br\tam\Dados\Suprimentos e Logistica\Impex\DataBaseCompex\BackUp\DataBase.accdb"
    .LockType = adLockOptimistic
    .CursorType = adOpenKeyset
    .CursorLocation = adUseClient
    .Open strSQL
    End With
    ...


    .................................................................................
    Ninguém é responsável pelo seu sucesso ou fracasso [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Dom 04 Dez 2016, 12:14