da.update wird nicht ausgeführt

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von greyman.

    da.update wird nicht ausgeführt

    Hallo,
    ein VB2008 Anfänger braucht mal bisschen Unterstützung.
    Bin gerade erst am Anfang um mich in VB2008 und das Thema Datenbanken einzuarbeiten und komme auch in kleinen aber feinen
    Schritten voran.

    Jetz hahb ich allerdings ein Problem welches ich nicht ganz verstehe (Aber ihr könnt mir das sicher erklären)

    Ich habe eine Access-Db mit 3 Spalten (Name, PLZ, Ort).
    In die möchte ich ganz simpel neue Daten aus Textboxen eintragen. Dachte das ist ganz einfach
    aber irgendwo hängts und ich weiß net was falsch ist.
    Hier mal der Code :

    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    2. Public Class Form1
    3. Private conn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0; Data Source=db2.mdb")
    4. Private da As OleDbDataAdapter = Nothing
    5. Private ds As DataSet = Nothing
    6. Private dt As DataTable = Nothing
    8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. Dim str As String = "SELECT * From Tabelle1"
    10. da = New OleDbDataAdapter(str, conn)
    11. conn.Open()
    12. Dim ds As New DataSet
    13. da.Fill(ds, "Tabelle1")
    14. conn.Close()
    15. End Sub
    17. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    18. Dim insql = "INSERT INTO Tabelle1 (Name, PLZ, ORT) VALUES (?,?,?)"
    19. Dim inscmd As New OleDbCommand(insql, conn)
    21. inscmd.Parameters.Add("?", OleDbType.VarChar, 40, "Name")
    22. inscmd.Parameters.Add("?", OleDbType.BigInt, 5, "PLZ")
    23. inscmd.Parameters.Add("?", OleDbType.VarChar, 30, "Ort")
    24. da.InsertCommand = inscmd
    26. Dim dt As New DataTable
    27. dt = ds.Tables("Tabelle1")
    28. Dim rw As DataRow = dt.NewRow()
    29. rw("Name") = TextBox1.Text
    30. rw("PLZ") = TextBox2.Text
    31. rw("Ort") = TextBox3.Text
    32. dt.Rows.Add(rw)
    33. conn.Open()
    34. da.Update(dt)
    35. conn.Close()
    36. End Sub
    37. End Class


    wie gesagt is alles voll anfängermäßig aber wär trotzdem toll wenn jemand nen Tipp hätte damit ich für die Zukunft derartige Fehler vermeide ;(

    danke, aber leider immernoch die gleiche Fehlermeldung:
    NullReferenceException
    Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

    :S

    noch ne Idee?

    Hab mir grad noch mal meinen Code im Debugger angeschaut:

    er bemängelt die Zeile:

    VB.NET-Quellcode

    1. dt = ds.Tables("Tabelle1")

    wenn ich da mit der maus auf dt gehe dann kommt da "dt|nothing"
    is das vielleicht der Fehler???

    Dachte aber das sollte so angegeben werde, hab das zumindest in vielen Beispielen so gesehen. :(

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „greyman“ ()

Facebook
Telefonspende