Gracias..
Código Load:
Código Visual Basic:
Ver originalPrivate 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:
Ver originalPrivate 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:
Ver originalPrivate 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
