DBExtensions speichert den foreignkey nicht

Chrigu666 · 29. Januar 2015, 15:45

Erst mal Hallo super Forum habt Ihr da :thumbsup:

Ich habe zwei Tabellen eine Master (Part) und eine Child (Prozess). Die Datenbank ist eine SQL und wird per DBExtension von ErfinderdesRads koordiniert.
Nun füge ich per Code eine neue Partrow hinzu, gleich unmittelbar danach folgen mehrere Prozessrow. Beim Speichern in die Datenbank ist komischerweise immer ein foreignkey der Prozessrow noch immer minus.
Der code sieht vereinfacht so aus:

VB.NET-Quellcode

Sub Parthinzufügen()
Dim PartBS = frm_Artikel.AdressBindingSource.At(Of AdressRow)()
Dim rwParent = frm_Artikel.BlechERPDataSet.Adress.FindByAdressID(CInt(PartBS.AdressID))
frm_Artikel.BlechERPDataSet.Part.AddPartRow(rwParent, 1, usw...)
frm_Artikel.FK_Adress_PartBindingSource.MoveTo("Name", CStr(.Cells(NameIndex).Value)))
for i = 1 to 3
Prozesshinzufügen()
next i
End Sub
Public Function Prozesshinzufügen() As Boolean
Dim PartBS = frm_Artikel.FK_Adress_PartBindingSource.At(Of PartRow)()
Dim _rwParent = frm_Artikel.BlechERPDataSet.Part.FindByPartID(CInt(PartBS.PartID))
Dim _Position As Integer = frm_Artikel.FKPartPartProzessBindingSource.Count
frm_Artikel.BlechERPDataSet.PartProzess.AddPartProzessRow(_rwParent, "_Prozessname", usw...)
Return True
End Function
Public Sub save()
BlechERPDataSet.Save(me)
End Sub

ErfinderDesRades · 29. Januar 2015, 17:01

hmm - das ist aber sehr was anneres als sauber programmiert.

erstmal ist frm_Artikel ein Datentyp - das ist kein Objekt.
Sollte man in dieser Form besser nicht benutzen. Vermutlich steht der Code in einem Modul, wo er nicht hingehört, also da hängt bestimmt auch die Notwendigkeit dran, die Architektur zu korrigieren.

Dann brauchst du kein FindByAddressID, weil du vmtl. die AddressRow direkt vonne PartRow abrufen kannst.
Die Zeile kapier ich garnet PartBs ist doch schon eine AddressRow, und nun suchst du noch eine AddressRow, mit derselben ID?
Sieht mir sehr verhaspelt aus - oder kannst du den Sinn vons das erklären?

Weiter tu ich erstmal nicht drüber nachdenken.

Chrigu666 · 30. Januar 2015, 11:36

Da hast du Recht, der Code ist verhaspelt, bitte entschuldige.
Nun habe ich den Code aufgeräumt, leider ist das Phänomen noch immer vorhanden.
Form Artikel ist eine Form wo die Artikel angezeigt werden. Der Importvorgang, wo der untenstehende Code drin steht, ist eine Form bei welcher der Artikel (aus externer Datei) dargestellt ausgewählt und importiert wird.

VB.NET-Quellcode

Private Sub Werkstückimportieren() Handles DataGridView1.DoubleClick
Dim AdressBS = frm_Artikel.AdressBindingSource.At(Of AdressRow)() 'Adressrow damit das Werkstück dem richtigen Kunden zugeordnet wird
'-- Werkstück importieren Start
BlechERPDataSet.Part.AddPartRow(AdressBS, "Werkstück1", usw...)
frm_Artikel.FK_Adress_PartBindingSource.MoveTo(AdressBS)
DataGridView1.Rows.Remove(DataGridView1.CurrentRow) 'Zeile aus DGV löschen damit nicht zweimal das selbe Werkstück importiert werden kann
'-- Werkstück importieren Ende
'-- Arbeitsprozess importieren Start
BlechERPDataSet.PartProzess.AddPartProzessRow(frm_Artikel.FK_Adress_PartBindingSource.At(Of PartRow)(), "zuschneiden", 1, usw...) 'Hier ist in der Datenbank der foreignkey -1
BlechERPDataSet.PartProzess.AddPartProzessRow(frm_Artikel.FK_Adress_PartBindingSource.At(Of PartRow)(), "reinigen", 2, usw...)'Hier ist in der Datenbank der foreignkey korrekt
'-- Arbeitsprozess importieren Ende
End Sub
'Speichern tu ich mit dem Befehl
BlechERPDataSet.Save(Me)

ErfinderDesRades · 30. Januar 2015, 12:07

vlt. hast du in der Datenbank versäumt die ID-Spalten auf AutoWert zu stellen?

Chrigu666 · 30. Januar 2015, 12:50

Dan würde es aber beim zweiten Prozess auch nicht klappen

ErfinderDesRades · 30. Januar 2015, 14:51

wie dem auch sei.
Wenn die sich unterschiedlich verhalten, werden sie in irgendeiner Weise unterschiedlich konfiguriert sein.
Du hast da ja hervorragende Karten, wenn du eine Vergleichs-Tabelle an der Hand hast, die sich wie gewünscht verhält.

Chrigu666 · 30. Januar 2015, 15:36

Es ist die selbe Tabelle und die selbe Spalte welche mit dem selben Befehl gefüllt werden.
Es ist mir aber aufgefallen das immer der per Datagridview gewählte Prozess foreignkey -(minus) hat.

ErfinderDesRades · 30. Januar 2015, 15:58

Das richtige Verhalten ist, dass das Dataset negative, provisorische Primärschlüssel generiert.
Beim Abspeichern generiert die DB positive, endgültige Primärschlüssel, und schickt die auch gleich zurück zum Dataset.

Also neu hinzugefügte Zeilen müssen beim Abspeichern von negativer ID auf eine positive umspringen.

Chrigu666 · 30. Januar 2015, 16:07

Genau das ist das Problem. Siehe Screenshot der Db

us4711 · 30. Januar 2015, 17:44

Das Verhalten KANN auftreten, wenn in einer Tabelle kein Primärindex definiert ist.

ErfinderDesRades · 30. Januar 2015, 18:21

bei dem Bild scheints sich auch um einen Fremdschlüssel zu handeln.
Demnach müsste auch ein neg. Primärschlüssel sich in der Part-Tabelle finden.

Chrigu666 · 3. Februar 2015, 09:01

Der Primärschlüssel in der Tabelle Part ist korrekt bei 73, einen minuswert habe ich da nicht.

ErfinderDesRades · 3. Februar 2015, 09:20

Hmm - nicht fein.

Dann akzeptiert die DB wohl korrupte Daten.
Und zusätzlich scheint es Code zu geben, der korrupte Daten abspeichert.

Chrigu666 · 3. Februar 2015, 09:35

Habe versucht alle Daten ausser Primär- und Fremdschlüssel mit nothing zu speichern. Es kommt das selbe raus. Kann also keine korrupten Daten enthalten.

ErfinderDesRades · 3. Februar 2015, 10:37

Du machst Witze: Dein Bildle zeigt doch einen korrupten Datensatz.

Chrigu666 · 3. Februar 2015, 10:51

Da hast Du wohl oder übel recht.
Aber woher kann das kommen das dieser korrupt ist? Ich versteh es nicht...

ErfinderDesRades · 3. Februar 2015, 10:58

Etwa In der DB ist keine Relation konfiguriert. Oder zumindest damit stimmt was nicht.

Chrigu666 · 3. Februar 2015, 11:41

Wir kommen der Sache näher.
ich habe die Relation nur im Dataset gemacht, nicht aber in der Datenbank. Dies habe ich nun nachgeholt und jetzt gibt mit Visual Studio zumindest eine Fehlermeldung aus:


Ein Ausnahmefehler des Typs "System.Data.SqlClient.SqlException" ist in System.Data.dll aufgetreten.

Zusätzliche Informationen: The INSERT statement conflicted with the FOREIGN KEY constraint "FK_PartProzess_Part". The conflict occurred in database "BlechERP", table "dbo.Part", column 'PartID'.

The statement has been terminated.

Jetzt weis VB zumindest das was nicht in Ordnung ist.

SQL Code der Relation aus der DB

SQL-Abfrage

ALTER TABLE [dbo].[PartProzess] WITH CHECK ADD CONSTRAINT [FK_PartProzess_Part] FOREIGN KEY([PartID])
REFERENCES [dbo].[Part] ([PartID])
ON UPDATE CASCADE
ON DELETE CASCADE

Chrigu666 · 4. Februar 2015, 15:10

Leider komme ich dem Fehler nicht auf die Spur, hat jemand noch eine Idee?

ErfinderDesRades · 4. Februar 2015, 15:17

Fehlt vlt. der AutoIncrement auffm PrimKey?

DBExtensions speichert den foreignkey nicht

DBExtensions speichert den foreignkey nicht

VB.NET-Quellcode

VB.NET-Quellcode

SQL-Abfrage

Ähnliche Themen

3 Benutzer haben hier geschrieben