SOS F1 ... HELP !!!

Casi me doy de topes con el monitor pero no el hallo la solucion a este
problema. alguien por fabor digame que estoy haciendo mal.. :( me

loco solo me falta eso y termino mi proyecto llevo mas de una semana pero

hallo el error.. :( gracias por la ayuda.. :$

este es el error..

Excepción no controlada del tipo 'System.Data.SqlClient.SqlException' en
system.data.dll

Información adicional: Error del sistema.



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

If (Me.ComboBox1.Text <> "") Then

leer.ReadXml("seleccion_forma.xml")

Dim fila As DataRow

For Each fila In leer.Tables(0).Rows

insertar(fila.Item("Cantidad"), fila.Item("Fecha Vencimiento"),
fila.Item("Nombre Generico"), fila.Item("Nombre Comercial"),
fila.Item("Dosis"), fila.Item("Presentacion"), fila.Item("Medida de

fila.Item("Proveedor"))

Next

guardar_informe()

MessageBox.Show("Valores Ingresados")

Me.Close()

Else

MessageBox.Show("Verifique los Datos")

End If

End Sub

Private Function guarda_stock()

Dim comando As New SqlCommand("insert into stock " & _

"values(@c_ingreso,@c_producto,@c_salida,@c_proveedor,@f_vence)",

Dim ada As New SqlDataAdapter()

conexion.Open()

ada.InsertCommand = comando

With ada.InsertCommand

.Parameters.Add(New SqlParameter("@c_ingreso", SqlDbType.Int))

.Parameters.Add(New SqlParameter("@c_producto", SqlDbType.Int))

.Parameters.Add(New SqlParameter("@c_salida", SqlDbType.Int))

.Parameters.Add(New SqlParameter("@c_proveedor", SqlDbType.Int))

.Parameters.Add(New SqlParameter("@f_vence", SqlDbType.DateTime))

.Parameters("@c_ingreso").Value = c_infor

.Parameters("@c_producto").Value = c_producto

.Parameters("@c_salida").Value = c_salida

.Parameters("@c_proveedor").Value = c_proveedor

.Parameters("@f_vence").Value = f_vence

End With

ada.InsertCommand.ExecuteNonQuery() ->>> ACA REPORTA ERROR

conexion.Close()

End Function

Public Function insertar(ByVal canti As Integer, ByVal fecha As Date,

n_gen As String, ByVal n_com As String, ByVal dos As String, ByVal n_uni

String, ByVal m_dos As String, ByVal n_prove As String)

Dim i As Integer

For i = 0 To cantidad

f_vence = fecha

c_infor = get_c_inf()

c_producto = get_c_prod(n_gen, n_com, dos, n_uni, m_dos)

c_salida = 0

c_proveedor = get_c_prove(n_prove)

guarda_stock()

Next

End Function

ada.InsertCommand.ExecuteNonQuery() ->>> ACA REPORTA ERROR

Casi me doy de topes con el monitor pero no el hallo la solucion a este
problema. alguien por fabor digame que estoy haciendo mal.. :( me vuelvo
loco solo me falta eso y termino mi proyecto llevo mas de una semana pero no
hallo el error.. :( gracias por la ayuda.. :$

este es el error..

Excepción no controlada del tipo 'System.Data.SqlClient.SqlException' en
system.data.dll

Información adicional: Error del sistema.
-



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

If (Me.ComboBox1.Text <> "") Then

leer.ReadXml("seleccion_forma.xml")

Dim fila As DataRow

For Each fila In leer.Tables(0).Rows

insertar(fila.Item("Cantidad"), fila.Item("Fecha Vencimiento"),
fila.Item("Nombre Generico"), fila.Item("Nombre Comercial"),
fila.Item("Dosis"), fila.Item("Presentacion"), fila.Item("Medida de Dosis"),
fila.Item("Proveedor"))

Next

guardar_informe()

MessageBox.Show("Valores Ingresados")

Me.Close()

Else

MessageBox.Show("Verifique los Datos")

End If

End Sub

Private Function guarda_stock()

Dim comando As New SqlCommand("insert into stock " & _

"values(@c_ingreso,@c_producto,@c_salida,@c_proveedor,@f_vence)", conexion)

Dim ada As New SqlDataAdapter()

conexion.Open()

ada.InsertCommand = comando

With ada.InsertCommand

.Parameters.Add(New SqlParameter("@c_ingreso", SqlDbType.Int))

.Parameters.Add(New SqlParameter("@c_producto", SqlDbType.Int))

.Parameters.Add(New SqlParameter("@c_salida", SqlDbType.Int))

.Parameters.Add(New SqlParameter("@c_proveedor", SqlDbType.Int))

.Parameters.Add(New SqlParameter("@f_vence", SqlDbType.DateTime))

.Parameters("@c_ingreso").Value = c_infor

.Parameters("@c_producto").Value = c_producto

.Parameters("@c_salida").Value = c_salida

.Parameters("@c_proveedor").Value = c_proveedor

.Parameters("@f_vence").Value = f_vence

End With

ada.InsertCommand.ExecuteNonQuery() ->>> ACA REPORTA ERROR

conexion.Close()

End Function

Public Function insertar(ByVal canti As Integer, ByVal fecha As Date, ByVal
n_gen As String, ByVal n_com As String, ByVal dos As String, ByVal n_uni As
String, ByVal m_dos As String, ByVal n_prove As String)

Dim i As Integer

For i = 0 To cantidad

f_vence = fecha

c_infor = get_c_inf()

c_producto = get_c_prod(n_gen, n_com, dos, n_uni, m_dos)

c_salida = 0

c_proveedor = get_c_prove(n_prove)

guarda_stock()

Next

End Function

millon de gracias.. esto me salio como reporte de mi

cruzaba por la mente que fuera cosa de la base de datos

modela segun me dijeron...
creo que el problema radica aqui verdad.. ?

1 .- ) create index RELATIONSHIP_13_FK on STOCK (
COD_PRODUCTO)
2.-) alter table STOCK
add constraint FK_STOCK_RELATIONS_PRODUCTO

(COD_PRODUCTO)
references PRODUCTO (COD_PRODUCTO)

System.Data.SqlClient.SqlException: Instrucción INSERT

restricción COLUMN FOREIGN

ha aparecido en la base de datos 'farmacia',

'COD_PRODUCTO'.

Se terminó la instrucción.

at System.Data.SqlClient.SqlCommand.ExecuteReader

cmdBehavior, RunBehavior runBehavior, Boolean

at System.Data.SqlClient.SqlCommand.ExecuteNonQuery()

at WindowsApplication1.foringre.guarda_stock() in
D:\karnash\Proyectos\visual net\WindowsApplication1

.