Hallo Ihr,
könnt Ihr mir mal bei einem Prob helfen?
wenn nen user gespeichert wird
Hier kommt dann
kann mir jemand sagen wo da der Wurm steckt? *grübel* oder hat das was damit zu tun das ich von ACCESS auf SQLite gegangen bin
könnt Ihr mir mal bei einem Prob helfen?
VB.NET-Quellcode
- Private Sub Button_user_neu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_user_neu.Click
- Dim neu As String
- Dim anzahl As Integer
- neu = InputBox("Bitte Geben sie den Name des neuen Benutzers ein", "Neuanlage User")
- If neu <> "" Then
- cmd.CommandText = "insert into tbl_userdata (benutzer, [password]) values('" & neu & "', '" & StringToMD5(standard_pw) & "')"
- Try
- con.Open()
- anzahl = cmd.ExecuteNonQuery()
- MessageBox.Show(anzahl & " neuer Benutzer angelegt >>> Standardpasswort ist >>> dippach$2012 <<<", "Hinweis", MessageBoxButtons.OK, MessageBoxIcon.Information)
- con.Close()
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- Finally
- con.Close()
- End Try
- ComboBox2.Items.Clear()
- ComboBox2.Items.Add(neu)
- ComboBox2.SelectedIndex = 0
- cmd.CommandText = "insert into edit_log_user (Benutzer, Datum, benutzername, status) values('" & User & "', '" & Now & "', '" & PC_Eingabe.User & "', 'erstellt')"
- End If
- End Sub
wenn nen user gespeichert wird
VB.NET-Quellcode
- Private Sub Button_user_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_user_save.Click
- Dim anzahl As Integer
- cmd.CommandText = "update tbl_userdata set benutzer='" & PC_Eingabe.User & "', is_operator=" & CheckBox_oppreator.Checked & ", is_admin=" & CheckBox_admin.Checked & " WHERE ID = " & id_akt2
- 'Try
- con.Open()
- anzahl = cmd.ExecuteNonQuery()[b] <- HIER BRINGT ER DEN FEHLER TRY CATCH AUS[/b]
- MessageBox.Show("Datensätze geändert: " & anzahl)
- con.Close()
- 'Catch ex As Exception
- 'MessageBox.Show(ex.Message)
- 'Finally
- con.Close()
- 'End Try
- cmd.CommandText = "insert into tbl_userdata (Benutzer, Datum, benutzername, status, [password], is_operator, is_admin, is_god) values('" & User & "', '" & Now & "', '" & PC_Eingabe.User & "', 'geändert', '" & TextBox_user_pw.Text & "', " & CheckBox_oppreator.Checked & ", " & CheckBox_admin.Checked & ")"
- comand_cmd2 = CStr(ComboBox2.SelectedItem)
- cmd.CommandText = "select * from tbl_userdata Where benutzer = '" & comand_cmd2 & "'"
- Call boxes_fill2()
- End Sub
Hier kommt dann
Ein Ausnahmefehler des Typs "System.Data.SQLite.SQLiteException" ist in System.Data.SQLite.dll aufgetreten.
Zusätzliche Informationen: SQL logic error or missing database
no such column: True
kann mir jemand sagen wo da der Wurm steckt? *grübel* oder hat das was damit zu tun das ich von ACCESS auf SQLite gegangen bin