intento de lectura más allá del final de la secuencia mysql
Buenas tardes, aquí te envió la programación donde me sale el error:
Private Sub Guardar()
Try
comando = New MySqlCommand("INSERT INTO miembrosfamilia(idfamilia,Id_ficha,hc,nombres,apellidos,sexo,tip_doc,dni,fec_nac,edad,parentesco,est_civil,grado_inst,ocupacion,tip_seguro,etnia,idioma,religion,region,provincia,distrito,cond_salud,activo)" &
"VALUES (@idfamilia, @Id_ficha, @hc, @nombres, @apellidos, @sexo, @tip_doc, @dni, @fec_nac, @edad, @parentesco, @est_civil, @grado_inst, @ocupacion, @tip_seguro, @etnia, @idioma, @religion, @region, @provincia, @distrito, @cond_salud, @activo)", conexion)
comando.Parameters.AddWithValue("@idfamilia", TxtIdFamilia.Text)
comando.Parameters.AddWithValue("@Id_ficha", TxtCodFicha.Text)
comando.Parameters.AddWithValue("@hc", TxtHc.Text)
comando.Parameters.AddWithValue("@nombres", TxtNombres.Text)
comando.Parameters.AddWithValue("@apellidos", TxtApellidos.Text)
comando.Parameters.AddWithValue("@sexo", CbbSexo.Text)
comando.Parameters.AddWithValue("@tip_doc", CbbTdoc.Text)
comando.Parameters.AddWithValue("@dni", TxtDni.Text)
comando.Parameters.AddWithValue("@fec_nac", DtpFecnac.Value)
comando.Parameters.AddWithValue("@edad", TxtEdad.Text)
comando.Parameters.AddWithValue("@parentesco", CbbParentesco.Text)
comando.Parameters.AddWithValue("@est_civil", CbbCivil.Text)
comando.Parameters.AddWithValue("@grado_inst", CbbInstruccion.Text)
comando.Parameters.AddWithValue("@ocupacion", CbbOcupacion.Text)
comando.Parameters.AddWithValue("@tip_seguro", CbbTseguro.Text)
comando.Parameters.AddWithValue("@etnia", CbbEtnia.Text)
comando.Parameters.AddWithValue("@idioma", CbbIdioma.Text)
comando.Parameters.AddWithValue("@religion", CbbReligion.Text)
comando.Parameters.AddWithValue("@region", CbbRegion.Text)
comando.Parameters.AddWithValue("@provincia", CbbProvincia.Text)
comando.Parameters.AddWithValue("@distrito", CbbDistrito.Text)
comando.Parameters.AddWithValue("@cond_salud", CbbCondicion.Text)
comando.Parameters.AddWithValue("@activo", TxtCondicion.Text)
comando.ExecuteNonQuery()
MsgBox("Datos registrados exitosamente", vbInformation, "mikharozhu")
LimpiarTextBox(Me, GroupBox1)
LimpiarComboBox(Me, GroupBox1)
LimpiarComboBox(Me, GroupBox2)
CbbCondicion.Text = ""
CbbTdoc.Focus()
Catch ex As Exception
MsgBox("Error en el procedimiento: " + ex.ToString)
'MsgBox("Error al registrar", vbCritical, "mikharozhu")
End Try
End Sub
los códigos de errores esta en la imagen que la e subido.