Excel - No puedo filtrar fechas usando consulta sql

 
Vista:
sin imagen de perfil
Val: 11
Ha aumentado su posición en 3 puestos en Excel (en relación al último mes)
Gráfica de Excel

No puedo filtrar fechas usando consulta sql

Publicado por nick (8 intervenciones) el 31/12/2016 22:47:53
Tengo una macro en excel el cual pretende traer los datos desde una tabla de access y que esos datos tengan como criterio una fecha inicial y una fecha final y en base a esos criterios me filtre la información pero me da error la use así pero nada:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Dim Conexion, Record_set As Object
 
Dim ColsultaSQL, CampoBuscado, Criteriobusqueda As String
 
Dim FilaBuscada As Long
 
Set Conexion = CreateObject("ADODB.Connection")
With Conexion
.Provider = "Microsoft.ACE.OLEDB.12.0"
.ConnectionString = "DATA SOURCE =C:\Users\Familia Martinez\Documents\Bd_Clientes.accdb"
.Open
End With
 
'pagos es el nombre de la tabla y Fecha de pago es el nombre del campo
ColsultaSQL = "select *from Pagos where Fecha de pago BETWEEN '25/10/2016' AND '22/12/2016'"
 
Set Record_set = Conexion.Execute(ColsultaSQL)
 
FilaBuscada = 8
 
Do While Not Record_set.EOF
 
With Hoja4
 
.Cells(FilaBuscada, 2) = Record_set.Fields("factura")
.Cells(FilaBuscada, 3) = Record_set.Fields("fecha de entrada")
.Cells(FilaBuscada, 4) = Record_set.Fields("Fecha de pago")
.Cells(FilaBuscada, 5) = Record_set.Fields("rif")
.Cells(FilaBuscada, 6) = Record_set.Fields("cliente")
.Cells(FilaBuscada, 7) = Record_set.Fields("Monto del credito")
.Cells(FilaBuscada, 8) = Record_set.Fields("Abono")
.Cells(FilaBuscada, 9) = Record_set.Fields("Descripcion")
.Cells(FilaBuscada, 10) = Record_set.Fields("Forma de pago")
.Cells(FilaBuscada, 11) = Record_set.Fields("Documento Nº")
.Cells(FilaBuscada, 12) = Record_set.Fields("Banco")
 
FilaBuscada = FilaBuscada + 1
Record_set.MoveNext
End With
 
Loop
 
MsgBox "Los datos fueron filtrados exitosamente", vbInformation, "Búsqueda completa"
 
Call EnumerarFilas
 
Record_set.Close 'cierra el record set
Conexion.Close 'cierra la conexxion
Set Record_set = Nothing
Set Conexion = Nothing 'vacia el record set y la conexion
 
End Sub

tambien intente de esta forma pero aun sin tener resultados deseables:

1
2
3
4
CampoBuscado =Me. ComboBox1
fechainicio = "'" & Me.TextBox1 & "'"
fechafinal = "'" & Me.TextBox2 & "'"
ColsultaSQL = "select *from Pagos where " & CampoBuscado & BETWEEN & fechainicio And fechafinal

Agradecería mucho su ayuda ya que tengo 2 días intentando por cuenta propia pero no doy en el clavo(dejo el archivo access por si es necesario)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 11
Ha aumentado su posición en 3 puestos en Excel (en relación al último mes)
Gráfica de Excel

No puedo filtrar fechas usando consulta sql

Publicado por nick (8 intervenciones) el 01/01/2017 04:12:29
la consulta SQl sin variable la realice de esta forma y me funciona:

ColsultaSQL = "select * from pagos where fecha_pago between #28/10/2016# and #22/12/2016# "

pero no logro hacerlo con variables y es lo que mas me importa ya que estoy trabajando con textboxs donde iran las fechas y en un combobox ira el campo fecha por favor ayudenme a filtrar las fechas con variables
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar