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

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 2x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Open v3

 

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: