Guardar en 2 tablas de una misma base de datos en sql desde dos formularios

[bitaziko]

Hola vereis tengo un problemilla que no consigo dar con el, debido a mi corta sabiduria con .net

vereis estoy realizando una aplicacion de registro de Clientes y proveedores en una base de datos sql, bien tengo en la base de datos 2 tablas llamadas clientes y proveedores, y tengo 2 formularios de registro uno llamado Clientes y otro Proveedores , tengo creada la conexion a la base de datos y  desde el formulario Proveedores relleno los txtbox y al hacer click en el boton guardar , me guarda el registro correctamente en la tabla de proveedores.

pero en el formulario clientes no guarda el registro en la tabla cliente. le he puesto 3 msgbox uno para requerirme ingresar datos en los campos obligatorios , otro para avisare si se ha realizado el registro y otro para avisarme si no se ha realizado el registro, el caso es q en este formulario de clientes me salta el primer msgbox si tengo todo en blanco, pero cuando relleno los txtbox me salta el tercero, osea el que dice " No se ha podido realizar el registro".... os pongo el codigo del boton guardar:

Código (vbnet) [Seleccionar] Expandir

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim insertar As String
        Dim modifica As SqlCommand
        Dim objeto As New Conectando_BD
        Dim errores As String

        errores = "Ingresar Campos Requeridos"

        Try
            If (TextBox1.Text = "" And TextBox2.Text = "" And TextBox3.Text = "" And ComboBox1.Text = "") Then
                MsgBox(errores)
            Else
                insertar = "insert into dbo.Clientes values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & ComboBox1.Text & "','" & TextBox11.Text & "','" & TextBox12.Text & "','" & TextBox13.Text & "','" & RichTextBox1.Text & "','" & RichTextBox2.Text & "')"
                objeto.conectar_BD()
                modifica = New SqlCommand(insertar, objeto.conectar_BD())
                modifica.ExecuteNonQuery()
                MsgBox("Registro Realizado Correctamente")

                objeto.cerrar_BD()

            End If




        Catch ex As Exception
            MsgBox("No se ha podido realizar el registro")
        End Try
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        TextBox10.Text = ""
        ComboBox1.Text = ""
        TextBox11.Text = ""
        TextBox12.Text = ""
        TextBox13.Text = ""

        RichTextBox1.Text = ""
        RichTextBox2.Text = ""

        TextBox1.Focus()










    End Sub


bien tengo el mismo codigo en ambos formularios Clientes y Proveedores exepto "  insertar = "insert into dbo.Clientes values...." donde cada formulario apunta a si respectiva tabla.

y como ya os he dicho en el formulario Proveedores si me completa el registro sin ningun problema.

prodriais iluminarme un poco en donde puede estar el fallo????

gracias de antemano.

un saludo!!!

[seba123neo]

pues facil, si te salta el mensaje que esta en el Try Catch es porque esta ocurriendo una excepción, o sea un error, simplemente hace MsgBox(ex.Message) y te va a mostrar el error verdadero, seguramente esta en el insert.

saludos.

[bitaziko]

pues facil, si te salta el mensaje que esta en el Try Catch es porque esta ocurriendo una excepción, o sea un error, simplemente hace MsgBox(ex.Message) y te va a mostrar el error verdadero, seguramente esta en el insert.

saludos.

gracias por la respuesta , efectivamente estaba en el insert pues se me habia ocurrido por vago importar una BD de Acces y me daba error en algunos valores de la tabla. solucion crear la tabla directamente en sql.....


muchas gracias!!!!!