Minha base (access) de Dados (Tabela1) possui cinco colunas e centenas de linhas e a ideia é trazer apenas um intervalo de linhas para um listbox no excel, por exemplo do Id 21 ao 40.
Tentei uma pesquisa tipo Id 21 AND 40 e não obtive êxito.
Espero tenha feito me entender....
Nesse procedimento abaixo consigo carregar quando consulto com 2 Sql, mas quando consulto com os 3 dá erro
Dim Rs As New ADODB.Recordset
Dim Sql As String
Dim i As Integer
ConectaDb
ListBox1.Clear
Sql = "Select * From Tabela1"
' Sql = Sql & " WHERE Id >= " & 21
Sql = Sql & " WHERE Id <= " & CDbl(40)
Rs.Open Sql, cnn, adOpenKeyset, adLockReadOnly
i = 0
If Rs.RecordCount > 0 Then
With Me.ListBox1
.ColumnWidths = col1 & ";" & col2 & ";" & col3 & ";" & col4 & ";" & col5 & ";" & col6
.ColumnCount = 6
Do
.AddItem Format(Rs!ID, "00000"
.List(.ListCount - 1, 1) = Rs!Cliente
.List(.ListCount - 1, 2) = Rs!Produto
.List(.ListCount - 1, 3) = Format(Rs!Vunit, "Currency"
.List(.ListCount - 1, 4) = Rs!Qtde
.List(.ListCount - 1, 5) = Format(Rs!VTot, "Currency"
i = i + 1
Rs.MoveNext
Loop Until Rs.EOF
End With
End If
cnn.Close
Fazer pergunta
