Insert bei LocalDB schlägt fehl

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Insert bei LocalDB schlägt fehl

    Hi!
    Ich stehe vor dem Problem, das ich mit Insert keine Daten in meine LocalDB speichern kann. Das Insert-Command wird zwar ohne Fehler ausgeführt, die Ansicht im Datagridview wird auch richtig aktualisiert, aber die Daten finden sich ausschliesslich im Datagridview aber nicht in der Datenbank.
    Ursprünglich wollte ich das Insert über den Commandbuilder lösen, aber das hat auch nicht funktioniert, deswegen habe ich jetzt das Insert-Command versucht.

    Hier der Code:

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Data.SqlClient
    4. Public Class FrmStart
    5. Private myConn As SqlConnection
    6. Private myCmd As SqlCommand
    7. Private Shared DataAdapterKassa As New SqlDataAdapter
    8. Private Shared DataTableKassa As New DataTable
    9. Private KassaBindingSource As New BindingSource
    10. Private KassaCommandBuilder As SqlCommandBuilder
    12. Sub New()
    13. InitializeComponent()
    14. GetKassaData()
    15. End Sub
    17. Private Sub GetKassaData()
    18. Dim strSQL As String = "SELECT ID, Buchungsdatum, Bezeichnung, Einnahme, Ausgabe, Differenz FROM tblBuchungsData ORDER BY Buchungsdatum DESC"
    19. DataTableKassa.Clear()
    20. Try
    21. myConn = GetConnection()
    22. DataAdapterKassa = New SqlDataAdapter(strSQL, myConn)
    23. KassaCommandBuilder = New SqlCommandBuilder(DataAdapterKassa)
    24. DataAdapterKassa.Fill(DataTableKassa)
    25. KassaBindingSource.DataSource = DataTableKassa
    26. DgvKassa.DataSource = KassaBindingSource
    27. DgvKassa.Refresh()
    28. Catch ex As Exception
    29. MessageBox.Show(ex.Message)
    30. End Try
    31. End Sub
    33. Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click
    34. SaveData()
    35. GetKassaData()
    36. End Sub
    38. Private Sub SaveData()
    39. Dim strSQL As String = ""
    40. Dim xEin As Double = 0
    41. Dim xAus As Double = 0
    42. Dim xDifferenz As Double = 0
    43. Dim summeAus As Double = 0
    44. Dim summeEin As Double = 0
    46. If ChkEin.Checked = True And ChkAus.Checked = False Then
    47. xAus = 0
    48. xEin = CDbl(String.Format("{0:C2}", Decimal.Parse(tBetrag.Text)))
    49. End If
    50. If ChkAus.Checked = True And ChkEin.Checked = False Then
    51. xEin = 0
    52. xAus = CDbl(String.Format("{0:C2}", Decimal.Parse(tBetrag.Text)))
    53. End If
    54. For i As Integer = 0 To DgvKassa.Rows.Count - 1
    55. If DgvKassa.Rows(i).Cells(3).Value IsNot DBNull.Value Then
    56. summeEin += CInt(DgvKassa.Rows(i).Cells(3).Value)
    57. End If
    58. Next
    59. For i As Integer = 0 To DgvKassa.Rows.Count - 1
    60. If DgvKassa.Rows(i).Cells(4).Value IsNot DBNull.Value Then
    61. summeAus += CInt(DgvKassa.Rows(i).Cells(4).Value)
    62. End If
    63. Next
    64. xDifferenz = (xEin + summeEin) - (summeAus + xAus)
    65. strSQL = "INSERT INTO tblBuchungsData (Buchungsdatum, Bezeichnung, Einnahme, Ausgabe, Differenz) VALUES (@BuDat,@Bezeichnung,@Ein,@Aus,@Diff)"
    66. Try
    67. Using myConn As SqlConnection = GetConnection()
    68. myConn.Open()
    69. Using myCmd As New SqlCommand(strSQL, myConn)
    70. myCmd.Parameters.AddWithValue("@BuDat", dtBuDat.Value)
    71. myCmd.Parameters.AddWithValue("@Bezeichnung", tBezeichnung.Text)
    72. myCmd.Parameters.AddWithValue("@Ein", xEin)
    73. myCmd.Parameters.AddWithValue("@Aus", xAus)
    74. myCmd.Parameters.AddWithValue("@Diff", xDifferenz)
    75. myCmd.ExecuteNonQuery()
    76. End Using
    77. End Using
    78. Catch ex As Exception
    79. MessageBox.Show(ex.Message)
    80. End Try
    81. End Sub
    82. End Class

    Also wenn du in deim DGV den gewünschten Datensatz siehst, nachdem das hier:

    VB.NET-Quellcode

    1. Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click
    2. SaveData()
    3. GetKassaData()
    4. End Sub
    durchgelaufen ist, dann ist der Datensatz in der datenbank - definitiv.
    (Es wäre natürlich einfacher mit dem Commandbuilder, aber manche Leute wollen einfach nicht.)

    Ich tippe also darauf, dass du die Datenbank-Datei bei jedem Testlauf neu ins Ausgabeverzeichnis kopierst.
    Das kann man in den Eigenschaften der Datei einstellen, dass Visualstudio das sein lassen soll.

    Danke für den Input, werde ich dann am Abend gleich Mal checken.
    Ursprünglich habe ich auch vorgehabt, das mit dem Commandbuilder zu lösen, da es aber nicht funktioniert hat habe ich es mit dem obigen INSERT-Statement versucht. Werde aber auf jeden Fall wieder auf den Commandbuilder zurückgreifen sofern es läuft.


    Sooo... danke für den Tipp!
    Umgestellt auf "nicht kopieren" und alles passt.
    Das INSERT-Statement ist auch weg, mach es jetzt wie geplant mit dem CommandBuilder:

    VB.NET-Quellcode

    1. Try
    2. Dim NewDataRow As DataRow = DataTableKassa.NewRow
    3. NewDataRow("Buchungsdatum") = dtBuDat.Value
    4. NewDataRow("Bezeichnung") = tBezeichnung.Text
    5. NewDataRow("Einnahme") = xEin
    6. NewDataRow("Ausgabe") = xAus
    7. NewDataRow("Differenz") = xDifferenz
    8. DataTableKassa.Rows.Add(NewDataRow)
    9. DataAdapterKassa.Update(DataTableKassa)
    10. Catch ex As Exception
    11. MessageBox.Show(ex.Message)
    12. End Try


    Beiträge zusammengefügt. ~Thunderbolt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()

    Wie wärs mit typisierter Programmierung?

    VB.NET-Quellcode

    1. Dim NewDataRow = DataTableKassa.NewDataTableKassaRow
    2. NewDataRow.Buchungsdatum = dtBuDat.Value
    3. NewDataRow.Bezeichnung = tBezeichnung.Text
    4. NewDataRow.Einnahme. = xEin
    5. NewDataRow.Ausgabe = xAus
    6. NewDataRow.Differenz = xDifferenz
    7. DataTableKassa.AddDataTableKassaRow(NewDataRow)
    8. DataAdapterKassa.Update(DataTableKassa)
    Intellisense sagt dir dann die Properties vor.
    Vorraussetzung ist, ein typisiertes Dataset, aber möglicherweise liegt das bei dir bereits vor, und du nutzst es nur nicht.

    na, die 4-Views-Videos wirste im Datenbank-Tutorial-Bereich wohl selber finden.
    Dort ist auch auf eine noch bessere Quelle verlinkt, ein drei-teiliger CodeProject-Artikel - der ist aber auf Englisch.
    Die Videos sind eher was zum Appetit machen, der CP-Artikel gibt dann detaillierte Anleitung zur Umsetzung.

Facebook
Telefonspende