VB6 - DataGrid - myRecordSet.moveNext

[Laufwerk]

Hola amigos!!!

Tengo una duda, para movernos por un recordset utilizamos
myRecordSet.MoveNext
y así pasamos al siguiente registro.
Pero si lo que queremos es que cambie al siguiente registro diferente al actual como lo hariamos?

Os pongo una imagen de ejemplo



El Registro actual señalado en la columna pbtnpet vale 550349 y si ponemos el MoveNext estaremos en el de abajo que tb vale lo mismo, pero si quiero cambiar directamente al siguiente registro diferente, es decir, en la imagen seria... 550345, como lo podria hacer?


Gracias!!!

[Avellaneda]

Iniciado por Laufwerk

Hola amigos!!!

Tengo una duda, para movernos por un recordset utilizamos
myRecordSet.MoveNext
y así pasamos al siguiente registro.
Pero si lo que queremos es que cambie al siguiente registro diferente al actual como lo hariamos?

Os pongo una imagen de ejemplo



El Registro actual señalado en la columna pbtnpet vale 550349 y si ponemos el MoveNext estaremos en el de abajo que tb vale lo mismo, pero si quiero cambiar directamente al siguiente registro diferente, es decir, en la imagen seria... 550345, como lo podria hacer?


Gracias!!!

Hola, podrías hacer un bucle que vaya recorriendo el recordset hasta que el valor del campo sea diferente. Sería algo así:

Dim MiVar As String
MiVar = myRecordset!pbtnpet
Do While myRecordset!pbtnpet = MiVar
myRecordset.MoveNext
Loop


Bueno, esa es la idea.

[Laufwerk]

En el caso de que sea distinto pasaria a la linea despues del loop, verdad?

Dim MiVar As String
MiVar = myRecordset!pbtnpet
Do While myRecordset!pbtnpet = MiVar
myRecordset.MoveNext
Loop
SiguienteLinea


pero esto no puedo hacerlo dentro de él mismo pq me saldria algun error, no?
me explico

si yo ya tengo este codigo para moverme del 1r al ultimo registro, no podria poner tu codigo dentro pq no me serviria

Do While Not myRecordset.EOF
Dim MiVar As String
MiVar = myRecordset!pbtnpet
Do While myRecordset!pbtnpet = MiVar
myRecordset.MoveNext
Loop
Loop


gracias!!!

[Kruzado]

utiliza findfirst o findnext

myRecordSet.findfirst "tucampo=" & tucondicion

[Laufwerk]

En vb6 no existen FindFirst, FindNext, existe el Find, que para variar npi.

Miraré a ver que sabe google.

Gracias de todas formas

[Avellaneda]

Iniciado por Laufwerk

En el caso de que sea distinto pasaria a la linea despues del loop, verdad?

Dim MiVar As String
MiVar = myRecordset!pbtnpet
Do While myRecordset!pbtnpet = MiVar
myRecordset.MoveNext
Loop
SiguienteLinea


pero esto no puedo hacerlo dentro de él mismo pq me saldria algun error, no?
me explico

si yo ya tengo este codigo para moverme del 1r al ultimo registro, no podria poner tu codigo dentro pq no me serviria

Do While Not myRecordset.EOF
Dim MiVar As String
MiVar = myRecordset!pbtnpet
Do While myRecordset!pbtnpet = MiVar
myRecordset.MoveNext
Loop
Loop


gracias!!!

Y para qué la instrucción Do While Not myRecordset.EOF, si lo que quieres es controlar cuando el puntero llega al último registro, le pones dentro del bucle esta instrucción:

If myRecordset.EOF Then Exit Do

[Laufwerk]

ok, lo probare!

Gracias!