Visual Basic - Recordset

Life is soft - evento anual de software empresarial
 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Recordset

Publicado por Iván Calderón (76 intervenciones) el 10/07/2007 03:50:19
Donde te da el error? porq me parece que el error lo tienes es en la linea
Total=rs("Placa")
deberia ser

Total=rs.fields("Placa")
ó

Total=rs!Placa
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Recordset

Publicado por federico (189 intervenciones) el 10/07/2007 19:05:00
para mi es que no lo llevas el primer lugar osea antes de l do while tenes que poner por ej:
rs.movefirst ' esto lo lleva al 1º registro
Do While Not rs.EOF
var = var + 1
rs.MoveNext
Loop
Total = var
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar