Mit Visual Basic eine Access Datenbank updaten
Frage
Alle Antworten
-
Hallo,
erstmal hast du ein & zuviel:"WHERE Datum = " &
Lösche das weg. Dann ist in deiner Abfrage kein Parameter @p1 zu sehen, du fügst iohn aber hinzu. Weiterhin solltest du alles über Parameter machen, um SQL-Injection zu verhindern.cmd.CommandText = "update tbEinnahmen SET " & "Franken1 = @pFranken1," & "Franken2 = @pFranken2," & '... "WHERE Datum = @p1" cmd.Parameters.Add("@p1", OleDb.OleDbType.Date).Value = Date.Parse(Date.Parse(lbl_datumvorschau.Text)) cmd.Parameters.Add(...Koopakiller [kuːpakɪllɐ] (Tom Lambert)
Webseite |
Code Beispiele |
Facebook |
Twitter |
Snippets C# ↔ VB.NET Konverter
Markiert bitte beantwortende Posts als Antwort und bewertet Beiträge. Danke. -
Hallo und Danke erst mal für die Hilfe
ich habe deinen Rat nun zu Herzen genommen und Habe es so gemacht:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim cmd As New OleDb.OleDbCommand Dim con As New OleDb.OleDbConnection con.ConnectionString = "PROVIDER=microsoft.jet.oledb.4.0; Data Source = C:\Ticket\skdb.mdb" 'Ausrechnen der Summe **************************************************************************************************** Dim summe As Double summe = 1 * CDbl(txt_1fr.Text) + 2 * CDbl(txt_2fr.Text) + 5 * CDbl(txt_5fr.Text) + 10 * CDbl(txt_10fr.Text) + 20 * CDbl(txt_20fr.Text) + 50 * CDbl(txt_50fr.Text) + 100 * CDbl(txt_100fr.Text) + 200 * CDbl(txt_200fr.Text) MsgBox("Sie haben " & summe & " Fr. eingenommen") 'Datenbankupdate*********************************************************************************************** Dim anzahl As Integer Dim tdate As String tdate = lbl_datumvorschau.Text Try If Not con.State = ConnectionState.Open Then con.Open() End If cmd.CommandText = "UPDATE tbEinnahmen SET " & "Datum = @pdatum" & "Franken1 = @pFranken1" & "Franken2 = @pFranken2" & "Franken5 = @pFranken5" & "Franken10 = @pFranken10" & "Franken20 = @pFranken20" & "Franken50 = @pFranken50" & "Franken100 = @pFranken100" & "Franken200 = @pFranken200" & "FrankenTotal = @pSumme" & "WHERE Datum = @p1" cmd.Parameters.Add("@pdatum", OleDb.OleDbType.Date).Value = Date.Parse(Date.Parse(lbl_datumvorschau.Text)) cmd.Parameters.Add("@pFranken1", OleDb.OleDbType.Date).Value = Integer.Parse(Integer.Parse(txt_1fr.Text)) cmd.Parameters.Add("@pFranken2", OleDb.OleDbType.Date).Value = Integer.Parse(Integer.Parse(txt_2fr.Text)) cmd.Parameters.Add("@pFranken5", OleDb.OleDbType.Date).Value = Integer.Parse(Integer.Parse(txt_5fr.Text)) cmd.Parameters.Add("@pFranken10", OleDb.OleDbType.Date).Value = Integer.Parse(Integer.Parse(txt_10fr.Text)) cmd.Parameters.Add("@pFranken20", OleDb.OleDbType.Date).Value = Integer.Parse(Integer.Parse(txt_20fr.Text)) cmd.Parameters.Add("@pFranken50", OleDb.OleDbType.Date).Value = Integer.Parse(Integer.Parse(txt_50fr.Text)) cmd.Parameters.Add("@pFranken100", OleDb.OleDbType.Date).Value = Integer.Parse(Integer.Parse(txt_100fr.Text)) cmd.Parameters.Add("@pFranken200", OleDb.OleDbType.Date).Value = Integer.Parse(Integer.Parse(txt_200fr.Text)) cmd.Parameters.Add("@pSumme", OleDb.OleDbType.Date).Value = Double.Parse(Double.Parse(summe)) cmd.Parameters.Add("@p1", OleDb.OleDbType.Date).Value = Date.Parse(Date.Parse(lbl_datumvorschau.Text)) MessageBox.Show(cmd.CommandText) anzahl = cmd.ExecuteNonQuery() If anzahl > 0 Then MessageBox.Show("Datensatz geändert") End If Catch ex As Exception MessageBox.Show(ex.Message) End Try con.Close() End SubIch habe in meiner Datenbank als erste Spalte Datum, dann erst Franken1 ,Franken2.... und zuletzt Summe.
Ich habe darum zu oberst nocheinmal das Datum Hinzugefügt, dass bleibt aber gleich ist ja nur ein Label das zeigen soll wo man gerade dran ist.Meine Neue Fehlermeldung ist ein wenig verwirrend:
Nachdem ok Klicken kommt:
Woran kann das liegen und wie kann ich das beheben?
-
Danke Stefan für den Tipp habe leider bei Peter nicht genau verstanden das er das mein :(.
Nun habe ich noch ne kleine Frage. Ich war bis jetzt dran das am probieren jedoch bekomme ich erneut eine Fehlermeldung.
Ich habe zusätzlich noch vorgeschrieben bekommen das ich es nicht mit den Parameter machen soll sondern so:
cmd.Connection = con cmd.CommandText = "UPDATE tbEinnahmen SET " & "Datum = " & CDate(lbl_datumvorschau.Text) & "" & "Franken1 = " & CInt(txt_1fr.Text) & " " & "Franken2 = " & CInt(txt_2fr.Text) & " " & "Franken5 = " & CInt(txt_5fr.Text) & " " & "Franken10 = " & CInt(txt_10fr.Text) & " " & "Franken20 = " & CInt(txt_20fr.Text) & " " & "Franken50 = " & CInt(txt_50fr.Text) & " " & "Franken100 = " & CInt(txt_100fr.Text) & " " & "Franken200 = " & CInt(txt_200fr.Text) & " " & "FrankenTotal = " & CDbl(summe) & " " & "WHERE Datum = " & CDate(lbl_datumvorschau.Text)
Kannst du mir bitte auch bei diesem Problem helfen? :D
