Hallo Leute, ich mal wieder.
Ich hab ein kleines Problem, weiß aber nicht woran es liegt, da mir auch keine Fehlermeldung gezeigt wird.
Hier einmal mein Code:
Mein Problem, wenn ich eine Angabe ändern möchte läuft das Programm zwar weiter, aber meine Angaben werden in der Datenbank nicht mit übernommen.
Über Antworten würd ich mich sehr freuen
Ich hab ein kleines Problem, weiß aber nicht woran es liegt, da mir auch keine Fehlermeldung gezeigt wird.
Hier einmal mein Code:
Quellcode
- Sub Update()
- Dim myConnectionString As String
- myConnectionString = New SqlConnectionStringBuilder() With {
- .DataSource = "DS",
- .UserID = "ID",
- .Password = "PW",
- .InitialCatalog = "Passwort_Generator"
- }.ToString()
- ' Auswahl treffen
- Dim X As String = ""
- If Form1.cb2.Checked Then
- X = Form1.cb2.Text
- ElseIf Form1.cb3.Checked Then
- X = Form1.cb3.Text
- ElseIf Form1.cb1.Checked Then
- MsgBox("ID kann nicht geändert werden!")
- ElseIf Form1.cb4.Checked Then
- MsgBox("Bitte einselnd ändern!")
- End If
- Dim conn As New SqlConnection(myConnectionString)
- Try
- conn.Open()
- Dim myAdapter As New SqlDataAdapter
- Dim command As New SqlCommand("UPDATE passwoerter SET " & X & " = '" & Form3.tb2.Text & "' WHERE " & X & " = '" & Form3.tb1.Text & "'", conn)
- command.ExecuteNonQuery()
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- Finally
- If conn.State = ConnectionState.Open Then
- conn.Close()
- conn.Dispose()
- End If
- End Try
Mein Problem, wenn ich eine Angabe ändern möchte läuft das Programm zwar weiter, aber meine Angaben werden in der Datenbank nicht mit übernommen.
Über Antworten würd ich mich sehr freuen
