Hallo dies ist der Quellcode des ersten Formular, wodurch sich durch klick ein zweites öffnet in der nur eine datagridview ist und eine Tabelle geladen werden soll, die aus Access stammt. Leider lädt sich die datagrid view per klick nicht mit den Daten der Tabelle.
Public Class frmTitelblatt
Private Sub btnMitarbeiterdatenbank_Click(sender As Object, e As EventArgs) Handles btnMitarbeiterdatenbank.Click
frmMitarbeiterdatenbank.Show()
Me.Hide()
End Sub
Private Sub btnSportkurseVerwalten_Click(sender As Object, e As EventArgs) Handles btnSportkurseVerwalten.Click
frmKursverwaltung.Show()
Me.Hide()
End Sub
Private Sub btnWochenplan_Click(sender As Object, e As EventArgs) Handles btnWochenplan.Click
frmWochenplan.Show()
Me.Hide()
End Sub
Private Sub frmTitelblatt_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
Dies ist der Quellcode des datagridview feldes:
Public Class frmMitarbeiterdatenbank
Private Sub btnZurueckTitelblattVonMitarbeiterdatenbank_Click(sender As Object, e As EventArgs) Handles btnZurueckTitelblattVonMitarbeiterdatenbank.Click
frmTitelblatt.Show()
Me.Hide()
End Sub
Private Sub frmMitarbeiterdatenbank_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Datenbankverbindung herstellen
Dim objDatabase As New clsDatabase
'Daten laden in DataGridView
dgvMitarbeiterdatenbank.DataSource = objDatabase.getTable("tblMitarbeiter").Tables(0)
'Datenbankobjekt verwerfen -> Mülleimer
objDatabase = Nothing
End Sub
Private Sub dgvMitarbeiterdatenbank_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvMitarbeiterdatenbank.CellContentClick
End Sub
End Class
Sieht jemand auf anhieb einen Fehler?
Danke
*Topic verschoben*
Public Class frmTitelblatt
Private Sub btnMitarbeiterdatenbank_Click(sender As Object, e As EventArgs) Handles btnMitarbeiterdatenbank.Click
frmMitarbeiterdatenbank.Show()
Me.Hide()
End Sub
Private Sub btnSportkurseVerwalten_Click(sender As Object, e As EventArgs) Handles btnSportkurseVerwalten.Click
frmKursverwaltung.Show()
Me.Hide()
End Sub
Private Sub btnWochenplan_Click(sender As Object, e As EventArgs) Handles btnWochenplan.Click
frmWochenplan.Show()
Me.Hide()
End Sub
Private Sub frmTitelblatt_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
Dies ist der Quellcode des datagridview feldes:
Public Class frmMitarbeiterdatenbank
Private Sub btnZurueckTitelblattVonMitarbeiterdatenbank_Click(sender As Object, e As EventArgs) Handles btnZurueckTitelblattVonMitarbeiterdatenbank.Click
frmTitelblatt.Show()
Me.Hide()
End Sub
Private Sub frmMitarbeiterdatenbank_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Datenbankverbindung herstellen
Dim objDatabase As New clsDatabase
'Daten laden in DataGridView
dgvMitarbeiterdatenbank.DataSource = objDatabase.getTable("tblMitarbeiter").Tables(0)
'Datenbankobjekt verwerfen -> Mülleimer
objDatabase = Nothing
End Sub
Private Sub dgvMitarbeiterdatenbank_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvMitarbeiterdatenbank.CellContentClick
End Sub
End Class
Sieht jemand auf anhieb einen Fehler?
Danke
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()