bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
ListBox carregada por ADOBD RecordSet

Organizar retorno de uma ListBox carregada por ADOBD RecordSet

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).

Usuário Fábio:

Prezados.

Estou com um projeto que carrega uma ListBox em um formulário desvinculado via ADOBD (segue código abaixo).  Não há problema na carga da ListBox, o que está adverso é o retorno da SQL, aonde as colunas estão retornando fora de ordem.

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," 
strSQL = strSQL & "COMPRADOR, AREA_COMPRADOR, NUMERO_ANALISTA_IMPEX, FILTRO_ANALISTA_IMPEX,"
strSQL = strSQL & "FILTRO_FLUXO_COMPRAS FROM T_BASE_LOTE_ECOMEX;"

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

Set Me.listaLotesPendente.Recordset = rst
End Sub

Suporte:

Fábio, acrescente a parte em vermelho e faça o teste:

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

Usuário Fábio:

Avelino boa tarde,

Deu certo. Muito grato por sua orientação.


 

 


1 comentário(s)

MANUEL LUTONDO SILAS   10/06/2020 01:16:29

Sr. Avelino

eu quero criar uma tabela temporia com os dados vindo do SQl SErver apartir do access


Envie seu comentário: