SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: BUHO en Miércoles 3 de Diciembre de 2003, 20:06
-
Hola foro.
Miproblema es el siguiente: Quiero realizar un listado comprendido entre dos fechas pasadas por dos dtpicker. Tengo realizado el código pero el problema es que no me lo ejecuta os adjunto el código haber si he cometido algún error
Set db = OpenDatabase(App.Path & "\facturacion.mdb")
Tira = "select * from factura WHERE [fec] >= """ & DTPicker1 & """ and [fec] <= """ & DTPicker2 & """ "
Set campo = db.OpenRecordset(Tira)
If campo.RecordCount > 0 Then
With campo
.MoveFirst
While Not .EOF
List1.AddItem campo(0) & Space(10) & campo(1) _
& Space(18) & Format(campo(13), "###,##0.00") & Space(29) & campo(3)
.MoveNext
Wend
End With
End If
no me ejecuta nada en cambio si cambio la variable Tira por la siguiente
Tira = "select * from factura WHERE [fec] >= """ & DTPicker1 & """ "
entonces si ejecuta el list1.
Es urgente bueno hacer lo que podais.
Gracias a todos
-
hola amigo acá tienes un ejemplo cómo debes hacer la consulta de lo que quieres,
variable1= DTpicker1.Value
variable2 = DTpicker2.value
STRQUERY = "SELECT * FROM tabla WHERE tabla.campo BETWEEN #" & Format(variable1, "mm/dd/yyyy") & "# and #" & Format(variable2, "mm/dd/yyyy") & "#order by campo_de_ordenamiento"
1*- declaras dos variables fecha variable1..2
2*- le asignas el string de conexion indicando que te develva solo los registros de tu tabla que esten en tre las dos fechas utilizando el format.
3*- luego llenas tu flex o tu capo que donde quieres mostrar la info..
esto funciona perfecto en mi aplicación..
Saludos y espero que te sirva de mucho cualquier cosa, por acá estare
bye
-
Gracias jorge por responder, voy a probar tu respuesta y te cuento
un saludo
-
OKIS....