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.....
(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
- Imports System.Data
- Public Class frmBearbeiten
- Dim dt As DataTable()
- Dim bs As New BindingSource
- Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
- Dim c As New SqlClient.SqlConnection
- c.ConnectionString = "Data Source= (LiteraturDB)\v11.0;" _
- & "AttachDbFilename=|DataDirectory|\LiteraturDB.mdf;" _
- & "Integrated Security=True;" _
- & "Connect Timeout=30;"
- c.Open()
- Dim da As New SqlClient.SqlDataAdapter
- da.SelectCommand = (New SqlClient.SqlCommand("SELECT * FROM Artikel", c))
- da.Fill(dt)
- c.Close()
- bs.DataSource = dt
- Dim b As Binding
- b = New Binding("Text", bs, "titel")
- txttitel.DataBindings.Add(b)
- b = New Binding("Text", bs, "genre")
- txtgenre.DataBindings.Add(b)
- End Sub
- Private Sub Navigation(ByVal sender As Object, ByVal e As EventArgs) Handles btnErster.Click, _
- btnvorheriger.Click, _
- btnErster.Click, _
- btnLetzter.Click
- Select Case sender.name
- Case Me.btnErster.Name
- bs.MoveFirst()
- Case Me.btnNächster.Name
- bs.MoveNext()
- Case Me.btnvorheriger.Name
- bs.MovePrevious()
- Case Me.btnLetzter.Name
- bs.MoveLast()
- End Select
- End Sub
- Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSuchen.Click
- Dim pos As Integer
- pos = bs.Find("Titel", Me.txtSuchen.Text)
- If pos > -1 Then bs.Position = pos
- End Sub
- End Class