Error al insertar datos con tablas relacionadas

Estoy haciendo un sistema de ventas y tengo un problema al insertar datos en mis tablas y no encuentro solución. Estas son las relaciones que tengo en mi DB y al insertar datos en mi tabla detalle_venta me aparece el error "The INSERT statement conflicted with the FOREIGN KEY constraint "FK_detalle_venta_producto". The conflicted occurred in database "despensa", table "dbo. Producto", column "codproducto". The statement has been terminated". ¿Alguien sabe por qué puede ser? Quiero insertar mediante un botón que se llama Guardar y el código es ese.

Private Sub btnguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardar.Click

Try

Dim dts As New vdetalle_venta
Dim func As New fdetalle_venta

For Each row As DataGridViewRow In DataGridView1.Rows

dts.gcodproducto_dv = Convert.ToInt64(row.Cells("codproducto").Value())
dts.gcantidad = Convert.ToDouble(row.Cells("cantidad").Value())
dts.gprecio_unitario = Convert.ToDouble(row.Cells("precio").Value())
dts.gimporte = Convert.ToDouble(row.Cells("importe").Value())

Next

If func.insertar(dts) Then
If func.disminuir_stock(dts) Then

End If

MessageBox.Show("Artículo añadido a la venta", "vamos a añadir productos", MessageBoxButtons.OK, MessageBoxIcon.Information)

Else
MessageBox.Show("Artículo no fue añadido", "guardando registros", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

Catch ex As Exception

End Try

End Sub

1 Respuesta

Respuesta

Error al insertar datos con tablas relacionadas

Private Sub btnguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardar.Click
Try
Dim dts As New vdetalle_venta
Dim func As New fdetalle_venta
For Each row As DataGridViewRow In DataGridView1.Rows
dts.gcodproducto_dv = Convert.ToInt64(row.Cells("codproducto").Value())
dts.gcantidad = Convert.ToDouble(row.Cells("cantidad").Value())
dts.gprecio_unitario = Convert.ToDouble(row.Cells("precio").Value())
dts.gimporte = Convert.ToDouble(row.Cells("importe").Value())
Next
If func.insertar(dts) Then
If func.disminuir_stock(dts) Then
End If
MessageBox.Show("Artículo añadido a la venta", "vamos a añadir productos", MessageBoxButtons. OK, MessageBoxIcon. Information)
Else
MessageBox.Show("Artículo no fue añadido", "guardando registros", MessageBoxButtons. OK, MessageBoxIcon. Information)
End If
Catch ex As Exception
End Try
End Sub

Mas Informacion: http://dapalan.com/I91l 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Integrar datos visual studio a sql mediante datagridview

Estoy realizando un programa de ventas y al momento de ingresar mis ventas en el datagridview para guardarlo en el SQL este ultimo solo registra la 1era venta realizada, envio la programacion que le doy al boton guardar para que me ayuden . Necesito...
2 respuestas

Aumentar y disminuir stock en vba.net y sql

Estimados/as Tengo un problema con la creacion de mis procedimientos para aumentar solo el stock del programa que estoy realizando, son 2 formularios 1 form ventas y 2 form historialventas Cuando deseo eliminar una venta efectuada, no se genera...
1 respuesta

Visual basic.net

Estoy trabajando un proyecto con vb.net y mysql ... El problema me surgió cuando utilice en 2 procedimientos unos dataadapter..., el primero lo uso para limpiar ciertos txtbox según los que en la base de datos estén habilitados para ser borrados cada...
1 respuesta

Infracción de restricción de primary key

El error completo es infracción de restricción primary key pk_relaciones, no se puede insertar una clave duplicada en el objeto dbo. Relaciones Sin alguien me pudiera ayudar se lo agradecería mucho Aclaro que en la tabla no hay registros duplicados,...
1 respuesta

Almacenar Imagen a MySql.

Estoy desarrollando sistema de gestión de empleados, tengo un formulario de altas, bajas y ediciones. En este formulario quiero agregar, eliminar o modificar la foto del empleado según sea el caso para esto agregue un PictureBox y un botón agregar...
1 respuesta

Como crear un archivo.ini y utilizar su contenido

Estoy comensando mis estudios de computacion en la universidad y tengo que hacer un proyecto pero no ce ni como comensarlo talves me puedas dar una idea. Como puedo crear una archivo .INI desde visual basic 2005 en el siguiente directotio c:/windows...
1 respuesta

Como cargo un reporte en ASP.NET

NET, no se si este es tu fuerte pero si me puedes ayudar te lo agradeceré, resulta que estoy iniciando con ASP.NET, ya tengo mi pequeña página y ahora en esa página quiero cargar un reporte que hice en crystall, el problema esta en que cuando llamo...
1 respuesta

Buscar fila en datagridview

De la solución anterior he tenido ciertos percances que espero que con tu gentileza me puedas ayudar Public Function BuscarEnDataGrid(ByVal TextoABuscar As String, ByRef datagrid As DataGridView) As Boolean ' cambie esta fila --Where(clave =...
1 respuesta

Buscar por coincidencia con vb 2005 en base datos acce

Mi pregunta es como hacer para que mientras escribo en un texbox en otro seballan mostrando los registros que coincidan en la base de datos access con lo que esta en el texbox por favor ayudame ya que solo encuentro ejemplos para el sql
1 respuesta

Error al insertar datos VB

Lo que pasa e es que tengo las siguientes funciones, pero al tratar de insertar los datos me aparece el error que relsalto en negro y no se como corregirlo, ya he mirado las tablas SQL todo y no veo por ningún lado el error... Mil gracias... Function...
2 respuestas