Visual Basic - problemas con while EOF

Life is soft - evento anual de software empresarial
   
Vista:

problemas con while EOF

Publicado por victor alfonzo (3 intervenciones) el 04/01/2010 16:53:29
hola.....
estoy realizando un proyecto en visual basic 6.0 y php myadmin
estoy usando un do while para recorrer una tabla pero cuando llego al ultimo registro se cuelga el programa, este es el codigo:
Qry.MoveFirst
Do While Not Qry.EOF
Set LST = ListView1.ListItems.Add(, , Qry!descripcion)
LST.SubItems(2) = Qry!nfecha
LST.SubItems(1) = Qry!fecha
LST.SubItems(3) = Qry!cod_inf
LST.SubItems(4) = Qry!hallazgos
LST.SubItems(5) = Qry!fallas_corre
LST.SubItems(6) = Qry!fallas_xcorre
LST.SubItems(7) = Qry!nombre
Qry.MoveNext
Loop
Qry.MoveLast
y cuando selecciono el ultimo registro en el listview se cuelga.... me supongo que es cuando llego al ultimo registro por la condicion EOF.. si alguien puede ayudarme se lo agradeceria....
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:problemas con while EOF

Publicado por Llaverin (70 intervenciones) el 04/01/2010 18:11:53
Hola Victor, no se si esto te lo soluciona, pero yo lo hago de la siguiente manera:
Do Until Qry.EOF
Set LST = ListView1.ListItems.Add(, , Qry!descripcion)
LST.SubItems(2) = Qry!nfecha
LST.SubItems(1) = Qry!fecha
LST.SubItems(3) = Qry!cod_inf
LST.SubItems(4) = Qry!hallazgos
LST.SubItems(5) = Qry!fallas_corre
LST.SubItems(6) = Qry!fallas_xcorre
LST.SubItems(7) = Qry!nombre
Qry.MoveNext
Loop

No se si así te dara resultado

Un saludo
Llaverin
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