Datenbankprogrammierung Daten übertragen Navigieren Visual Basic Datenbank

  • Sonstige

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

    Datenbankprogrammierung Daten übertragen Navigieren Visual Basic Datenbank

    Hallo !
    (Die Klausuraufgabe lautet: Eine "kleine" Datenbank selbst erstellen.
    Erstellen Sie ein weiteres Formular in EInzelblattansicht, in dem Sie den Datenzugriff selbst programmieren. Dieses Formular enthält eine selbsterstellte Funktionalität zum Navigieren. )

    Ich habe eine kleine Datenbank mit zwei Tabellen erstellt, habe sie mit Hilfe des Assistenten zur Knofiguration von Datenquellen in ein neues Data Set übertragen, und zwischen den Tabellen eine Beziehung erstellt.
    Nun weiss ich nicht, wie ich die Daten in das Einzelblatt übertrage. Ich habe eben ein neues Form-Blatt mit Text-Boxen und Buttons mit Hilfe des Werkzeutkastens erstellt. Und folgenden Code geschrieben, aber er gibt mir immer bei "da.fill(dt)" eine Fehlermeldung, welche ich nicht weiss, wie sie zu beheben gilt. Vielleicht hat jemand einen Rat, ich hoffe dass es genug Hinweise sind, um die Fragestellung relativ klar darzustellen.....


    VB.NET-Quellcode

    1. Imports System.Data
    3. Public Class frmBearbeiten
    4. Dim dt As DataTable()
    5. Dim bs As New BindingSource
    7. Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    8. Dim c As New SqlClient.SqlConnection
    9. c.ConnectionString = "Data Source= (LiteraturDB)\v11.0;" _
    10. & "AttachDbFilename=|DataDirectory|\LiteraturDB.mdf;" _
    11. & "Integrated Security=True;" _
    12. & "Connect Timeout=30;"
    13. c.Open()
    15. Dim da As New SqlClient.SqlDataAdapter
    16. da.SelectCommand = (New SqlClient.SqlCommand("SELECT * FROM Artikel", c))
    17. da.Fill(dt)
    18. c.Close()
    20. bs.DataSource = dt
    21. Dim b As Binding
    22. b = New Binding("Text", bs, "titel")
    23. txttitel.DataBindings.Add(b)
    25. b = New Binding("Text", bs, "genre")
    26. txtgenre.DataBindings.Add(b)
    28. End Sub
    30. Private Sub Navigation(ByVal sender As Object, ByVal e As EventArgs) Handles btnErster.Click, _
    31. btnvorheriger.Click, _
    32. btnErster.Click, _
    33. btnLetzter.Click
    35. Select Case sender.name
    36. Case Me.btnErster.Name
    37. bs.MoveFirst()
    38. Case Me.btnNächster.Name
    39. bs.MoveNext()
    40. Case Me.btnvorheriger.Name
    41. bs.MovePrevious()
    42. Case Me.btnLetzter.Name
    43. bs.MoveLast()
    44. End Select
    46. End Sub
    48. Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSuchen.Click
    49. Dim pos As Integer
    50. pos = bs.Find("Titel", Me.txtSuchen.Text)
    51. If pos > -1 Then bs.Position = pos
    52. End Sub
    54. End Class

    Fehler 1 Fehler bei der Überladungsauflösung, da keine zugreifbare "Fill" mit diesen Argumenten aufgerufen werden kann:
    "Public Function Fill(dataTable As System.Data.DataTable) As Integer": Der Wert vom Typ "1-dimensionales Array von System.Data.DataTable" kann nicht in "System.Data.DataTable" konvertiert werden.
    "Public Overrides Function Fill(dataSet As System.Data.DataSet) As Integer": Der Wert vom Typ "1-dimensionales Array von System.Data.DataTable" kann nicht in "System.Data.DataSet" konvertiert werden. C:\Users\Marco\Documents\Visual Studio 2012\Projects\vbdn\Ordner 15\LiteraturDB\LiteraturDB\Form1.vb 20 9 LiteraturDB

Facebook
Telefonspende