No se actualizan los datos en una forma de VS 2010

[alien51]

Hola amigos. Mi problema:

Aplicación hecha en Visual Studio 2010

Terminé una aplicacion que simplemente es un control de alumnos en unos cursos para la Primera Comunión. Todo funciona de maravilla a excepción de que, cuando se ingresa un alumno nuevo, graba el registro correctamente pero la forma no se refresca con los nuevos datos. Hay que salir y volver a entrar.

¿Podrían ayudarme dónde buscar la falla?

Gracias.

[stingofung]

Saludos "alien51",

Primero que todo, a que te refieres con la 'forma'. ¿Puedes postear el código que tienes en el evento LOAD y el evento CLICK del boton guardar para revisarlo y asi porder ayudarte?

Recomiendo mover el post a Desarrollo .NET

[alien51]

Gracias..

Código Load:

Código Visual Basic:

Private Sub cursos_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Try
    Me.con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & "c:\cursosDB\alumnos.mdb; Persist Security Info=False"
       con.Open()
    dta = New OleDbDataAdapter("Select * from cursos order by nombre", con)
    dtap = New OleDbDataAdapter("Select * from meses order by nombre", con)
    dcon = New OleDbDataAdapter("Select * from contador order by regnum", con)
    Dim oCB As OleDbCommandBuilder = New OleDbCommandBuilder(dta)
    dst = New DataSet
    dta.Fill(dst, "cursos")
    dtap.Fill(dst, "meses")
    dcon.Fill(dst, "contador")
    Me.dgView.DataSource = dst
    Me.dgView.DataMember = "cursos"
    If Me.dst.Tables("cursos").Rows.Count <= 0 Then
      ClNuevo = "SI"
      Me.tbNuevo.PerformClick()
    Else
      vNumeroAlumnos = Me.dst.Tables("cursos").Rows.Count()
      vIngresoMensual = vNumeroAlumnos * 35
      TotalFecha()
      ClNuevo = "NO"
      IposAct = 0
      cargaDatos()
      Botones("BASE")
      txtNumAl.Text = vNumeroAlumnos
      txtMatricula.Text = String.Format("{0:n2}", vMatricula)
     End If
    Catch ex As Exception
    MessageBox.Show(ex.Message)
    End Try
  End Sub
 

Código Grabar:

Código Visual Basic:

Private Sub tbGrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbGrabar.Click
    Dim nuevo As New alumnos
    With nuevo
      .nombre = txtNombre.Text
      .dia = cmbDia.SelectedItem
      .edad = cmbEdad.SelectedItem
      .grupo = cmbGrupo.SelectedItem
      .hora = cmbHora.SelectedItem
      .acudiente = txtAcudiente.Text
    End With
    nuevo.meses = Month(txtInicio.Text)
    vMes = nuevo.elmes
    nuevo.ano = txtInicio.Text
    vAno = nuevo.elano
    If nuevo.nombre = "" Or nuevo.dia = "" Or nuevo.edad = "" Or nuevo.grupo = "" Or nuevo.hora = "" Or nuevo.acudiente = "" Then
      MsgBox("Los campor marcados ** no pueden estar en blanco")
      reset()
      Exit Sub
    Else
      cmd = con.CreateCommand
      cmd.Connection = con
      Dim Trans As OleDbTransaction
      Trans = con.BeginTransaction
      cmd.Transaction = Trans
      Try
        cmd.CommandText = "INSERT into cursos (id,nombre,edad,colegio,inicio,grupo,dia,hora,acudiente,telof,telcel,telres,email,notas,saldo,total,ultimomes) values ('" & vUltimo & "', '" & nuevo.nombre & "', '" & nuevo.edad & "', '" & txtColegio.Text & "', '" & txtInicio.Text & "', '" & nuevo.grupo & "', '" & nuevo.dia & "', '" & nuevo.hora & "', '" & nuevo.acudiente & "', '" & txtTelof.Text & "', '" & txtTelcel.Text & "', '" & txtTelres.Text & "', '" & txtEmail.Text & "', '" & txtNotas.Text & "', '" & txtMatricula.Text & "',0, '" & vMes & "')"
        cmd.ExecuteNonQuery()
        cmd.CommandText = "INSERT into meses (id,nombre,monto,mesactual,status,ano) values ('" & vUltimo & "', '" & txtNombre.Text & "', '" & txtMatricula.Text & "','" & vMes & "','ACTIVO','" & vAno & "')"
        cmd.ExecuteNonQuery()
        Trans.Commit()
        MessageBox.Show("Alumno Creado OK")
      Catch ex As OleDbException
        Trans.Rollback()
        MessageBox.Show("Error al conectar con datos" & ControlChars.CrLf & ex.Message & ControlChars.CrLf & ex.Message)
      End Try
    End If
 
  End Sub
 

Cargadatos (Funciona tambien para actualizar el DataGridView)

Código Visual Basic:

Private Sub cargaDatos() 
    If ClNuevo = "SI" Then
      Exit Sub
    End If
    txtBuscar.Text = ""
    txtNombre.Focus()
    Dim dtr As DataRow
    dtr = Me.dst.Tables("Cursos").Rows(Me.IposAct)
    vSaldo = dtr("saldo")
    vTotal = dtr("total")
    vId = dtr("id")
    posChange()
    If dtr("nombre") Is DBNull.Value Then
      Me.txtNombre.Text = ""
    Else
      Me.txtNombre.Text = dtr("nombre")
    End If
    If dtr("acudiente") Is DBNull.Value Then
      Me.txtAcudiente.Text = ""
    Else
      Me.txtAcudiente.Text = dtr("acudiente")
    End If
    If dtr("telcel") Is DBNull.Value Then
      Me.txtTelcel.Text = ""
    Else
      Me.txtTelcel.Text = dtr("telcel")
    End If
    If dtr("colegio") Is DBNull.Value Then
      Me.txtColegio.Text = ""
    Else
      Me.txtColegio.Text = dtr("colegio")
    End If
    If dtr("dia") Is DBNull.Value Then
      Me.txtDia.Text = ""
    Else
      Me.txtDia.Text = dtr("dia")
    End If
    If dtr("edad") Is DBNull.Value Then
      Me.txtEdad.Text = ""
    Else
      Me.txtEdad.Text = dtr("edad")
    End If
    If dtr("email") Is DBNull.Value Then
      Me.txtEmail.Text = ""
    Else
      Me.txtEmail.Text = dtr("email")
    End If
    If dtr("grupo") Is DBNull.Value Then
      Me.txtGrupo.Text = ""
    Else
      Me.txtGrupo.Text = dtr("grupo")
    End If
    If dtr("hora") Is DBNull.Value Then
      Me.txtHora.Text = ""
    Else
      Me.txtHora.Text = dtr("hora")
    End If
    If dtr("inicio") Is DBNull.Value Then
      Me.txtInicio.Text = ""
    Else
      Me.txtInicio.Text = dtr("inicio")
    End If
    If dtr("telof") Is DBNull.Value Then
      Me.txtTelof.Text = ""
    Else
      Me.txtTelof.Text = dtr("telof")
    End If
    If dtr("telres") Is DBNull.Value Then
      Me.txtTelres.Text = ""
    Else
      Me.txtTelres.Text = dtr("telres")
    End If
    If dtr("saldo") Is DBNull.Value Then
      Me.txtSaldo.Text = 0
    Else
      Me.txtSaldo.Text = String.Format("{0:n2}", vSaldo) 'dtr("saldo")
    End If
    If dtr("ultimomes") Is DBNull.Value Then
      Me.txtUltimoMes.Text = ""
    Else
      Me.txtUltimoMes.Text = dtr("ultimomes")
    End If
    If dtr("ultimopago") Is DBNull.Value Then
      Me.txtUltimoPago.Text = ""
    Else
      Me.txtUltimoPago.Text = dtr("ultimopago")
    End If
    txtIngresoMensual.Text = String.Format("{0:n2}", vIngresoMensual)
    RegInfo()
   End Sub
 

Como decía, funciona perfecto al grabar el registro pero no se actualiza la forma (la pantalla) con los nuevos datos.

Nota: soy nuevito aquí y no sé como mover el post a otro lado

[stingofung]

Ok, bueno lo que tienes que hacer es invocar a la función cargarDataGrid() donde incluyas el siguiente código, despues de terrminar de ejecutarse tbGrabar_Click:

Código:

Me.con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & "c:\cursosDB\alumnos.mdb; Persist Security Info=False"

       con.Open()

    dta = New OleDbDataAdapter("Select * from cursos order by nombre", con)

    dtap = New OleDbDataAdapter("Select * from meses order by nombre", con)

    dcon = New OleDbDataAdapter("Select * from contador order by regnum", con)

    Dim oCB As OleDbCommandBuilder = New OleDbCommandBuilder(dta)

    dst = New DataSet

    dta.Fill(dst, "cursos")

    dtap.Fill(dst, "meses")

    dcon.Fill(dst, "contador")

    Me.dgView.DataSource = dst

    Me.dgView.DataMember = "cursos"

Es decir, tienes que volver a invocar la consulta que carga los datos de tus datagrid.

[alien51]

¡¡¡Super!!! Funciona OK. Lo úncio que añadí fue poner la botonería, cajas de texto, etc de la forma en el formato default (BASE) y focus a la caja de texto NOMBRE. Muchas gracias stingofun. Saludos

[stingofung]

De nada alien51, para eso estamos.

Saludos.