... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Organizar retorno de uma ListBox carregada por ADOBD RecordSet

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.


 

 


Não há comentário

Envie seu comentário: