LinQ to SQL 데이터 삽입 문제

Question

두 개의 테이블 정산 및 위반이 있습니다. SettlementID는 정착 테이블의 기본 키와 위반시 외래 키입니다.

dbml 파일에서 나는 테이블을 드래그 앤 드롭하여 연관성을 설정했습니다. 내 VB.net 코드에서

나는 그것이 내가 타협하고 위반이있는 XML 파일을 읽고 SQL에 삽입하려고 타협

에 값을 위반 모음을 추가 할 수있는 옵션을 제공하지 않는 DB를에 레코드를 삽입하려고 . 그러나 정산 테이블에만 레코드가 삽입됩니다.

결재에 _v를 (를) 추가 할 수 없으므로 나열되지 않습니다.

당신은 부모에게 자녀를 추가하는 대신 각 아동의 부모의 속성을 설정해야합니다

Dim Orders As XDocument = XDocument.Load("c:/inetpub/violations.xml") 

    Dim _Orderss = violations.<Collections>.<Settlement> 

    For Each _settlement In _settlements 
     Dim s As New Settlement 

     s.CamisID = _settlement.<CamisID>.Value 
     s.DocketID = _settlement.<DocketID>.Value 
     s.RespFName = _settlement.<RespFName>.Value 
     s.RespMName = _settlement.<RespMName>.Value 
     s.RespLName = _settlement.<RespLName>.Value 
     s.DispDate = Date.Parse(_settlement.<DispDate>.Value) 

     Dim _violations = _settlement.<ViolationList>.<Violation> 

     For Each _violation In _violations 
      Dim _v As New Violation 

      _v.DocketID = _settlement.<DocketID>.Value 
      _v.ViolationInfo = _violation.<ViolationInfo>.Value 
      _v.violationCD = _violation.<ViolationCd>.Value 
      _v.Severity = Integer.Parse(_violation.<Severity>.Value) 
      _v.Point = Integer.Parse(_violation.<Point>.Value) 
      _v.Occurence = Integer.Parse(_violation.<Occurence>.Value) 


     Next 
     _db.Settlements.InsertOnSubmit(s) 
     _db.SubmitChanges() 
    Next 

Answer 1

도와주세요.

합의에 위반 사항을 추가하는 대신 각 _v의 Settelment 속성을 설정하려고 할 수 있습니까?

For Each _settlement In _settlements 
    Dim s As New Settlement 

    s.CamisID = _settlement.<CamisID>.Value 
    s.DocketID = _settlement.<DocketID>.Value 
    s.RespFName = _settlement.<RespFName>.Value 
    s.RespMName = _settlement.<RespMName>.Value 
    s.RespLName = _settlement.<RespLName>.Value 
    s.DispDate = Date.Parse(_settlement.<DispDate>.Value) 



    Dim _violations = _settlement.<ViolationList>.<Violation> 

    For Each _violation In _violations 
     Dim _v As New Violation 

     _v.DocketID = _settlement.<DocketID>.Value 
     _v.ViolationInfo = _violation.<ViolationInfo>.Value 
     _v.violationCD = _violation.<ViolationCd>.Value 
     _v.Severity = Integer.Parse(_violation.<Severity>.Value) 
     _v.Point = Integer.Parse(_violation.<Point>.Value) 
     _v.Occurence = Integer.Parse(_violation.<Occurence>.Value) 
     _v.Settelment = s 
     _db.Violations.InsertOnSubmit(_v) 
    Next 

    _db.Settlements.InsertOnSubmit(s) 
    _db.SubmitChanges() 

Next