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é 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
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/2021 01:16:29 Sr. Avelino eu quero criar uma tabela temporia com os dados vindo do SQl SErver apartir do access |