Insertar en dos tablas con el controltab
Tengo un tabcontrol con 5 pestañas (Tabpages) con distintos controles (texbox y combobox) usando visual basic del visual studio 2008 y tengo la base de datos en sqlserver 2005 el problema es el siguiente:
Necesito insertar en dos tablas en la primera pestaña inserta en la tabla personas y las otras 4 pestañas en una tabla curriculum pero me inserta los datos de personas y no en la tabla curriculum no inserta nada estoy haciendo algo mal me podrían ayudar.
Código:
insertarPer = "insert into persona(cod_persona,nombre,apellido,cuil,estado_civil,sexo,nacionalidad," _
& "email,fecha_nacimiento,tipo_dni,dni) values(" & per & ",'" & Me.TextBox1.Text & "','" _
& Me.TextBox2.Text & "','" & Me.MaskedTextBox1.Text & "','" & civil & "','" _
& sexo & "','" & Me.TextBox5.Text & "','" & Me.TextBox6.Text & "','" & DateTimePicker1.Value.Date & "'," _
& Me.ComboBox1.SelectedValue & ",'" & Me.TextBox4.Text & "')"
comando = New SqlCommand(insertarPer, conex)
comando.ExecuteNonQuery()
insertarCv = "insert into cv (cod_cv,fecha_alta,estudios_primarios,estudios_secundarios,estudios_universitarios,posgrados,experiencia_laboral,cursos_realizados," & "perfil, cod_persona) values (" & cv & "','" & DateValue(Now) & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox11.Text & "','" & TextBox12.Text & "'," & Me.ComboBox2.SelectedValue & ","& per & ")"
comando = New SqlCommand(insertarCv, conex)
comando.ExecuteNonQuery()
Necesito insertar en dos tablas en la primera pestaña inserta en la tabla personas y las otras 4 pestañas en una tabla curriculum pero me inserta los datos de personas y no en la tabla curriculum no inserta nada estoy haciendo algo mal me podrían ayudar.
Código:
insertarPer = "insert into persona(cod_persona,nombre,apellido,cuil,estado_civil,sexo,nacionalidad," _
& "email,fecha_nacimiento,tipo_dni,dni) values(" & per & ",'" & Me.TextBox1.Text & "','" _
& Me.TextBox2.Text & "','" & Me.MaskedTextBox1.Text & "','" & civil & "','" _
& sexo & "','" & Me.TextBox5.Text & "','" & Me.TextBox6.Text & "','" & DateTimePicker1.Value.Date & "'," _
& Me.ComboBox1.SelectedValue & ",'" & Me.TextBox4.Text & "')"
comando = New SqlCommand(insertarPer, conex)
comando.ExecuteNonQuery()
insertarCv = "insert into cv (cod_cv,fecha_alta,estudios_primarios,estudios_secundarios,estudios_universitarios,posgrados,experiencia_laboral,cursos_realizados," & "perfil, cod_persona) values (" & cv & "','" & DateValue(Now) & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox11.Text & "','" & TextBox12.Text & "'," & Me.ComboBox2.SelectedValue & ","& per & ")"
comando = New SqlCommand(insertarCv, conex)
comando.ExecuteNonQuery()