Hoi Zäme
Brauche eure Hilfe. Für mein Fernstudium muss ich folgendes erstellen:
1. Entwerfen einer Datenbank = konnte ich machen
2. erstellen mithilfe des Datenquellen-Assistenten eine MDI-Anwendung diese Anwendung enthält u.a. ein Formular mit einer Master-Detail-Darstellung in welcher zu einem Datensatz der Mastertabelle in TextBoxen Detaildatensäte unter Verwendung des DaataGridVidew angezeigt werden = konnte ich ebenfalls machen
3. Erstellen Sie ein weiteres Formular in Einzelblattansicht, in dem Sie den Datenzugriff selbst programmieren. Dieses Formular enthält eine selbsterstellte Funktionalität zur Navigation. = habe ich erstellt nur werden meine Daten hier nicht eingelesen.
4. Das Formular enthält zusätzlich ein Textfeld txtSuchen und eine Schaltfläche btnSuchen.
Punkt 3 klappt irgendwie nicht. Das Formular erstellt aber die Daten werden nicht eingelesen.
Hauptformular:
mports System.Data
Public Class frmHaupt
Dim dt As New DataTable()
Dim bs As New BindingSource
Dim c As New SqlClient.SqlConnection
Dim da As New SqlClient.SqlDataAdapter
Private Sub mnuHaupt_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) _
Handles EinzelnToolStripMenuItem.Click, _
DatenblattToolStripMenuItem.Click, _
EinzelnToolStripMenuItem1.Click, _
DatenblattToolStripMenuItem1.Click, _
GruppenAusgabenToolStripMenuItem.Click
Dim f As Form
Select Case sender.name
Case "EinzelnToolStripMenuItem"
f = New frmGruppenEinzeln
Case "DatenblattToolStripMenuItem"
f = New frmGruppenDatenblatt
Case "EinzelnToolStripMenuItem1"
f = New frmAusgabenEinzeln
Case "DatenblattToolStripMenuItem1"
f = New frmAusgabenDatenblatt
Case "GruppenAusgabenToolStripMenuItem"
f = New frmGruppenAusgaben
End Select
f.MdiParent = Me
f.Show()
End Sub
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) _
Handles _
BeendenToolStripMenuItem.Click
Close()
End Sub
End ClassEinzelformular
mports System.Data
Public Class frmAusgabenEinzeln
Dim dt As New DataTable()
Dim bs As New BindingSource
Dim c As New SqlClient.SqlConnection
Dim da As New SqlClient.SqlDataAdapter
Private Sub Laden()
c.ConnectionString = "Data Source=(LocalDB)\v11.0;" _
& "AttachDbFilename=|DataDirectory|\Haushaltsbuch.mdf;" _
& "Integrated Security=True;" _
& "Connect Timeout=30"
c.Open()
da.SelectCommand = (New SqlClient.SqlCommand("SELECT * from Ausgaben", _
c))
da.Fill(dt)
c.Close()
bs.DataSource = dt
Dim b As Binding
b = New Binding("Text", bs, "Anr")
Me.AnrTextBox.DataBindings.Add(b)
b = New Binding("Text", bs, "Gnr")
Me.GnrTextBox.DataBindings.Add(b)
b = New Binding("Text", bs, "Bezeichnung")
Me.BezeichnungTextBox.DataBindings.Add(b)
b = New Binding("Text", bs, "Preis")
Me.PreisTextBox.DataBindings.Add(b)
End Sub
Private Sub Navigation(ByVal sender As System.Object, ByVal e As _
System.EventArgs) _
Handles btnErster.Click, _
btnVorheriger.Click, _
btnNächster.Click, _
btnLetzter.Click
Select Case sender.name
Case btnErster.Name
bs.MoveFirst()
Case btnVorheriger.Name
bs.MovePrevious()
Case btnNächster.Name
bs.MoveNext()
Case btnLetzter.Name
bs.MoveLast()
End Select
End Sub
Private Sub cboBezeichnungSuchen_SelectedIndexChanged(ByVal sender As _
System.Object, ByVal e As System.EventArgs)
Dim pos As Integer
pos = bs.Find("Bezeichnung", txtSuchen.Text)
If pos > -1 Then bs.Position = pos
End Sub
End Classwürde das ganze Projekt als Zip.-Datei zustellen mit allen Formularen wenn mir jemand hierbei helfen könnte.
es klappt alles bis darauf, wenn ich im Hauptformular das Formular frmAusgabenEinzeln aufrufe, wird das Formular zwar aufgerufen und angezeigt aber ohne Daten und die Buttons Nächster etc. funktionieren auch nicht.
Danke für eure Hilfe
Moglie
|
Forenübersicht Suchen Forumsregeln
Sie sind aktuell nicht angemeldet.
