consulta sql
hola que tal!
Tengo un problemilla y esque voy un poco pez en sql.
Tengo la siguiente tabla:
Incidencias(nombre de la tabla), con los siguientes campos:
*id
*fechaalta
*tipo
*numserie
*averia
*observaciones
tengo que hacer una consulta sql donde yo le indique dos fechas y quiero que me saque todas las incidencias que ocurrieron entre esas dos fechas. Es decir si pongo del 01/01/2003 hasta 20/01/2003 quiero que me saque todos los registros que van desde la primera fecha hasta la segunda. Por favor ayudenme estoy muy liado y no se como solucionarlo. Gracias de antemano y un saludo.
Tengo un problemilla y esque voy un poco pez en sql.
Tengo la siguiente tabla:
Incidencias(nombre de la tabla), con los siguientes campos:
*id
*fechaalta
*tipo
*numserie
*averia
*observaciones
tengo que hacer una consulta sql donde yo le indique dos fechas y quiero que me saque todas las incidencias que ocurrieron entre esas dos fechas. Es decir si pongo del 01/01/2003 hasta 20/01/2003 quiero que me saque todos los registros que van desde la primera fecha hasta la segunda. Por favor ayudenme estoy muy liado y no se como solucionarlo. Gracias de antemano y un saludo.
Primero debes de insertar dos dtpkicker un datagrid un command botton y un textbox si quieres sumar el total de registros de esa consulta el codigo seria asi:
Option Explicit
Private Sub Form_Resize()
DTPick2.Value = Date
DTPick1.Value = "01" & Mid(Date, 3)
Command1_Click
End Sub
Private Sub Command1_Click()
If DTPick1 > DTPick2 Then
MsgBox ("La fecha inicial no puede ser superior a la final.")
Exit Sub
End If
Me.Adodc1.RecordSource = "Select SUM(Importe) As Total from Gastos " & _
"Where Fecha >= DateValue(""" & DTPick1 & """)" _
& " And Fecha <= DateValue(""" & DTPick2 & """)"
Me.Adodc1.Refresh
Text3.Text = Format(Adodc1.Recordset!Total, "####0.00")
Me.Adodc1.RecordSource = "select * from Gastos " & _
"Where Fecha >= DateValue(""" & DTPick1 & """)" _
& " And Fecha <= DateValue(""" & DTPick2 & """)"
Me.Adodc1.Refresh
Set Me.DataGrid1.DataSource = Me.Adodc1
End Sub
espero que te sirva, el codigo no es mio lo encontre en otra pagina web
Option Explicit
Private Sub Form_Resize()
DTPick2.Value = Date
DTPick1.Value = "01" & Mid(Date, 3)
Command1_Click
End Sub
Private Sub Command1_Click()
If DTPick1 > DTPick2 Then
MsgBox ("La fecha inicial no puede ser superior a la final.")
Exit Sub
End If
Me.Adodc1.RecordSource = "Select SUM(Importe) As Total from Gastos " & _
"Where Fecha >= DateValue(""" & DTPick1 & """)" _
& " And Fecha <= DateValue(""" & DTPick2 & """)"
Me.Adodc1.Refresh
Text3.Text = Format(Adodc1.Recordset!Total, "####0.00")
Me.Adodc1.RecordSource = "select * from Gastos " & _
"Where Fecha >= DateValue(""" & DTPick1 & """)" _
& " And Fecha <= DateValue(""" & DTPick2 & """)"
Me.Adodc1.Refresh
Set Me.DataGrid1.DataSource = Me.Adodc1
End Sub
espero que te sirva, el codigo no es mio lo encontre en otra pagina web
