DataGrid (WPF) in SQL Server Datenbank schreiben

  • VB.NET
  • .NET (FX) 4.5–4.8

    DataGrid (WPF) in SQL Server Datenbank schreiben

    EDIT 2:
    Ich habe das Ganze nun nochmal vereinfacht um DataGrids besser verstehen zu können. Folgender Code soll zumindest mal die bestehenden Daten in der Datenbank updaten können. Hierzu hab ich auch mal ein erstes Error-Handling eingebaut. Komischerweise läuft mir der Code bis zur letzten (OK-)Meldung durch, schreibt allerdings nichts in die Datenbank. Weiß vielleicht jemand von Euch, woran das liegen könnte - oder ob ich was übersehen hab?


    Quellcode

    1. Imports System
    2. Imports System.Data
    3. Imports System.Data.SqlClient
    5. Class MainWindow
    7. Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs) Handles MyBase.Loaded
    9. Dim SpedDataSet As UpdateSingleTableWalkthrough.spedDataSet = CType(Me.FindResource("SpedDataSet"), UpdateSingleTableWalkthrough.spedDataSet)
    10. 'Lädt Daten in Tabelle "baua_auftragsadressen". Sie können diesen Code nach Bedarf ändern.
    11. Dim SpedDataSetbaua_auftragsadressenTableAdapter As UpdateSingleTableWalkthrough.spedDataSetTableAdapters.baua_auftragsadressenTableAdapter = New UpdateSingleTableWalkthrough.spedDataSetTableAdapters.baua_auftragsadressenTableAdapter()
    12. SpedDataSetbaua_auftragsadressenTableAdapter.Fill(SpedDataSet.baua_auftragsadressen)
    13. Dim Baua_auftragsadressenViewSource As System.Windows.Data.CollectionViewSource = CType(Me.FindResource("Baua_auftragsadressenViewSource"), System.Windows.Data.CollectionViewSource)
    14. Baua_auftragsadressenViewSource.View.MoveCurrentToFirst()
    15. End Sub
    17. Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
    19. Dim spedDataset As New spedDataSet
    20. Dim myconnection As New SqlConnection
    21. myconnection = New SqlConnection("server=localhost;uid=xxx];pwd=xxx;database=sped")
    22. Try
    23. myconnection.Open()
    24. Catch x As Exception
    25. MsgBox("Verbindung zur Datenbank fehlgeschlagen")
    26. Return
    27. End Try
    28. MsgBox("Verbindung zur Datenbank erfolgreich")
    30. Dim SqlDataAdapter As New SqlDataAdapter("SELECT * FROM [baua_auftragsadressen]", myconnection)
    31. Try
    32. SqlDataAdapter.Update(spedDataset.Tables("baua_auftragsadressen"))
    33. Catch x As Exception
    34. MsgBox("SqlAdapter geht nicht")
    35. myconnection.Close()
    36. Return
    37. End Try
    38. MsgBox("Update sollte erfolgreich durchlaufen sein")
    39. myconnection.Close()
    41. End Sub
    42. End Class



    Spoiler anzeigen

    Hallo zusammen!

    Ich bin im Thema VB (2013 Express) und WPF noch
    total neu und mache gerade meine ersten Geh-Versuche - also bitte
    verzeiht mir meine Unwissenheit

    Was ich momentan habe ist eine Maske mit mehreren Feldern und einem DataGrid.
    Das
    DataGrid wird aktuell über eine View aus der DB (SQL Server 2012
    Express) befüllt. Da die Befüllung allerdings unerwünscht ist, habe ich
    der View-Select mitgegeben, dass nur Daten mit einer ID = -1 angezeigt
    werden sollen. Eventuell liegt ja auch hier bereits ein Fehler vor.

    Nun
    soll der User in das DataGrid mehrere Zeilen eintragen (Adressen),
    welche später bei einem Klick auf "Speichern" mitsamt den anderen Daten
    (Textboxen) in die DB geschrieben werden sollen.

    Könnt Ihr mir eventuell Tipps geben, wie man sowas am Besten bewerkstelligt?

    Hier mal mein Code vom DataGrid.

    VB

    Quellcode

    1. Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs) Handles MyBase.Loaded
    3. Dim AuftragsadressenErfassung As
    4. WpfApplication6.AuftragsadressenErfassung =
    5. CType(Me.FindResource("AuftragsadressenErfassung"),
    6. WpfApplication6.AuftragsadressenErfassung)
    7. Dim
    8. AuftragsadressenErfassungAuftragsadressen__Sendungserfassung_TableAdapter
    9. As
    10. WpfApplication6.AuftragsadressenErfassungTableAdapters.Auftragsadressen__Sendungserfassung_TableAdapter
    11. = New
    12. WpfApplication6.AuftragsadressenErfassungTableAdapters.Auftragsadressen__Sendungserfassung_TableAdapter()
    15. AuftragsadressenErfassungAuftragsadressen__Sendungserfassung_TableAdapter.Fill(AuftragsadressenErfassung._Auftragsadressen__Sendungserfassung_)
    17. Dim _Auftragsadressen__Sendungserfassung_ViewSource As
    18. System.Windows.Data.CollectionViewSource =
    19. CType(Me.FindResource("_Auftragsadressen__Sendungserfassung_ViewSource"),
    20. System.Windows.Data.CollectionViewSource)
    21. _Auftragsadressen__Sendungserfassung_ViewSource.View.MoveCurrentToFirst()
    22. End Sub


    XAML

    Quellcode

    1. <DataGrid
    2. x:Name="AuftragsadressenErfassung" AutoGenerateColumns="False"
    3. EnableRowVirtualization="True" ItemsSource="{Binding
    4. Source={StaticResource
    5. _Auftragsadressen__Sendungserfassung_ViewSource}}" Margin="10,83,10,579"
    6. RowDetailsVisibilityMode="VisibleWhenSelected">
    7. <DataGrid.Columns>
    9. <DataGridTextColumn x:Name="Baua_bauaidColumn"
    10. Binding="{Binding baua_bauaid}" Header="baua bauaid" IsReadOnly="True"
    11. Width="SizeToHeader" Visibility="Hidden"/>
    13. <DataGridTextColumn x:Name="Baua_baufidColumn" Binding="{Binding
    14. baua_baufid}" Header="baua baufid" Width="SizeToHeader"
    15. Visibility="Hidden"/>
    16. <DataGridTextColumn
    17. x:Name="Baua_typColumn" Binding="{Binding baua_typ}" Header="Adr-Typ"
    18. Width="SizeToHeader"/>
    19. <DataGridTextColumn
    20. x:Name="Baua_adridColumn" Binding="{Binding baua_adrid}"
    21. Header="Adress-ID" Width="SizeToHeader"/>
    23. <DataGridTextColumn x:Name="Baua_termvonColumn" Binding="{Binding
    24. baua_termvon}" Header="baua termvon" Width="SizeToHeader"
    25. Visibility="Hidden"/>
    26. <DataGridTextColumn
    27. x:Name="Baua_termbisColumn" Binding="{Binding baua_termbis}"
    28. Header="baua termbis" Width="SizeToHeader" Visibility="Hidden"/>
    30. <DataGridTextColumn x:Name="Baua_planvonColumn"
    31. Binding="{Binding baua_planvon}" Header="baua planvon"
    32. Width="SizeToHeader" Visibility="Hidden"/>
    34. <DataGridTextColumn x:Name="Baua_planbisColumn" Binding="{Binding
    35. baua_planbis}" Header="baua planbis" Width="SizeToHeader"
    36. Visibility="Hidden"/>
    37. <DataGridTextColumn
    38. x:Name="Baua_istvonColumn" Binding="{Binding baua_istvon}" Header="baua
    39. istvon" Width="SizeToHeader" Visibility="Hidden"/>
    41. <DataGridTextColumn x:Name="Baua_istbisColumn" Binding="{Binding
    42. baua_istbis}" Header="baua istbis" Width="SizeToHeader"
    43. Visibility="Hidden"/>
    44. <DataGridTextColumn
    45. x:Name="Baua_artColumn" Binding="{Binding baua_art}" Header="baua art"
    46. Width="SizeToHeader" Visibility="Hidden"/>
    48. <DataGridTextColumn x:Name="Baua_name1Column" Binding="{Binding
    49. baua_name1}" Header="Name 1" Width="SizeToHeader"/>
    51. <DataGridTextColumn x:Name="Baua_name2Column" Binding="{Binding
    52. baua_name2}" Header="Name 2" Width="SizeToHeader"/>
    54. <DataGridTextColumn x:Name="Baua_name3Column" Binding="{Binding
    55. baua_name3}" Header="Name 3" Width="SizeToHeader"/>
    57. <DataGridTextColumn x:Name="Baua_strasse1Column" Binding="{Binding
    58. baua_strasse1}" Header="Strasse 1" Width="SizeToHeader"/>
    60. <DataGridTextColumn x:Name="Baua_strasse2Column"
    61. Binding="{Binding baua_strasse2}" Header="Strasse 2"
    62. Width="SizeToHeader"/>
    63. <DataGridTextColumn
    64. x:Name="Baua_landColumn" Binding="{Binding baua_land}" Header="Land"
    65. Width="SizeToHeader"/>
    66. <DataGridTextColumn
    67. x:Name="Baua_plzColumn" Binding="{Binding baua_plz}" Header="PLZ"
    68. Width="SizeToHeader"/>
    69. <DataGridTextColumn
    70. x:Name="Baua_ortColumn" Binding="{Binding baua_ort}" Header="Ort"
    71. Width="SizeToHeader"/>
    72. <DataGridTextColumn
    73. x:Name="Baua_refColumn" Binding="{Binding baua_ref}" Header="Referenz"
    74. Width="SizeToHeader"/>
    75. </DataGrid.Columns>
    76. </DataGrid>


    EDIT:
    Ich
    versuche das gerade mal testweise mit folgendem Code zu lösen,
    allerdings kommt da die folgende Fehlermeldung. Weiß eventuell wer,
    woran das liegt? Habe noch nicht alle Felder des DataGrids eingepflegt
    (muss man das?)

    FEHLER:
    Ein Ausnahmefehler des Typs "System.ArgumentException" ist in System.Data.dll aufgetreten.
    Zusätzliche
    Informationen: Das Format der Initialisierungszeichenfolge stimmt nicht
    mit der Spezifikation überein, die bei Index '0' beginnt.

    Quellcode

    1. Dim conn As New SqlConnection
    2. Dim command As New SqlCommand
    3. conn.ConnectionString = "conn string"
    5. command.CommandText = "insert into baua_auftragsadressen
    6. (baua_name1,baua_name2,baua_name3,baua_strasse1) values
    7. (@name1,@name2,@name3,@strasse1)"
    9. command.Parameters.Add("@name1", SqlDbType.NVarChar)
    10. command.Parameters.Add("@name2", SqlDbType.NVarChar)
    11. command.Parameters.Add("@name3", SqlDbType.NVarChar)
    12. command.Parameters.Add("@strasse1", SqlDbType.NVarChar)
    14. conn.Open()
    16. Command.Connection = conn
    18. 'load grid
    20. For i As Integer = 0 To AuftragsadressenErfassung.Items.Count - 2
    22. command.Parameters(0).Value = Me.AuftragsadressenErfassung.Items(i).Cells(1).Value
    23. command.Parameters(1).Value = Me.AuftragsadressenErfassung.Items(i).Cells(2).Value
    24. command.Parameters(2).Value = Me.AuftragsadressenErfassung.Items(i).Cells(3).Value
    25. command.Parameters(3).Value = Me.AuftragsadressenErfassung.Items(i).Cells(4).Value
    27. command.ExecuteNonQuery()
    29. Next
    31. conn.Close()
    32. MsgBox("Adressen wurden gespeichert")




    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „nitg“ ()

Facebook
Telefonspende