Accessdatenbank per Code einbinden oder über VB-Server-Explorer

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Indeed.

    Accessdatenbank per Code einbinden oder über VB-Server-Explorer

    Hallo zusammen,

    bisher habe ich immer meine Verbindung/Einlesen/Update zur Datenbank selber geschrieben.

    In VB2010 ist es ja recht einfach mit dem Server-Explorer Daten in Textboxen/Comboboxen/Datagridviews darzustellen.

    Wie macht ihr das, wenn ihr Daten von Datenbanken einliest bspw. in Textboxen anzeigt, den Benutzer diese ändern lasst und in der Datenbank abspeichert?

    Danke für deinen Link.

    Bisher habe ich die Daten einfach in ein Datatable geladen und von dort aus in die jeweiligen Textboxen, Comboboxen etc. Die Änderungen bzw. die Inhalte werden vor jedem Update des Datatableadapter in das Datatable zurück geschrieben. Hat bisher problemlos funktioniert.

    das sagtest du bereits in post#1

    aber probierma, vom Northwind-SampleProjekt den Bestellungen - View nachzuproggen.

    Wenn man Buttons und Filterung wegläßt, kommt man mit folgendem Code aus:

    VB.NET-Quellcode

    1. Imports NorthWind.NorthWindDts
    2. Imports System.Data.OleDb
    4. Public Class frmAccess
    6. Private Sub frmNorthWind_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    7. Dim adp = New DatasetAdapter( _
    8. OleDbFactory.Instance, My.Settings.BestellungPrimConnectionString, _
    9. ConflictOption.OverwriteChanges)
    10. Me.AlignOnTop.NorthWindDts.Adapter(adp).Register(Me)
    11. AddHandler Me.FormClosing, NorthWindDts.HandleFormClosing
    12. Reload()
    13. End Sub
    15. Private Sub Reload()
    16. With NorthWindDts
    17. .Fill(.Artikel, .Kategorien, .Kunden)
    18. End With
    19. End Sub
    21. Private Sub KundenBindingSource_CurrentChanged(ByVal sender As Object, ByVal e As EventArgs) _
    22. Handles KundenBindingSource.CurrentChanged
    23. Dim rwKunde = KundenBindingSource.At(Of KundenRow)()
    24. If rwKunde.Null Then Return
    25. With NorthWindDts
    26. rwKunde.FillChildTables(.Bestellungen, .Bestelldetails)
    27. End With
    28. End Sub
    30. End Class

    und ohne LazyLoading isses nurnoch:

    VB.NET-Quellcode

    1. Imports NorthWind.NorthWindDts
    2. Imports System.Data.OleDb
    4. Public Class frmAccess
    6. Private Sub frmNorthWind_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    7. Dim adp = New DatasetAdapter( _
    8. OleDbFactory.Instance, My.Settings.BestellungPrimConnectionString, _
    9. ConflictOption.OverwriteChanges)
    10. Me.AlignOnTop.NorthWindDts.Adapter(adp).Register(Me)
    11. AddHandler Me.FormClosing, NorthWindDts.HandleFormClosing
    12. NorthWindDts.Fill()
    13. End Sub
    15. End Class


    Probier das mal nachzubauen, dass dieselbe Funktionalität bei rauskommt.