ADO DataGrid Buscar por mes (PROBLEMA)
Publicado por Eduardo (1 intervención) el 24/05/2018 16:19:50
Hola Buenas tardes! estoy cargando una base de datos en acces, usando DAO y datagrib. En VB6. Necesito abrir un formulario en el cual se muestre una grilla con todos los que nacieron en el mes actual, sea del año que sea, el dia que sea, el codigo que tengo hecho no hace lo que quiero, busca entre fechas, nada mas. Me podrian ayudar?
Antes de nada! muchas gracias!
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
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BaseDeDatos\BaseDeDatos.mdb;Persist Security Info=False"
With Adodc1
.CommandType = adCmdText
.RecordSource = "Select * From Afiliados"
.RefreshSet DataGridUsuarios.DataSource = Adodc1.Recordset
End With
On Error GoTo error_Handler
With Adodc1
If Text1 <> "" Then
'aca necesito hace buscar por mes :(
.Recordset.Filter = "[Nacimiento] >= #" & "1/2/1992" & "# AND [Nacimiento] <= #" & "28/2/1992" & " #"
Set DataGridUsuarios.DataSource = Adodc1.Recordset
Else
.Recordset.Filter = ""
End If
.RefreshEnd With
Exit Sub
error_Handler:If Err.Number = 3265 Then
MsgBox "el campo seleccionado no es válido", vbCritical
Else
MsgBox Err.Description, vbCritical
End If
End Sub
Antes de nada! muchas gracias!
Valora esta pregunta
0