Datensätze ändern schlägt fehl

  • VB.NET

Es gibt 28 Antworten in diesem Thema. Der letzte Beitrag () ist von NXGENMeteora.

    Datensätze ändern schlägt fehl

    Liebes Forum,

    In mehreren Textboxen wird mir schon der Datensatz ausgegeben. Nun möchte ich , dass man diese Datensätze auch verändern kann. Habe eigentlich alles richtig Gemacht und starre ca. 30 min auf meinen code um zu gucken was ich falsch habe :D Habe keine Fehlermeldungen oder so aber wenn ich auf "aktualisieren" bei MC Access Klicke tut sich an den Werten des Datensatzes nichts.

    VB.NET-Quellcode

    1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    2. Try
    3. cmd2.CommandText =
    4. "update Bankdaten set " &
    5. "NameBank = " & Bname.Text &
    6. "Kreditmin = " & kMin.Text &
    7. "Kreditmax = " & kMax.Text &
    8. "Zinsmin = " & ZMin.Text &
    9. "Zinsmax = " & ZMax.Text &
    10. "where ID = " &
    11. pNummer(datensätze.SelectedIndex)
    12. MessageBox.Show(cmd2.CommandText)
    14. Catch ex As Exception
    15. MessageBox.Show(ex.Message)
    16. End Try
    18. End Sub


    Danke im vorraus

    MfG

    Matthias

    beim kurzen drüberfliegen tippe ich mal ganz stark darauf, dass Leerzeichen fehlen.
    sollte eher so aussehen:

    SQL-Abfrage

    1. "update Bankdaten set " &
    2. "NameBank = '" & Bname.Text & "'" &
    3. ",Kreditmin = '" & kMin.Text & "'" &
    4. ",Kreditmax = '" & kMax.Text & "'" &
    5. ",Zinsmin = '" & ZMin.Text & "'" &
    6. ",Zinsmax = '" & ZMax.Text & "'" &
    7. "where ID = " & pNummer(datensätze.SelectedIndex)

    Dieser Beitrag wurde bereits 7 mal editiert, zuletzt von „EaranMaleasi“ ()

    Habe meinen code entsprechend verändert, geht jedoch immer noch nicht:

    VB.NET-Quellcode

    1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    2. Try
    3. cmd2.CommandText =
    4. "update Bankdaten set " &
    5. "NameBank = '" & Bname.Text & "', " &
    6. "Kreditmin = '" & kMin.Text & "', " &
    7. "Kreditmax = '" & kMax.Text & "', " &
    8. "Zinsmin = '" & ZMin.Text & "', " &
    9. "Zinsmax = '" & ZMax.Text & "', " &
    10. "where ID = " &
    11. pNummer(datensätze.SelectedIndex)
    12. MessageBox.Show(cmd2.CommandText)
    14. Catch ex As Exception
    15. MessageBox.Show(ex.Message)
    16. End Try
    18. End Sub

    Hier ist ein Screenshot der Datenbank:



    Und hier ist der Quellcode der Form:

    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    5. Public Class ChangeBankdaten
    6. Public con As New OleDbConnection
    7. Public cmd As New OleDbCommand
    8. Public cmd2 As New OleDbCommand
    9. Public reader As OleDbDataReader
    10. Public Anzahl As Integer
    11. Public id As Integer
    12. Public pNummer As New ArrayList
    14. Private Sub ChangeBankdaten_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    18. con.ConnectionString =
    19. "Provider= Microsoft.ACE.OLEDB.12.0;" &
    20. "Data Source = C:\Users\p1\Desktop\Darlehensrechner\Banken.accdb"
    22. cmd.Connection = con
    23. cmd2.Connection = con
    24. cmd.CommandText = "select * from Bankdaten"
    27. con.Open()
    29. reader = cmd.ExecuteReader
    31. Do While reader.Read()
    32. datensätze.Items.Add(
    33. reader("NameBank"))
    35. pNummer.Add(reader("ID"))
    36. Loop
    39. reader.Close()
    42. End Sub
    45. Private Sub BankHinzufügen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    48. End Sub
    51. Private Sub datensätze_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles datensätze.SelectedIndexChanged
    52. Try
    53. cmd2.CommandText = "select * from Bankdaten" &
    54. " where ID = " &
    55. pNummer(datensätze.SelectedIndex)
    57. reader = cmd2.ExecuteReader
    58. reader.Read()
    60. Bname.Text = reader("NameBank")
    61. kMin.Text = reader("Kreditmin")
    62. kMax.Text = reader("Kreditmax")
    63. ZMin.Text = reader("Zinsmin")
    64. ZMax.Text = reader("Zinsmax")
    67. Catch ex As Exception
    68. MessageBox.Show(ex.Message)
    69. End Try
    70. reader.Close()
    71. End Sub
    74. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    75. Try
    76. cmd2.CommandText =
    77. "update Bankdaten set " &
    78. "NameBank = '" & Bname.Text & "', " &
    79. "Kreditmin = '" & kMin.Text & "', " &
    80. "Kreditmax = '" & kMax.Text & "', " &
    81. "Zinsmin = '" & ZMin.Text & "', " &
    82. "Zinsmax = '" & ZMax.Text & "', " &
    83. "where ID = " &
    84. pNummer(datensätze.SelectedIndex)
    85. MessageBox.Show(cmd2.CommandText)
    87. Catch ex As Exception
    88. MessageBox.Show(ex.Message)
    89. End Try
    91. End Sub
    92. End Class
    Bilder

    • datenbank.PNG

      27,07 kB, 1.126×361, 130 mal angesehen

    VB.NET-Quellcode

    1. 'Imports System.Data.OleDb <--- Importieren
    2. '+ Darauf achten dass deine Software x32 kompiliert wird
    4. Using con As New OleDbConnection("DEIN CONNECTION STRING")
    5. Dim str As String
    6. Dim cmd As OleDbCommand
    7. str = "UPDATE Bankdaten SET "
    8. str &= "NameBank = '" & Bname.Text & "', "
    9. str &= "Kreditmin = '" & kMin.Text & "', "
    10. str &= "Kreditmax = '" & kMax.Text & "', "
    11. str &= "Zinsmin = '" & ZMin.Text & "', "
    12. str &= "Zinsmax = '" & ZMax.Text & " where ID = " & pNummer(datensätze.SelectedIndex)
    13. con.Open()
    14. cmd = New OleDbCommand(str, con)
    15. Try
    16. cmd.ExecuteNonQuery()
    17. Catch ex As Exception
    18. Messagebox.Show("Fehlgeschlagen!" & vbCrLf & vbCrLf & ex.Message)
    19. End Try
    20. End Using
    22. 'Meteora

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „NXGENMeteora“ ()

    Error:

    "Das Format der Initialisierungszeichenfolge stimmt nicht mit der Spezifikation überein, die bei Index '0' beginnt."



    Danke für den quellcode, jedoch kommt dabei ^ dieser Error.

    Habe das in den Runden klammern weg gemacht dann kommt der fehler dort nicht mehr, jedoch funktioniert es immer noch nicht so richtig

    VB.NET-Quellcode

    1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    2. Using con5 As New OleDbConnection()
    3. con5.ConnectionString =
    4. "Provider= Microsoft.ACE.OLEDB.12.0;" &
    5. "Data Source = C:\Users\p1\Desktop\Darlehensrechner\Banken.accdb"
    6. Dim str5 As String
    7. Dim cmd5 As OleDbCommand
    8. str5 = "UPDATE Bankdaten SET "
    9. str5 &= "NameBank = '" & Bname.Text & "', "
    10. str5 &= "Kreditmin = '" & kMin.Text & "', "
    11. str5 &= "Kreditmax = '" & kMax.Text & "', "
    12. str5 &= "Zinsmin = '" & ZMin.Text & "', "
    13. str5 &= "Zinsmax = '" & ZMax.Text & " where ID = " & pNummer(datensätze.SelectedIndex)
    14. con5.Open()
    15. cmd5 = New OleDbCommand(str5, con5)
    18. Try
    19. cmd.ExecuteNonQuery()
    20. Catch ex As Exception
    21. MessageBox.Show("Fehlgeschlagen!" & vbCrLf & vbCrLf & ex.Message)
    22. End Try
    23. con5.Close()
    24. End Using
    25. End Sub


    So sieht mein momentaner Code aus

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Hourmin“ ()

Facebook