Msflexgrid
Hola, que tal, me gustaría si me pueden ayudar con este problemita que tengo...
Estoy terminando un programa en vb 6.0 y lo que necesito hacer es lo siguiente:
Realice una bese de datos (mdb) con el administrador visual de datos, cree una tabla que se llama caja, en ella están los siguientes campos, fecha, hora, tiempo y importe, lo que necesito es filtrar las fechas, es decir, cuando ponga en un text1.text la fecha 13/03/03 me mustre todos los registros con esa fecha y hora, tiempo.. Etc y los otras fechas no.
Y también quisiera saber como puedo hacer para que me sume toda la columna importe.
Desde ya espero su respuesta urgente y les agradezco
Tower2003
Estoy terminando un programa en vb 6.0 y lo que necesito hacer es lo siguiente:
Realice una bese de datos (mdb) con el administrador visual de datos, cree una tabla que se llama caja, en ella están los siguientes campos, fecha, hora, tiempo y importe, lo que necesito es filtrar las fechas, es decir, cuando ponga en un text1.text la fecha 13/03/03 me mustre todos los registros con esa fecha y hora, tiempo.. Etc y los otras fechas no.
Y también quisiera saber como puedo hacer para que me sume toda la columna importe.
Desde ya espero su respuesta urgente y les agradezco
Tower2003
1 respuesta
Respuesta de kiek
1
Tienes que hacer lo siguiente
1-Agregar un dbcombo y un controldata agregas el siguiente código con la consulta SQL
Private Sub DBCombo1_LostFocus()
Dim Codigo As String
Codigo = Me.DBCombo3.Text
Me.Data1.RecordSource = "SELECT * FROM Periodos WHERE Codigo =" & Codigo
Me.Data1.Refresh
End Sub
Otra forma es escribir en el data, en la propiedad record source la siguiente consulta SQL:
"SELECT DISTINCT [Fecha] FROM Caja"
Sin comillas, el data lo pegas de un dbcombo en la propiedad listfiel
2-La suma de las columnas se hace más fácil así y con SQL:
Debes de crear un bdlist y un data y un botón que sume (claro que si quieres lo puedes hacer con un click, lostfocus, etc) dale doble clic al dbcombo (del punto 1) y agregale el siguiente código:
Me.Data1.RecordSource = "SELECT SUM(Total) FROM [Valor] WHERE [Fecha]=" & Fecha
Me. Data1. Refresh
Al dblist le amarras el control data en la propiedad rowsource, y en la propiedad listfiel escribes "expr1000"
Sin comillas
No te olvides de calificar la respuesta
Chao
Kiek
1-Agregar un dbcombo y un controldata agregas el siguiente código con la consulta SQL
Private Sub DBCombo1_LostFocus()
Dim Codigo As String
Codigo = Me.DBCombo3.Text
Me.Data1.RecordSource = "SELECT * FROM Periodos WHERE Codigo =" & Codigo
Me.Data1.Refresh
End Sub
Otra forma es escribir en el data, en la propiedad record source la siguiente consulta SQL:
"SELECT DISTINCT [Fecha] FROM Caja"
Sin comillas, el data lo pegas de un dbcombo en la propiedad listfiel
2-La suma de las columnas se hace más fácil así y con SQL:
Debes de crear un bdlist y un data y un botón que sume (claro que si quieres lo puedes hacer con un click, lostfocus, etc) dale doble clic al dbcombo (del punto 1) y agregale el siguiente código:
Me.Data1.RecordSource = "SELECT SUM(Total) FROM [Valor] WHERE [Fecha]=" & Fecha
Me. Data1. Refresh
Al dblist le amarras el control data en la propiedad rowsource, y en la propiedad listfiel escribes "expr1000"
Sin comillas
No te olvides de calificar la respuesta
Chao
Kiek
