Hola a todos y gracias por los que respondieron y trataron de ayudarme.
Les cuento que mientras analizaba el porque de este error me di cuenta que al principio de la subrutina donde estaba asignandole los valores a las variables... especificamente aqui:
Código:
cedula = txtCed.Text
nombre = txtNombre.Text
ape1 = txtApe1.Text
ape2 = txtApe2.Text
tel = Integer.Parse(txtTel.Text) 'AQUI ESTA MI ERROR'
direc = txtDirec.Text
email = txtEmail.Text
Al yo pasar lo que el textbox
TEL traiga a un tipo de dato
INT pasaba que cuando el textbox venia vació se me caía el proceso y me presentaba el error que describí en el tema. Entonces lo que hice fue lo siguiente:
Código:
cedula = txtCed.Text
nombre = txtNombre.Text
ape1 = txtApe1.Text
ape2 = txtApe2.Text
tel = txtTel.Text 'LE QUITE EL INTEGER.PARSE'
direc = txtDirec.Text
email = txtEmail.Text
base.conectar()
If (txtCed.Text = " ") Then
MsgBox("Error. No digito la Cédula", MsgBoxStyle.Critical, "Error al registrar...")
txtCed.Focus()
Else
If base.consulta("INSERT INTO Usuarios values('" & cedula & "','" & nombre & "','" & ape1 & "','" & ape2 & "','" & Integer.Parse(tel) & "','" & direc & "','" & email & "')") Then
MsgBox("Exito al registrar al usuario: " & nombre & " " & ape1 & " " & ape2,
MsgBoxStyle.Information, "Registro exitoso...")
Else
MsgBox("No se pudo registrar al usuario: " & nombre & " " & ape1 & " " & ape2,MsgBoxStyle.Critical, "Registro no exitoso...")
End If
End If