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
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!!!