Visual Basic - buscar registros por fecha

Life is soft - evento anual de software empresarial
   
Vista:

buscar registros por fecha

Publicado por Manuel (47 intervenciones) el 12/03/2008 10:50:57
Hola, tengo una base de datos ACCESS asociada a un adodc, tengo que buscar en ella todos los registros con la misma fecha en el campo FECHA, y enviar esta selección a otra base de datos ACCESS. ¿Podría hacerlo con una sentencia SQL?.

Gracias
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

RE:buscar registros por fecha

Publicado por eugenior (45 intervenciones) el 12/03/2008 11:26:27
Hola segun lo que entiendo hay dos cosas que podes hacer:

la primera es mostrar en panalla una seleccion con los datos depurados por el criterio fecha. es decir que ingresas una fecha y que solo queden en una tabla los campos que correspondan a esa fecha

usando DataGrid1 y Adodc1
inicializar el Adodc1 con la base de datos y determinar que datos queremos mostrar ej. select * from compras

vincular el datagrid con el adodc1

en un cuadro de texto ingresar la fecha

en el keyup

Private Sub text1_KeyUp(KeyCode As Integer, Shift As Integer)
Adodc1.RecordSource = "select * From compras where fecha like '" & text1.Text & "%' order by Fecha"
Adodc1.Refresh
DataGrid1.Refresh
End Sub

y la segunda es que recorras la base de datos y almacenes los que tengan el criterio de la fecha.
recorrer la tabal con un do while e ir cargando los datos en la nueva tabla
Ej.

Dim R_Compras as DAO.Recordset
Set db = OpenDatabase(App.Path & "SVentas.mdb")
Set R_Compras = db.OpenRecordset("Compras")
R_Compras.index = "Primarykey"
R_Compras.movefirst
do while not R_Compras.eof
R_Compras.edit
if R_Compras!fecha = FechaBuscada then

'aca abrir la base y guardar los registros que necesitas

end if
R_Compras.monext
loop
R_Compras.close
db.close


- espero que algo de esto te sirva. suerte
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

RE:buscar registros por fecha

Publicado por Manuel (47 intervenciones) el 12/03/2008 17:38:59
Muchas Gracias por tu respuesta eugenior, he adaptado el codigo a mi proyecto y queda así:

Dim R_Compras As DAO.Recordset
Set db = OpenDatabase(App.Path & "HAIR´S PELU.mdb")
Set R_Compras = db.OpenRecordset("CONTABILIDAD")
R_Compras.Index = "Primarykey"
R_Compras.MoveFirst
Do While Not R_Compras.EOF
R_Compras.Edit
If R_Compras!FECHA = FechaBuscada Then
A = R_Compras!EMPLEADA
'aca abrir la base y guardar los registros que necesitas
End If
R_Compras.Monext
Loop
R_Compras.Close
db.Close

Al ejecutarse la instrucción Set db = OpenDatabase(App.Path & "HAIR´S PELU.mdb") me indica el error que no reconoce el formato de la base de datos
siendo esta una ACCESS.

Por otro lado me indica otro error en R_Compras.Monext, ¿ no será MoveNext?
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