If accion = "nuevo" Then
'Validando Captura de Datos
If txtNom_cli.Text = "" Then
MsgBox("El nombre no puede estar en Blanco")
TabControl1.SelectedIndex = 0
txtNom_cli.Focus()
Return
End If
If txtApe_cli.Text = "" Then
MsgBox("El Apellido no puede estar en Blanco")
txtApe_cli.Focus()
Return
End If
If txtDir_cli.Text = "" Then
MsgBox("El Apellido no puede estar en Blanco")
TabControl1.SelectedIndex = 0
txtDir_cli.Focus()
Return
End If
'Fin Validación Captura de Datos
'Método para insertar estudiantes
Try
conexion.Close()
conexion.Open()
'comandos = New OleDbCommand("insert into Tbla_Cliente (Nom_cli,Ape_cli,Dir_cli,cel_cli,Tel_clie,fecha_ing,est_civ) values (txtNom_cli," & vbCrLf &
' "txtApe_cli, txtDir_cli, txtTel_Cli, txtCel_Cli, txtFecha_Reg, cboSexo)", conexion)
comandos = New OleDbCommand("insert into Tbla_Cliente (Nom_cli,Ape_cli,Dir_cli,cel_cli,Tel_clie,fecha_ing,est_civ)" & Chr(13) &
"VALUES (txtNom_cli, txtApe_cli, txtDir_cli, txtTel_Cli, txtCel_Cli, txtFecha_Reg, cboSexo)", conexion)
'comandos.Parameters.AddWithValue("@Cod_cli", txtCod_Clic.Text)
comandos.Parameters.AddWithValue("@Nom_cli", txtNom_cli.Text)
comandos.Parameters.AddWithValue("@Ape_cli", txtApe_cli.Text)
comandos.Parameters.AddWithValue("@Dir_cli", txtDir_cli.Text)
comandos.Parameters.AddWithValue("@cel_cli", txtCel_Cli.Text)
comandos.Parameters.AddWithValue("@Tel_clie", txtTel_Cli.Text)
comandos.Parameters.AddWithValue("@fecha_ing", txtFecha_Reg.Text)
comandos.Parameters.AddWithValue("@est_civ", cboSexo.Text)
comandos.ExecuteNonQuery()
MsgBox("Guardado correctamente", vbInformation, "Correcto")
Me.Tbla_ClienteTableAdapter.Fill(Me.DbDemoDataSet.Tbla_Cliente)
Me.TblaClienteBindingSource.MoveLast()
Me.Habilitar_Entrada(False)
TabControl1.SelectedIndex = 0
Catch ex As Exception 'En caso de que ocurra una excepción
MsgBox("Error al intectar Guardar en la base de datos", vbExclamation, "Error")
End Try
End If
If accion = "modificar" Then
conexion.Close()
conexion.Open()
Dim actualizar As String
actualizar = "UPDATE Tbla_Cliente SET Nom_cli = '" & txtNom_cli.Text &
"', Ape_cli = '" & txtApe_cli.Text &
"', Dir_cli = '" & txtDir_cli.Text &
"', cel_cli = '" & txtCel_Cli.Text &
"', Tel_clie = '" & txtTel_Cli.Text &
"', est_civ = '" & cboSexo.Text &
"' WHERE Cod_cli =" & txtCod_Clic.Text & " "
'" & txtCod_Clic.Text & ""
comandos = New OleDbCommand(actualizar, conexion)
comandos.ExecuteNonQuery()
MsgBox("Actualizado Correctamente", vbInformation, "Correcto")
Me.Tbla_ClienteTableAdapter.Fill(Me.DbDemoDataSet.Tbla_Cliente)
Me.TblaClienteBindingSource.MoveLast()
Me.Habilitar_Entrada(False)
TabControl1.SelectedIndex = 0
End If