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:
tambien intente de esta forma pero aun sin tener resultados deseables:
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)
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)
- Bd_Clientes.rar(46,3 KB)
Valora esta pregunta


0