Problemas EOF o BOF ?????????????

[oblacionx]

Tengo el siguiente problema necesito, hacer una subconsulta, pero como al hacerlo me salia el valor de BOF o EOF es True, el registro actual se elimino, la operacion solicitada requiere un registro actual, para lo cual separe en dos consultas, para conseguir primero la fecha y pasarla luegoa una 2da consulta, pero me sale el mismo error, les agradecere su ayuda, aqui les anexo el codigo antes descrito

Dim rsProducto As New ADODB.Recordset
Dim rsFecha As New ADODB.Recordset
Dim intCantidad As Integer
Dim dtFecha As Date

With rsFecha
.ActiveConnection = cn
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.Source = "SELECT MAX(FecLot) as FECHA FROM Lote WHERE CodPro='" & txtCodPro.Text & "'"
.Open
End With

If IsNull(rsFecha!Fecha) = True Then
dtFecha = Date
Else
dtFecha = rsFecha!Fecha
End If
rsFecha.Close
Set rsFecha = Nothing

With rsProducto
.ActiveConnection = cn
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.Source = "SELECT CanProRes as CANTIDAD FROM Lote WHERE CodPro='" & txtCodPro.Text & "' AND FecLot=" & dtFecha
.Open
End With

If IsNull(rsProducto!Cantidad) = True Then
intCantidad = 0
Else
intCantidad = rsProducto!Cantidad
End If

lblCantidadTotal.Caption = intCantidad + CInt(txtCantidadLote.Text)

[GeoAvila]

bueno si no estoy mal para poner ese tiepo de if's tendria que ser algo asi...

Código:

If rsFecha.BOF = True Then
dtFecha = Date
Else
dtFecha = rsFecha!Fecha
End If

espero te sirva..

[oblacionx]

Eso lo se lo que pasa es que lo que uso en el if es para saber si el valor resultante es nulo o no, pero el problema me nace con el mensaje que me sale que hace referencia aEOF o BOF ,

[OYEME]

lo que pasa es que cuando no hay registros el puntero se ubica en el bof o en eof y cuando tu pones rs.fecha por decir sale error por que le puntero esta en el bof o en el eof
tendrias que hacer como dice geoavila

if rs.bof or rs.eof then
'no hay regsitros
else
' si hay regsirtso
endif

[DK_]

prueba esto:

if rs.recordcount=0 then
intCantidad = 0
else
If IsNull(rsProducto!Cantidad) = True Then
intCantidad = 0
Else
intCantidad = rsProducto!Cantidad
End If
End if

[MaxExtreme]

Iniciado por DK_

prueba esto:

if rs.recordcount=0 then
intCantidad = 0
else
If IsNull(rsProducto!Cantidad) = True Then
intCantidad = 0
Else
intCantidad = rsProducto!Cantidad
End If
End if

Por favor, que este topic es del 2004, no subáis temas antiguos....

[un_tio]

Jajajaja, es verdad, han subido un tópic de hace un año. De todos modos, siempre es útil su lectura . Seguramente el que lo ha subido tenía el mismo problema que el que abrió el tópic, buscando (quizás a través del Google) llegó ahí, lo ha solucionado y ha decidido poner su solución (no se ha dado cuenta en la fecha, y para él el tema era totalmente actual. Es su primer mensaje en el foro así que dudo que se haya fijado en las fechas ni cosas así...).

Lo cierto es que esto de respetar las fechas... hay temas que nunca caducan.