Update Funtktion

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von mpeterjena.

    Update Funtktion

    einen schönen Sonntag an alle,

    ich habe gerade einen Knoten im Hirn, ich zeige mir alle Daten aus der DB im Datagridview an und wähle da eine Zeile aus mit:

    VB.NET-Quellcode

    1. ​Private Sub dgvStamm_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvStamm.CellClick
    2. Dim i As Integer
    3. i = dgvStamm.CurrentRow.Index
    4. txtvor.Text = dgvStamm.Item(1, i).Value
    5. txtnach.Text = dgvStamm.Item(2, i).Value
    6. dtpgeb.Text = dgvStamm.Item(3, i).Value
    7. txtjahre.Text = dgvStamm.Item(4, i).Value
    8. End Sub


    nun habe ich die entsprechenden Daten in meinen Textboxen, wenn ich nun die Daten verändere möchte ich diese auch in der DB und im Datagridview geändert darstellen. Ich habe auch eine Sub die prüft ob es diesen Datensatz schon gibt:

    VB.NET-Quellcode

    1. Sub pruefen()
    2. Dim cmd As New OleDbCommand
    3. Dim reader As OleDbDataReader
    4. Dim ConStr As String = "Provider=SQLNCLI10;Server=BIE\SQLEXPRESS;Database=Fitness;Uid=mpeter;Pwd=mp971150; Integrated Security=SSPI;"
    5. Dim Con As New OleDbConnection(ConStr)
    7. cmd.Connection = Con
    8. cmd.CommandText = "Select * from stammdaten "
    9. Con.Open()
    10. reader = cmd.ExecuteReader()
    11. reader.Read()
    12. Dim Benutzername As String = reader("vorname")
    13. Dim Passwort As Object = reader("Nachname")
    14. 'Dim Passwortlevel As String = reader("Passwortlevel")
    15. If Passwort = txtnach.Text And Benutzername = txtvor.Text Then
    16. hier möchte ich den update Befehl schreiben
    17. MsgBox("Diesen Datensatz gibt es schon")
    18. Else
    19. Datensatz neu eintragen
    20. 'MsgBox("Dieser Datensatz wird eingetragen")
    21. End If
    22. End Sub"


    wenn es die Daten schon gibt sollen sollen diese geändert werden ansonsten sollen die Daten geupdatet werden.

    Irgenwie stehe ich da gerade voll auf dem Schlauch.

    besten Dank im voraus für eure Hilfe.

    Michael

    Hallo an alle

    hat sich erledigt ich habe es hinbekommen mit der sufu von hier.

    VB.NET-Quellcode

    1. ​
    2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
    3. Dim cmd As New OleDbCommand
    4. ' Dim reader As OleDbDataReader
    5. Dim ConStr As String = "Provider=SQLNCLI10;Server=BIE\SQLEXPRESS;Database=Fitness;Uid=mpeter;Pwd=mp971150; Integrated Security=SSPI;"
    6. Dim Con As New OleDbConnection(ConStr)
    7. If txtvor.Text = "" Or txtnach.Text = "" Or txtjahre.Text = "" Then
    8. MsgBox("Füllen Sie alle Felder aus!")
    9. Else
    10. Try
    11. cmd.Connection = Con
    12. Con.Open()
    13. cmd.CommandText = "UPDATE stammdaten SET vorname = '" & txtvor.Text & "', nachname = '" & txtnach.Text & "', jahre = '" & txtjahre.Text & "' where Nachname = '" & txtnach.Text & "'"
    14. anzahl = cmd.ExecuteNonQuery
    15. Con.Close()
    16. If anzahl > 0 Then
    17. MsgBox("Sie haben einen Eintrag bearbeitet", MsgBoxStyle.Information)
    18. End If
    19. Catch ex As Exception
    20. Con.Close()
    21. MsgBox(ex.Message)
    22. End Try
    23. End If
    24. End Sub

Facebook
Telefonspende