...
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
Antes de iniciar a sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.
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 |
