Imprimir Página - mostrar datos por mes y año

Título: mostrar datos por mes y año
Publicado por: leliCabello en 9 Junio 2010, 01:46 am

nuenas, ps estoy tratando de mostrar datos registrados de visitas por mes y año, es decir, cuando elijo el año y el mes de ambos combos, deberian botar regis de ese mes y año en el datagrid______ estuve haciendolo asi:::>

Código:

Private Sub cboAnio_Change()
If cboAnio.Text <> "" Then
        adoVisitas.RecordSource = "select * from TEMPORAL_VISITAS where (YEAR(TEMPORAL_VISITAS.fecha)=" & cboAnio.Text & ") AND (MONTH(TEMPORAL_VISITAS.fecha) = " & mes & ") order by cod_visitas"
        adoVisitas.Refresh
    End If
End Sub

En mi mi base de datos tiene un solo registro de junio elijo enero, y no funciona... ayudenme pliss

Título: Re: mostrar datos por mes y año
Publicado por: leliCabello en 10 Junio 2010, 00:35 am

ayuden p ...Por favor

Título: Re: mostrar datos por mes y año
Publicado por: Shell Root en 10 Junio 2010, 00:49 am

Pero funciona correctamente así como lo tienes.

Código

mysql> SELECT * FROM PoC;
+------+------------+
| id   | fecha      |
+------+------------+
|    1 | 1991-02-18 |
|    2 | 1993-02-18 |
|    3 | 1993-03-18 |
|    4 | 1991-04-18 |
+------+------------+
4 ROWS IN SET (0.00 sec)
 
 
mysql> SELECT * FROM PoC WHERE ((YEAR(fecha) ='1991') AND (MONTH(fecha) ='02'));
+------+------------+
| id   | fecha      |
+------+------------+
|    1 | 1991-02-18 |
+------+------------+
1 ROW IN SET (0.00 sec)

Título: Re: mostrar datos por mes y año
Publicado por: leliCabello en 10 Junio 2010, 00:56 am

(http://img811.imageshack.us/f/form.gif/)
http://img811.imageshack.us/f/form.gif/
==> este es mi form, cosa q si elijo el mes y año debe salir los datos con los registros correspondientes, y se supone que al elegir enero 2011 deberia salir en blanco, pero no funciona------------ ayudenme por favor :-(

Título: Re: mostrar datos por mes y año
Publicado por: leliCabello en 10 Junio 2010, 20:15 pm

como deberia hacer para guardar, con lo q hize no me funciona... Como deberia hacer, ayudenme plisssS

Código:

If cboCliente.Text <> "" And DTPicker1.Value <> "" _
    And txtResultado.Text <> "" Then
    ModoEditar False
    cod_cliente = cboCliente.Text
    adoCliente.Recordset.MoveFirst
    adoCliente.Recordset.Find "nom_cliente='" & cod_cliente & "'"
    cod_cliente = adoCliente.Recordset(0).Value
    '
    rsguardar!fecha = DTPicker1.Value
    rsguardar!resultadodevisita = txtResultado.Text
    
    rsguardar.Update
    rsguardar.Close
    Set rsguardar = Nothing
    adoVisitas.Refresh
    MsgBox "Los datos se guardaron con exito"
    conectar
    Else
        MsgBox "Todo los datos son obligatorios no debe guardar cuando este vacio"
        txtResultado.SetFocus
    End If

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: leliCabello en 9 Junio 2010, 01:46 am