Mithilfe einer update-Anweisung für Access-Datenbank (VB 2008)

Ich versuche, erstellen Sie eine update-Anweisung für mein Programm, das aktualisieren einer Datenbank mithilfe von SQL auf der Basis der Daten, die der Benutzer eingibt, leider habe ich das problem, dass ich nur das update einer Spalte zu einer Zeit, und manchmal keiner von Ihnen arbeiten. Ich bin mir bewusst, dass diese Funktion sehr einfach und nicht sehr sicher ist gegen Angriffe, aber es ist ein kleines Projekt, dass ich mache. Leider habe ich nur grundlegende Programmierkenntnisse, so bin ich mit Mühe diesen Teil zu arbeiten. Wenn keine Hilfe gegeben werden konnte es wird sehr geschätzt.

Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click

    Dim con As New OleDb.OleDbConnection

    Dim d1 As New OleDb.OleDbDataAdapter
    Dim d2 As New OleDb.OleDbDataAdapter
    Dim d3 As New OleDb.OleDbDataAdapter
    Dim d4 As New OleDb.OleDbDataAdapter
    Dim d5 As New OleDb.OleDbDataAdapter
    Dim d6 As New OleDb.OleDbDataAdapter
    Dim d7 As New OleDb.OleDbDataAdapter
    Dim d8 As New OleDb.OleDbDataAdapter
    Dim d9 As New OleDb.OleDbDataAdapter
    Dim d10 As New OleDb.OleDbDataAdapter

    Dim dt As New DataTable("Animals")

    'uses the 2010 compatible connection string
    con.ConnectionString = "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source = h:\Animals.accdb"
    con.Open()

    MsgBox("UPDATE Animals SET LatinName = '" & latintxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'")
    d1 = New OleDb.OleDbDataAdapter("UPDATE Animals SET LatinName = '" & latintxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'", con)
    d2 = New OleDb.OleDbDataAdapter("UPDATE Animals SET LocationFound = '" & locationtxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'", con)
    d3 = New OleDb.OleDbDataAdapter("UPDATE Animals SET AverageHeight = '" & heighttxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'", con)
    d4 = New OleDb.OleDbDataAdapter("UPDATE Animals SET AverageWeight = '" & weighttxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'", con)
    d5 = New OleDb.OleDbDataAdapter("UPDATE Animals SET DietaryNeeds = '" & diettxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'", con)
    d6 = New OleDb.OleDbDataAdapter("UPDATE Animals SET ConservationStatus = '" & statustxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'", con)
    d7 = New OleDb.OleDbDataAdapter("UPDATE Animals SET AverageLifeSpan = '" & lifetxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'", con)
    d8 = New OleDb.OleDbDataAdapter("UPDATE Animals SET BreedingSeason = '" & breedtxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'", con)
    d9 = New OleDb.OleDbDataAdapter("UPDATE Animals SET AverageLength = '" & lengthtxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'", con)
    d10 = New OleDb.OleDbDataAdapter("UPDATE Animals SET AnimalName = '" & nametxt.Text & "'" & " WHERE AnimalName = " & "'" & Form1.txtname.Text & "'", con)

    d1.Fill(dt)
    d2.Fill(dt)
    d3.Fill(dt)
    d4.Fill(dt)
    d5.Fill(dt)
    d6.Fill(dt)
    d7.Fill(dt)
    d8.Fill(dt)
    d9.Fill(dt)
    d10.Fill(dt)

    con.Close()

End Sub

Was führt Sie zu glauben, dass Sie "nur aktualisieren, ein zu einer Zeit"? Die Blicke von Ihr code es scheint, dass Sie unter dem Eindruck, dass Sie nur das update eine Spalte (Feld) in einer Zeit. (Hinweis: Das ist einfach nicht wahr.)
Sorry, das meinte ich damit, ich kann nur das update eine Spalte zu einem Zeitpunkt z.B. kann ich nicht einfach die Eingabe von Daten in mehrere Felder und haben Sie alle aktualisieren.

InformationsquelleAutor Silver | 2013-04-13

1

Ausführen eines update-Befehls könnten Sie schreiben, eine einzelne Anweisung, und verwenden Sie eine OleDbCommand mit ExecuteNonQuery Methode.
```
Dim cmdText As String = "UPDATE Animals SET LatinName=?,LocationFound=?,AverageHeight=?," + 
                 "AverageWeight = ?, DietaryNeeds = ?, ConservationStatus = ?, " + 
                 "AverageLifeSpan = ?, BreedingSeason = ?, AverageLength = ? " +
                 "WHERE AnimalName = ?"

Using con = new OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source = h:\Animals.accdb")
Using cmd = new OleDbCommand(cmdText, con)
    con.Open()
    cmd.Parameters.AddWithValue("@p1",latintxt.Text)
    cmd.Parameters.AddWithValue("@p2",locationtxt.Text)
    cmd.Parameters.AddWithValue("@p3",heighttxt.Text)
    cmd.Parameters.AddWithValue("@p4",weighttxt.Text)
    cmd.Parameters.AddWithValue("@p5",diettxt.Text)
    cmd.Parameters.AddWithValue("@p6",statustxt.Text)
    cmd.Parameters.AddWithValue("@p7",lifetxt.Text)
    cmd.Parameters.AddWithValue("@p8",breedtxt.Text)
    cmd.Parameters.AddWithValue("@p9",lengthtxt.Text)
    cmd.Parameters.AddWithValue("@p10",nametxt.Text)
    cmd.ExecuteNonQuery()
End Using
End Using
```
Gibt es ein paar Probleme bewusst zu werden und dazu führen könnte, dass ein update-Fehler.

Zuerst alle Parameter Werte vom Typ string sind und dies könnte Ihr Hauptproblem. Wenn die Datenbank Felder sind nicht der Typ text ist, dann müssen Sie konvertieren Sie diese Werte in den entsprechenden Typ.

Zum Beispiel, wenn das Feld AverageHeight ist numerisch (doppelt), dann ist der parameter sollten wie folgt geschrieben werden:
```
cmd.Parameters.AddWitValue("@p3",Convert.ToDouble(heighttxt.Text))
```
und, natürlich, den text präsentieren in der heighttxt werden sollte, umwandelbar zu einem Doppelbett.

Das zweite problem ist der Inhalt der parameter verwendet, um den Datensatz zu aktualisieren.

In der Abfrage dieses Feld benannt ist AnimalName Suche den Datensatz mit Form1.txtname.Text, aber in der gleichen Abfrage text, den Sie versuchen zu aktualisieren, das gleiche Feld in der WHERE-Klausel verwenden nametxt.Text. Logisch, diese beiden Felder den gleichen Wert enthält, so müssen Sie nur einen parameter.

Letzten Punkt zu erinnern, in der OleDb-Parameter nicht erkannt werden, die durch Ihren Namen sondern durch Ihre position in der command text. Also hütet Euch davor, die richtige Reihenfolge, in der die Parameter werden Hinzugefügt, um die parameter-Auflistung
- Danke für deine Antwort, aber wie gesagt meine Programmierkenntnisse sind sehr basic, sodass ich hoffe, du verzeihst mir, dass ich noch ein paar Fragen. Wie genau würde ich den code, den Sie gegeben haben, würde ich integriere in meine eigene oder würde ich einfach ersetzen mein? und Wie genau funktioniert cmdText Arbeit und was tut Sie?
- Eine weitere überlegung: UPDATE wird nur update vorhandenen Datensätze in der Datenbank, es werden keine neuen Datensätze hinzufügen. Zum hinzufügen von neuen Datensätzen müssen Sie eine INSERT Befehl, die hat eine etwas andere syntax als die UPDATE Befehl.
- der cmdText ist Ihre Abfrage ohne die string-Verkettung der Werte zu aktualisieren und zu suchen, dies ist besser da die Platzhalter (?) wird ersetzt durch den Wert in der corrispondent parameters-Auflistung. Diese replacemente geschieht durch die Rahmenbedingungen, die eine bessere Kenntnis, wie Sie übergeben diese Werte (zum Beispiel ein einzelnes Zitat in der textbox könnte verheerend mit der string-Verkettung)
- der code sollte, ersetzen Sie alle Ihre code.
- Als Sie für diese Erklärung. Ich habe versucht mit dem code, den Sie gegeben haben, in meinem Programm aber ich habe ein paar Probleme. Die using-Anweisungen erfordern zusätzliche Klammern, aber ich kann nicht scheinen zu platzieren, die in einem Ort, wo es das problem behebt. Das oleDbconnection-ist nicht erklärt und ich bin nicht sicher, was zu erklären, Ihnen wie.
- überprüfen Sie noch einmal die Antwort, ich habe es angebracht, denn es gab einige C# - Anweisung gemischt mit VB.NET code. Nun ist es für alle VB.NET
- Danke, dass Sie behoben hat viele Probleme 🙂 Allerdings bin ich immer noch ein paar Fragen. OleDbConnection & OleDbCommand sind nicht definiert und ich weiß nicht, wie es zu lösen ist. Ein weiteres Problem ist, dass der 'con' - Teil des ersten Anweisung verwenden, ist die Ausgabe von 'variable 'con' verbirgt eine variable in einem einschließenden block. Ich schätzen alle Hilfe, die Sie mir gegeben haben.
- Zum beheben des ersten Problems sollten Sie importieren Sie den namespace System.Daten.OleDb (oder Präfix der Variablen mit dem full-name-System.Daten.OleDb.OleDbConnection). Das zweite problem sollte sein, verursacht durch eine andere variable namens con, der sichtbar ist, wo Sie eingefügt haben, den oben stehenden code. Wahrscheinlich ist das Ihre vorherigen OleDbConnection erklärt die Globale Klasse-Niveau.
- Überprüfen Sie die Antwort, ein weiteres kleines Update, fehlende End-Anweisung Verwenden
- Ja du hattest Recht ich habe bereits zuvor erklärt, die ist, warum ist es nicht funktionierte. Auch könnte man mehr detail in der Definition der Variablen, die ich nicht wirklich verstehen.
- Füge an den Anfang deiner Datei die Richtlinie: Imports System.Data.OleDb. Nun können Sie Variablen deklarieren, wie in den obigen code ohne Präfix jede Aussage mit dem gesamten System.Daten.OleDb
- Ah ja, jetzt verstehe ich, danke, allerdings bekomme ich einen syntax-Fehler bei word-Importen.
- Nevermind, ich habe das Problem gelöst.
- Keine Sorge, ich fand diese Antwort sehr hilfreich, und werde es akzeptieren. Ich habe nur noch eine Letzte Frage in diesem " cmd.ExecuteNonQuery()' Linie produziert die 'syntax error in statement" Fehler beim Versuch, die Daten zu speichern.
- Ja, ich habe Links ein Komma vor der WHERE-Klausel, nun behoben
- Danke ich habe nicht mehr alle Fehler, aber der code scheint nicht zu speichern alle Daten in der Datenbank.
- Denken Sie daran, um zu konvertieren der string, numeric, wenn das Datenbank-Feld numerisch ist
- Ja das habe ich getan, hier ist mein neuer code, wenn Sie möchten, um es zu sehen. pastebin.com/Kv4JNT6Q
- Falsch. Erinnern Sie sich?, in der OleDb-parameter-Werte sind positionsbezogen angewendet, um die Platzhalter in Ihrem cmdText. In Ihrem überarbeiteten code des ersten Parameters enthält die animalName und es wird angewendet, um die LatinName Feld, dann ist alles verschoben einen Feld Weg ab, wo es hin soll. Und Sie haben Hinzugefügt eine @p11 ohne Feld zu speichern.
- Der 11-Feld ist, weil, wenn der code nicht funktioniert hat, dachte ich hinzufügen, es würde einen Unterschied machen, es ist ein Teil der Datenbank, muss nicht angepasst werden. Ich zog die animalName, da es das erste Feld in der Datenbank, wenn ich geschrieben meine ursprüngliche code, den ich muss vergessen haben, es zu ändern, werde ich versuchen, es zu beheben, dann lassen Sie wissen, ob es geklappt hat.
- Hier ist mein neuer code - pastebin.com/G6K95cK2, Aber ich kann immer noch nicht bekommen, die änderungen zu speichern.
- 11 Platzhalter (?), 14 Parameter
- Ich hatte, kommentierte Sie Sie heraus, aber dann machte es ohne zu wissen als ich, kopiert es auf pastebin, aber auch mit Ihnen kommentierte es aus, es tut nicht Arbeit, es war nur für den persönlichen Gebrauch. Hier ist der neue code. pastebin.com/UdRkEfrT
- jetzt 11 Platzhalter und 10 Parameter. Ich gehe jetzt ins Bett. Ich hoffe ich konnte dir das problem zu finden. Gute Nacht
InformationsquelleAutor Steve

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.