Ver Mensaje Individual
  #10 (permalink)  
Antiguo 29/09/2006, 03:58
Avatar de SuperPinwi
SuperPinwi
 
Fecha de Ingreso: septiembre-2005
Mensajes: 317
Antigüedad: 19 años, 6 meses
Puntos: 1
bueno pongo cómo ha quedado ahora jeje pego sólo lo q es el cuerpo del bucle, la declaración de las variables supongo q no tendrá nada q ver jeje

Código:
If n = 0 Then
                MessageBox.Show("No se ha encontrado ningún registro que coincida con la selección")
            Else
                If IsNumeric(TxtBxPorcentaje.Text) = True Then
                    For fila = 0 To n - 1
                        dr = dt.Rows(fila)
                        OleDbUpdateCommand.Connection = objConn
                        nNumero = dt.Rows(fila)("numero")
                        porcentaje2 = nNumero + TxtBxPorcentaje.Text
                        MessageBox.Show("nNumero:" & nNumero & "porcentaje2: " & porcentaje2)
                        OleDbUpdateCommand.CommandText = "UPDATE Numeros SET numero = " & porcentaje2 & " WHERE ID = " & identificador
                        OleDbUpdateCommand.ExecuteNonQuery()
                        If (identificador <= n) Then
                            identificador = identificador + 1
                        End If
                    Next
                Else
                    MessageBox.Show("El valor que ha introducido para actualizar la base de datos no es válido, recuerde que debe ser de tipo númerico", "Aviso")
                End If
gracias de nuevo por el interés amigo!