Programación General > Visual Basic 6.0 e inferiores

 Consulta Sql Xunga

(1/1)

_vgt_:
Holaaa!!!, ya estoy aki de nuevo xD  ... tengo un problema
con una consulta SQL que me da mal el resultado...
a ver si vosotros podeis ayudarme, os explico un poco: kiero comparar dos fechas
para que todos los albaranes k se encuentren entre esas dos fechas me los liste en otro sitio y he comprobado k los campos esten bien, k las fechas k le pido esten
en la bd y aun asi me dice k no tiene nada k mostrar... aki os pongo lo k he hexo a ver si alguien puede ayudarme...


--- Código: Text ---  Dim busqueda1 As Date, busqueda2 As Date Dim tRs As RecordsetDim db As ConnectionDim a& Dim sBuscar As String sBuscar = "Select NumeroAlbaran,FechaAlbaran,Nombre,Apellidos,Telefono,Direccion,Provincia,Dni,Concepto,FechaEntrada,NumeroHoras,IVA,TotalIva,TotalDia,TotalCobrado,ImporteHora From Albaranes WHERE FechaAlbaran BETWEEN " & busqueda1 & " AND " & busqueda2 & " ORDER BY FechaAlbaran ASC"   
Muxas gracias a todos!!!
Saludos :hola:

_vgt_:
Viendo la hora k es he optado x la solucion mas facil pero la menos correcta... para como el k yo este cansado de pelearse con las fechas y necesite un "plan B" para cubrir un parxe y dejar funcionando momentaneamente aki le dejo la solucion a la k he llegado... lo hace cojonudamente bien pero como ya digo es una solucion poco ortodoxa...  <_<


--- Código: Text ---     busqueda1 = DateValue(txtFechaInicio.Text)    busqueda2 = DateValue(txtFechaFinal.Text)    RegistrosTotales = adcFacturacion.Recordset.RecordCount         For i = 1 To RegistrosTotales     If CDate(adcFacturacion.Recordset.Fields(&#34;FechaAlbaran&#34;)) &#62;= CDate(busqueda1) Then         If CDate(adcFacturacion.Recordset.Fields(&#34;FechaAlbaran&#34;)) &#60;= CDate(busqueda2) Then             If adcFacturacion.Recordset.Fields(&#34;Dni&#34;) = txtCIF.Text Then                    ' haces lo k kieras con los registros                    '-----------------------------------------                    adcFacturacion.Recordset.MoveNext                Else                    adcFacturacion.Recordset.MoveNext                End If            Else                adcFacturacion.Recordset.MoveNext            End If        Else            adcFacturacion.Recordset.MoveNext        End If     Next i  
visual basic 1 - _vgt_ 0 pero x mis cojones k el cabron este termina haciendo la consulta bien  xDD  y perdonad el lenguaje mal sonante pero hoy ha sido un dia demasiado largo...   :brickwall:   :ouch:

Saludos a todos y en cuanto tenga la solucion aki la cuelgo para disfrute de todos...

 :adios:

Brroz:
Hola _vgt_.

http://foros.solocodigo.com/index.php?showtopic=6055
Imagino que este tema te dará la pista definitiva.

Chao.

_vgt_:
Muxas gracias Brroz !!!!!!    :rolleyes:s

Saludos!!!   :hola:

_vgt_:
Muxas gracias Brroz !!!!!!    :rolleyes:s

Saludos!!!   :hola:

Navegación

[0] Índice de Mensajes