MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    avatar
    Fabio Morais
    Novato
    Novato


    Respeito às regras : 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 Empty [Resolvido]ListBox desacoplada e carregada via ADOBD, carrega com as colunas desorganizada/fora da ordem

    Mensagem  Fabio Morais 31/8/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 What a Face
    avatar
    Fabio Morais
    Novato
    Novato


    Respeito às regras : 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 Empty Re: [Resolvido]ListBox desacoplada e carregada via ADOBD, carrega com as colunas desorganizada/fora da ordem

    Mensagem  Fabio Morais 1/9/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 What a Face

      Data/hora atual: 28/3/2024, 22:47