Recordset
Publicado por Monica (1 intervención) el 09/07/2007 16:59:50
Hola necesito ayuda con el Recordset ,estoy trabajando con el ADODB y SQL Server , tengo un problema con el MoveLast, no me permite ir al ultimo registro y tampoco puedo contar mi numero de Registros de mi consulta , utilizo el RecordCount.
Aqui te envio parte de mi codigo donde quiero ubicarme en el ultimo registro , pero no me funciona , asi que he utilizo un Do while para irme al ultimo registro.
If varTipoVehiculo = "V" Then
Call VerificarPlacasAbastecimiento(varTipoPlaca, varTipoVehiculo, "MD")
If rs.EOF Or rs.BOF Then
mensage "No hay placas Menores en abastecimiento"
Exit Sub
Else
/*************Do while creado para irme al ultimo registro*********/
var = 1001
descrip = rs!descripcion
Do While Not rs.EOF
var = var + 1
rs.MoveNext
Loop
Total = var
/************************************************************************/
rs.movelast
Total=rs("placa") /*****este codigo no me funciona****/
/***********************************************************************/
LVAbastecimiento.Visible = True
Set subelemento = LVAbastecimiento.ListItems.Add(Text:=descrip)
subelemento.ListSubItems.Add Text:="MD"
subelemento.ListSubItems.Add Text:=Total
End If
End If
Necesito que me digan cual es mi error y que puedo hacer , necesecito usar el movelast para otras consultas
Aqui te envio parte de mi codigo donde quiero ubicarme en el ultimo registro , pero no me funciona , asi que he utilizo un Do while para irme al ultimo registro.
If varTipoVehiculo = "V" Then
Call VerificarPlacasAbastecimiento(varTipoPlaca, varTipoVehiculo, "MD")
If rs.EOF Or rs.BOF Then
mensage "No hay placas Menores en abastecimiento"
Exit Sub
Else
/*************Do while creado para irme al ultimo registro*********/
var = 1001
descrip = rs!descripcion
Do While Not rs.EOF
var = var + 1
rs.MoveNext
Loop
Total = var
/************************************************************************/
rs.movelast
Total=rs("placa") /*****este codigo no me funciona****/
/***********************************************************************/
LVAbastecimiento.Visible = True
Set subelemento = LVAbastecimiento.ListItems.Add(Text:=descrip)
subelemento.ListSubItems.Add Text:="MD"
subelemento.ListSubItems.Add Text:=Total
End If
End If
Necesito que me digan cual es mi error y que puedo hacer , necesecito usar el movelast para otras consultas
Valora esta pregunta


0