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:
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:
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
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
- Private Sub dgvStamm_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvStamm.CellClick
- Dim i As Integer
- i = dgvStamm.CurrentRow.Index
- txtvor.Text = dgvStamm.Item(1, i).Value
- txtnach.Text = dgvStamm.Item(2, i).Value
- dtpgeb.Text = dgvStamm.Item(3, i).Value
- txtjahre.Text = dgvStamm.Item(4, i).Value
- 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
- Sub pruefen()
- Dim cmd As New OleDbCommand
- Dim reader As OleDbDataReader
- Dim ConStr As String = "Provider=SQLNCLI10;Server=BIE\SQLEXPRESS;Database=Fitness;Uid=mpeter;Pwd=mp971150; Integrated Security=SSPI;"
- Dim Con As New OleDbConnection(ConStr)
- cmd.Connection = Con
- cmd.CommandText = "Select * from stammdaten "
- Con.Open()
- reader = cmd.ExecuteReader()
- reader.Read()
- Dim Benutzername As String = reader("vorname")
- Dim Passwort As Object = reader("Nachname")
- 'Dim Passwortlevel As String = reader("Passwortlevel")
- If Passwort = txtnach.Text And Benutzername = txtvor.Text Then
- hier möchte ich den update Befehl schreiben
- MsgBox("Diesen Datensatz gibt es schon")
- Else
- Datensatz neu eintragen
- 'MsgBox("Dieser Datensatz wird eingetragen")
- End If
- 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