Private Sub tbGrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbGrabar.Click
vFecha = ""
vFecha = txtInicio.Text
vEdad = cbEdad.SelectedItem
vGrupo = cbGrupo.SelectedItem
vDia = cbDia.SelectedItem
vHora = cbHora.SelectedItem
mesactual()
If txtNombre.Text = "" Or txtAcudiente.Text = "" Or vFecha = "" Or vGrupo = "" Or vHora = "" Or vDia = "" Or vEdad = "" Then
MessageBox.Show("Nombre, Acudiente, Grupo, Hora, Inicio, Día o Edad no pueden estar en blanco", "Error en Grabación",
MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
Else
Try
cmd = con.CreateCommand
cmd.Connection = con
cmd.CommandText = "INSERT into cursos
(nombre,edad,colegio,inicio,grupo,dia,hora,acudiente,telof,telcel,telres,email,notas,saldo,total) values
(@nombre,@edad,@colegio,@inicio,@grupo,@dia,@hora,@acudiente,@telof,@telcel,@telres,@email,@notas,0,0)"
cmd.Parameters.Add("@Nombre", SqlDbType.VarChar, 50).Value = txtNombre.Text
cmd.Parameters.Add("@edad", SqlDbType.VarChar, 10).Value = vEdad
cmd.Parameters.Add("@colegio", SqlDbType.VarChar, 50).Value = txtColegio.Text
cmd.Parameters.Add("@inicio", SqlDbType.VarChar, 50).Value = vFecha
cmd.Parameters.Add("@grupo", SqlDbType.VarChar, 3).Value = vGrupo
cmd.Parameters.Add("@dia", SqlDbType.VarChar, 10).Value = vDia
cmd.Parameters.Add("@hora", SqlDbType.VarChar, 12).Value = vHora
cmd.Parameters.Add("@acudiente", SqlDbType.VarChar, 50).Value = txtAcudiente.Text
cmd.Parameters.Add("@telres", SqlDbType.VarChar, 20).Value = txtResidencia.Text
cmd.Parameters.Add("@telof", SqlDbType.VarChar, 20).Value = txtOficina.Text
cmd.Parameters.Add("@telcel", SqlDbType.VarChar, 20).Value = txtCelular.Text
cmd.Parameters.Add("@email", SqlDbType.VarChar, 50).Value = txtEmail.Text
cmd.Parameters.Add("@notas", SqlDbType.VarChar, 100).Value = txtNotas.Text
cmd.ExecuteNonQuery()
cmd = con.CreateCommand
cmd.Connection = con
cmd.CommandText = "INSERT into meses (id,nombre,monto,mesactual,status) values ('" & vUltimo &
"',@nombre,@monto,@mesactual,'ACTIVO')"
cmd.Parameters.Add("@Nombre", SqlDbType.VarChar, 50).Value = txtNombre.Text
cmd.Parameters.Add("@monto", SqlDbType.Money, 20).Value = txtMensualidad.Text
cmd.Parameters.Add("@mesactual", SqlDbType.VarChar, 12).Value = vMes
cmd.ExecuteNonQuery()
MessageBox.Show("Alumno Creado OK")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
reset()
End Sub