[VB.NET+LINQ] Insert in tabelle con chiavi referenziate

[Rik142]

Ciao a tutti,

sto programmando con VB.Net 2008 Versione RTM, uso SQLSERVER come DB ed ho tre tabelle.

tabella A -> A primary key
tabella C -> C primary key, A e B foreign key
tabella B -> B primary key

sto cercando di fare una insert nella tabella C:

Public Class Classe_Insert_Valutatore
Public Sub InsertValutatore(ByVal myclasse As UcQuestionario.ListNewValutatore)
Using connection As New Entities
Dim persona As New T_ANA_VALUTATORI
Dim questionario As New T_QUESTIONARIO

Dim query = (From QueVal In connection.T_QUEST_VALUTATORI _
Select IdCode = QueVal.QUEVAL_ID + 1).Max()

persona.VALUT_CODICE = myclasse.Codice_Valut
questionario.QUEST_CODICE = myclasse.Codice_Questionario

myclasse.Id = query
Dim item As New T_QUEST_VALUTATORI
item.QUEVAL_ID = myclasse.Id
item.T_ANA_VALUTATORI = persona
item.T_QUESTIONARIO = questionario
connection.AddToT_QUEST_VALUTATORI(item)
connection.SaveChanges()
End Using
End Sub
End Class

ma mi da il seguente errore:

An error occurred while updating the given entries. See the InnerException for details.

Ho guardato anche su 101Linq gli esempi relativi all'uso del Linq ma non vi è nulla di diverso da quanto ho fatto io e soprattutto non mi hanno aiutato a risolvere il problema.

Qualcuno sa darmi qualche utile informazione?

Ciao

Riccardo

[Rik142]

Ce l'ho fatta!!!

Vi rendo partecipi con un po' di codice (ha veramente poche modifiche a ciò che vi avevo postato in partenza):

Public Class Classe_Insert_Valutatore
Public Sub InsertValutatore(ByVal myclasse As UcQuestionario.ListNewValutatore)
Using connection As New Entities
Dim persona As New T_ANA_VALUTATORI
Dim questionario As New T_QUESTIONARIO

Dim query = (From QueVal In connection.T_QUEST_VALUTATORI _
Select IdCode = QueVal.QUEVAL_ID + 1).Max()

'Ricerca Valutatore
Dim valut = From Val in connection.T_ANA_VALUTATORI Where Val.VALUT_CODICE = myclasse.Codice_Valut Select Val
persona = valut.first()

'Ricerca Questionario
Dim quest= From Que in connection.T_QUESTIONARIO Where Que.QUEST_CODICE = myclasse.Codice_quest Select Que
questionario= quest.first()

myclasse.Id = query
Dim item As New T_QUEST_VALUTATORI

item.QUEVAL_ID = myclasse.Id
item.T_ANA_VALUTATORI = persona
item.T_QUESTIONARIO = questionario
connection.AddToT_QUEST_VALUTATORI(item)
connection.SaveChanges()
End Using
End Sub
End Class