como guardar en el insert las claves foraneas cargadas en losl comboboxs

[future89]

necesito guardar en la tabla libros la clave foranea de proveedores y editoriales cargadas en los combobox que aparecen en el codigo

y me sale error de las claves foraneas como debe estar el insert?

Código vb:

Private Sub AccionesLibros_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        myConn = New SqlConnection("Initial Catalog=libroteka;Data Source=localhost;Integrated Security=SSPI;")
 
        myConn.Open()
        myCmd = myConn.CreateCommand
        myCmd.CommandText = "SELECT * FROM editoriales"
      
        adaptor.SelectCommand = myCmd
        adaptor.Fill(dataset)
 
 
        rut_edi.DisplayMember = "nombre_edi"
        rut_edi.ValueMember = "rut_edi"  ' ------------clave foranea
        rut_edi.DataSource = dataset.Tables(0)
 
        myConn.Close()
 
        myConn = New SqlConnection("Initial Catalog=libroteka;Data Source=localhost;Integrated Security=SSPI;")
 
        myConn.Open()
 
        myCmd = myConn.CreateCommand
        myCmd.CommandText = "SELECT * FROM proveedores"
 
 
        adaptorr.SelectCommand = myCmd
        adaptorr.Fill(datasett)
 
 
        rut_pro2.DisplayMember = "nombre_pro"
        rut_pro2.ValueMember = "rut_pro"  '---------clave foranea
        rut_pro2.DataSource = datasett.Tables(0)
    
        myConn.Close()
 
    End Sub
 
    
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim NN
 
 
 
        If cod_libro.Text = "" Or nombre_libro.Text = "" Or anio_libro.Text = "" Or autor.Text = "" Or resumen.Text = "" Or categoria.Text = "" Or precio.Text = "" Or rut_pro2.Text = "" Or rut_edi.Text = "" Then
 
 
            NN = MsgBox("Debe ingresar todos los datos.", vbExclamation, "Ingrese los datos.")
        Else
            dataset.Reset()
            myCmd.CommandText = "SELECT * FROM libros WHERE cod_libro ='" & cod_libro.Text & "' "
 
 
            myConn.Open()
            adaptor.SelectCommand = myCmd
            adaptor.Fill(dataset, "0")
 
            Dim count = dataset.Tables(0).Rows.Count
            If count > 0 Then
 
                MsgBox("libro  ya existe", MsgBoxStyle.Critical)
                myConn.Close()
 
            End If
            dataset.Reset()
            If count = 0 Then
                myConn.Close()
                myConn = New SqlConnection("Initial Catalog=libroteka;Data Source=localhost;Integrated Security=SSPI;")
 
 
                myCmd = myConn.CreateCommand
                                                          ' ------------como guardar las claves foraneas
                myCmd.CommandText = " INSERT INTO libros VALUES('" & cod_libro.Text & "','" & nombre_libro.Text & "','" & anio_libro.Text & "','" & autor.Text & "','" & resumen.Text & "','" & categoria.Text & "','" & precio.Text & "','" & rut_pro2.SelectedValue & "','" & rut_edi.SelectedValue & "','" & 1 & "')SELECT proveedores.rut_pro, editoriales.rut_edi FROM proveedores, editoriales WHERE proveedores.rut_pro = '" & rut_pro2.SelectedValue & "' AND editoriales.rut_edi = '" & rut_edi.SelectedValue & "' "
 
 
 
                myConn.Open()
                myReader = myCmd.ExecuteReader()
                MsgBox("Se ha ingresado un nuevo Libro", MsgBoxStyle.Information, "Felicidades!!")
 
 
                myReader.Close()
                myConn.Close()
            End If
        End If
    End Sub
 

esta es la base de datos

[edbc92]

Tienes 2 pk en tu tabla detalle?

[future89]

si es una pk compuesta pero ese nos es el caso ,
solo en el codigo de arriba entran la tabla libros, editoriales y proveedores

[future89]

ya lo solucione , el select estaba demas, y me habia equivocado en las variables de dataset por que se sobreescriibian al ser de la misma variable y simplemente le cambia los nombre de variables de dataset ijjij almenos al postear aqui me abre la mente