DataGridView speichern

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Schnittcher.

    DataGridView speichern

    Ich versuche gerade eine DataGridView abspeichern, und hab dazu schon etwas gefunden, aber leider Funktioniert das nicht, weil er mir diese Fehler anzeigt:
    Fehler 1 Imports-Anweisungen müssen vor Deklarationen stehen. C:\Users\Martin\Documents\Schule\Softwarentwicklung\Programme\vb\Stundenprogramm\Stundenprogramm\Form1.vb 3 5 Stundenprogramm
    Fehler 2 Der Typ "OleDbDataAdapter" ist nicht definiert. C:\Users\Martin\Documents\Schule\Softwarentwicklung\Programme\vb\Stundenprogramm\Stundenprogramm\Form1.vb 23 19 Stundenprogramm
    Fehler 3 Der Typ "OleDbConnection" ist nicht definiert. C:\Users\Martin\Documents\Schule\Softwarentwicklung\Programme\vb\Stundenprogramm\Stundenprogramm\Form1.vb 29 24 Stundenprogramm
    Fehler 4 Der Typ "OleDbDataAdapter" ist nicht definiert. C:\Users\Martin\Documents\Schule\Softwarentwicklung\Programme\vb\Stundenprogramm\Stundenprogramm\Form1.vb 33 18 Stundenprogramm
    Fehler 5 Der Typ "OleDbCommandBuilder" ist nicht definiert. C:\Users\Martin\Documents\Schule\Softwarentwicklung\Programme\vb\Stundenprogramm\Stundenprogramm\Form1.vb 37 23 Stundenprogramm

    Hier ist der Quelltext:

    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    3. Private dt As New DataTable
    4. Private da As OleDbDataAdapter
    5. Private ds As New DataSet
    6. Private bs As New BindingSource
    8. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    9. Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb;"
    10. Dim Con As New OleDbConnection(ConStr)
    12. ds.Tables.Add(dt)
    14. da = New OleDbDataAdapter("SELECT * FROM Tabelle1", Con)
    16. da.Fill(dt)
    18. Dim cb As New OleDbCommandBuilder(da)
    20. bs.DataSource = dt
    22. Me.DataGridView1.DataSource = bs
    23. End Sub
    25. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    26. If ds.HasChanges Then
    27. If MsgBox("Änderungen speichern?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo) Then
    28. bs.EndEdit()
    29. da.Update(ds.Tables(0))
    30. End If
    31. End If
    32. End Sub


    Oder könnte man das mit INI auch abspeichern?
    Danke schonmal für alle Antworten ;)

    Imports müssen ganz am Anfang einer Datei stehen...

    Als Beispiel:

    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    2. Public Class Form1
    4. Private dt As New DataTable
    5. Private da As OleDbDataAdapter
    6. Private ds As New DataSet
    7. Private bs As New BindingSource
    11. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    12. Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb;"
    13. Dim Con As New OleDbConnection(ConStr)
    15. ds.Tables.Add(dt)
    17. da = New OleDbDataAdapter("SELECT * FROM Tabelle1", Con)
    19. da.Fill(dt)
    21. Dim cb As New OleDbCommandBuilder(da)
    23. bs.DataSource = dt
    25. Me.DataGridView1.DataSource = bs
    26. End Sub
    28. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    29. If ds.HasChanges Then
    30. If MsgBox("Änderungen speichern?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo) Then
    31. bs.EndEdit()
    32. da.Update(ds.Tables(0))
    33. End If
    34. End If
    35. End Sub
    37. End Class

Facebook
Telefonspende