Problemas con loop y ado.net

28/04/2005 - 21:55 por VKTOP | Informe spam
Hola amigos necesito su ayuda
tengo este codigo en vb6 (trabajado con dao)
do
do
do
DCPautas.Recordset.MoveNext
If (DCPautas.Recordset.EOF) Then
MsgBox "La Generacion de la Pauta de Publicacion del " &
Mas_FechaPauta.Text & " ha sido Exitosa ", 0
Exit Sub
End If
condicion
condicion
Loop While Not DCPautas.Recordset.EOF


Bien se mete hasta en 3 loop y como se dan cuenta en el loop mas interno
hago que se desplaze el puntero del recordset, por que necesito que sea en
esa zona y si llega al final sale con un exit.
Bien en vb.net en dataset no veo que exista el movenext, como podria
replicar este codigo en vbv.net?

saludos
Gracias

Victor
 

Leer las respuestas

#1 Angel J. Hernández M.
02/05/2005 - 07:33 | Informe spam
Me parece que la manera como se hace actualmente no es la más óptima sin
embargo la respeto. En ADO.NET puedes iterar por la colección de filas de un
DataTable mediante una instrucción For...Next o una ForEach. Por ejemplo:

1-. Instrucción For...Next
*****************

For x As Integer = 0 To MiDataSet.Tables(0).Rows.Count - 1
Console.WriteLine(MiDataSet.Tables(0).Rows(x)(0).ToString())
Next

Acá mostramos el primer campo de la tabla a medida que iteramos por la misma

2-. Instrucción ForEach
****************

ForEach fila As DataRow In MiDataSet.Tables(0).Rows
Console.WriteLine(fila(0).ToString())
Next


Saludos,


Angel J. Hernández M.
MCP - MCAD - MCSD - MCDBA
http://groups.msn.com/desarrolladoresmiranda


"VKTOP" escribió en el mensaje
news:
Hola amigos necesito su ayuda
tengo este codigo en vb6 (trabajado con dao)
do
do
do
DCPautas.Recordset.MoveNext
If (DCPautas.Recordset.EOF) Then
MsgBox "La Generacion de la Pauta de Publicacion del " &
Mas_FechaPauta.Text & " ha sido Exitosa ", 0
Exit Sub
End If
condicion
condicion
Loop While Not DCPautas.Recordset.EOF


Bien se mete hasta en 3 loop y como se dan cuenta en el loop mas interno
hago que se desplaze el puntero del recordset, por que necesito que sea en
esa zona y si llega al final sale con un exit.
Bien en vb.net en dataset no veo que exista el movenext, como podria
replicar este codigo en vbv.net?

saludos
Gracias

Victor

Preguntas similares