Que me falta en este codigo? Asi no me funciona

soraia
29 de Septiembre del 2004
Hola a todos!
Ante de nada quiero dar las gracias a los que me contestaron el mensaje anterior, ya esta solucionado.
Ahora tengo el siguiente problema: Tengo un listado de factura, despues de una consulta en el listview, y quiero sumar los totales. Para ello utilizo el siguiente codigo, pero no me funciona, me podrias ayudar
Dim mi_variable As Currency
Do While Not rs.EOF
mi_variable = mi_variable + rs.Fields("Total")
Loop
Txteuros.Text = mi_variable

Gracias

German
29 de Septiembre del 2004
Seguramente no instanciaste el recordset. Al principio cuando lo declaras tenes que poner:
Dim Rs as New ADODB.REcordset' (ó Recordset) segun si estas o no utilizando la referencia de ADODB
o tal vez no inicializaste el objeto coneccion o el mismo recordset.
Tambien a tu codigo le esta faltando la instruccion de "rs.MoveNext" ya que si no la pones nunca va a llegar a fin de archivo y va a entrar en un bucle infinito. Espero que puedas solucionarlo. No estas tan lejos. Suerte.

alex
29 de Septiembre del 2004
Hola mi amor, prueba de esta forma y te funcionará

Dim mi_variable As Currency
rst.MoveFirst
Do While Not rs.EOF
mi_variable = mi_variable + rs.Fields("Total")
rst.MoveNext
Loop
Txteuros.Text = mi_variable

Un beso

Alex

soraia
29 de Septiembre del 2004
Gracias por contestarme Alex! Pero me sigue dando el error 91: "Object variable or with block variable not set"

Y no se donde me equivoco

besitos