MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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 22 Out 2017, 11:16