[SOLUCIONADO] evitar que salga un registro que no quiero

[oslar]

Buenas de nuevo compañeros.

La idea que tengo es la de buscar en una tabla y evitar que salgan una pregunta que anteriormente esta marcada como preguntada.

para ello primero saco un numero al azar dentro del rango del numero de preguntas que tengo en la base de datos y luego miro si en su campo de si esta preguntada,lo está.
el codigo que utilizo es este,pero no me da lo que quiero.

Código vb:

b = CStr(cmd.ExecuteScalar()) - 1
        
        Do
            a = 1 + (Rnd() * b)
        Loop While a >= b
 
 
        For Each datos As DataRow In imagentabla.Rows
 
            If (datos("id").ToString) = a And datos("preguntada").ToString = False Then
                Button9.Text = datos("tema").ToString
            End If
 
        Next
 

con este codigo si el numero al azar es una pregunta que ya a sido preguntada,no me sale nada.

nose si me e explicado bien,pero sino decirmelo e intentare explicarme mejor.

gracias por vuestra ayuda.

[Malenko]

Es un problema de la lógica del código. Primero te has de plantear en pseudocódigo como solucionarlo y luego pasarlo a c#.

Para que te hagas una idea, este sería el pseudocódigo de tu código:

Código PSEUDOCODE:

b = nº preguntas
 
a = nº aleatorio entre 1 y menor que b     
 
POR CADA REGISTRO
            SI [(registro id) = a ]  Y  [(registro preguntada) = falso] ENTONCES
                             mostrar (registro tema)
            FIN_SI
FIN_POR
 

El problema es que solo generas un "id" y luego te limitas a comprobar si esta preguntada o no. Lo que tendrías que tener es un bucle que mientras no te haya encontrado un id con el registro con preguntada=falso, te genere un nuevo id y vuelva a comprovar.

Es decir, lo mismo que tienes, repetirlo hasta que muestras un tema (un WHILE externo).

[oslar]

gracias Malenko

lo e intentado de esta forma:

Código vb:

Do
            Do
                a = 1 + (Rnd() * b)
            Loop While a >= b
            For Each datos As DataRow In imagentabla.Rows
 
                If (datos("id").ToString) = a And datos("preguntada").ToString = False Then
                    Button9.Text = datos("tema").ToString
                End If
 
            Next
 
        Loop While (datos("id").ToString) = a And datos("preguntada").ToString = False
 

pero me saca un error diciendome que:utilice la clave "new" para crear una instancia de objeto.

se lo que me quieres decir y es la idea que quiero pero no se como adecuar el do ni el while para que no me sake ese error a la hora de ir comparando.

gracias d nuevo

[Malenko]

Dentro del ultimo "Loop While" estas usando la variable "datos" que solo existe dentro del "For each", por eso te dice que falta crearla.

Una solución podría ser guardar el resultado de si esta preguntada, en una variable booleana. La comprobación la haces como hasta ahora en el for each, y en el loop while más externo solo has de consultar la variable booleana.

[oslar]

gracias malenko por la idea

lo e solucionado de esta forma,por si a alguien le sirve

Código vb:

While p = 0
            Do
                a = 1 + (Rnd() * b)
            Loop While a >= b
            For Each datos As DataRow In imagentabla.Rows
 
                If (datos("id").ToString) = a And datos("preguntada").ToString = False Then
                    Button9.Text = datos("tema").ToString
                    p = 1
                End If
 
            Next
 
        End While