Tabelle wird nicht aktualisiert

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von GünterD.

    Tabelle wird nicht aktualisiert

    Hallo Zusammen,

    hat einer von euch eine Idee warum mit u.a. Code die Aktualisierung der ersten Tabelle "tbl_ArtikelStammdaten" funktioniert und bei der 2. Tabelle "Tbl_KundenListe" nichts in der MSSQL-DB ankommt?
    Eine Fehlermeldung gibt's nicht.

    VB.NET-Quellcode

    1. Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. Me.Tbl_KundenListeTableAdapter.Fill(Me.TechDBDataSet.tbl_KundenListe)
    3. Me.Tbl_ArtikelStammdatenTableAdapter.Fill(Me.TechDBDataSet.tbl_ArtikelStammdaten)
    4. Me.SAP_KundenartikelTableAdapter.Fill(Me.TechDBDataSet.SAP_Kundenartikel)
    5. End Sub
    7. Private Sub SAPImport_Click(sender As Object, e As EventArgs) Handles SAPImport.Click
    9. For Each dr As DataRow In Me.TechDBDataSet.SAP_Kundenartikel.Rows
    11. 'Suchen ob Datensatz mit itemcode=SAPNr bereits vorhanden
    12. Dim IndexA As Integer = Tbl_ArtikelStammdatenBindingSource.Find("SAPNr", dr.Item("itemcode").ToString)
    14. If (IndexA = -1) Then 'wenn Datensatz fehlt --> rgänzen
    15. Dim ArtikelNeu = DirectCast(DirectCast(Tbl_ArtikelStammdatenBindingSource.AddNew, DataRowView).Row, techDBDataSet.tbl_ArtikelStammdatenRow)
    16. ArtikelNeu.ArtikelVorgänger = dr.Item("Artikelbeschreibung").ToString
    18. Me.Tbl_ArtikelStammdatenBindingSource.EndEdit() 'Editiervorgang abschließen
    19. Me.TableAdapterManager.UpdateAll(Me.TechDBDataSet) '<---- Funktioniert und Daten kommen in SQL-Tabelle an
    20. End If
    21. Next
    23. 'tbl_KundenListe aktualisieren
    24. For Each drK As DataRow In Me.TechDBDataSet.SAP_Kundenartikel.Rows
    25. 'Suchen ob Datensatz mit cardcode = bereits vorhanden
    26. Dim IndexK As Integer = Tbl_KundenListeBindingSource.Find("SAPcardcode", drK.Item("Cardcode").ToString)
    28. If IndexK = -1 Then 'wenn Datensatz fehlt --> ergänzen
    29. Dim KundeNeu = DirectCast(DirectCast(Tbl_KundenListeBindingSource.AddNew, DataRowView).Row, techDBDataSet.tbl_KundenListeRow)
    30. KundeNeu.SAPCardCode = drK.Item("CardCode").ToString
    32. Me.Tbl_KundenListeBindingSource.EndEdit() 'Editiervorgang abschließen
    33. Me.TableAdapterManager.UpdateAll(Me.TechDBDataSet) '<---- Funktioniert NICHT und Daten kommen NICHT in SQL-Tabelle an
    35. End If
    36. Next
    37. end sub


    Im Voraus bereits Danke für eure Tipps.

    *Topic verschoben*
    Gruß Günter

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Marcus Gräfe“ ()

    @GünterD Überzeuge Dich davon, dass die Form_Load vollständig abgearbeitet wird.
    Wenn es da nämlich knallt, kann es sein, dasser da einfach rausfliegt und außen weiter macht.
    Mach als letzten Befehl ne MessageBox rein und warte auf die.
    Wenn sie nicht kommt, setz auf den ersten Befehl einen Haltepunkt und stepp die Form_Load durch.
    Debuggen, Fehler finden und beseitigen
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Fein!

    Dein Code ist aber sehr sehr suboptimal und lässt fast sämtliche Features, die das typDataset dir bietet unbeachte.
    Quasi untypsiert isser.
    Würdest du Verbesserungsvorschläge annehmen?
    Hat allerdings nur Sinn, wenn du dich mittm typDataset, und wie man dagegen codet, wirklich auseinander setzen willst.
    siehe typed programming the typed Dataset

Facebook
Telefonspende