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:::> 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
ayuden p ...Por favor
Pero funciona correctamente así como lo tienes.
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)
(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 :-(
como deberia hacer para guardar, con lo q hize no me funciona... Como deberia hacer, ayudenme plisssS
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