Halli Hallo!
Ich habe ein Problem mit meinem Programm (beste Einleitung!)
Zuvor: JA ich habe gegoogelt. JA ich habe mir das Tutorial hier zur Registryanwendung durchgelesen. JA ich habe mein Buch "VB 2017" von Rheinwerk Computing zu Rate gezogen. JA ich habe meinen Lehrer gefragt. JA ich habe auf YouTube geguckt.
Hat mir das alles weitergeholfen? NEIN!
Na dann, das Programm!
Jenes ist für meinen Infokurs Klasse 11, wir alle müssen uns ein eigenes ausdenken, das ist dann die Kurshalbjahresnote. Ich habe mir ein illustres Programm zur Verwaltung von Noten der Oberstufe überlegt. Dabei kann man Noten eintragen und ausrechnen lassen, das alles aber in Tests gliedern sowie Schüler-, Test- und Notendaten anzeigen lassen. Dabei sind alle Daten in einer MySQL-Datenbank gespeichert. Soviel zu dem was ihr euch schon hättet denken können.
Kurz zum Ablauf: Man startet das Programm, es öffnet sich ein kleines Fensterchen in dem man zwei Konten auswählen kann: Administrator (Oberstufenkoordinatorin) und Lehrer. Bei letzterem muss dann zum PW noch ein BN eingegben werden. Um arbeiten zu können, habe ich hier die MySQL-Verbindung erstmal rausgelassen - da hat's auch schon nicht funktioniert. Ich schätze demzufolge mal, dass es ein allgemeines Problem ist und nicht spezifisch für den Programmteil.
Das Problem kann ich euch nicht weiter erörtern, sollte aber eigentlich auch klar sein. Schaut's euch an! Falls ihr noch Infos zur DB braucht, scheut ecuh nicht. Da weiß ich aber nicht ganz, wie ich das hier präsentieren könnte.
Wenn ihr mit Sachen wie "externer Zugriff" kommt, dann erklärt sie mir bitte detailliert! Ich weiß, mein Programmierstil ist schlampig, ich habe keine Kommentare drin und auch keine Try's. Ich hoffe trotzdem, dass ihr alles versteht!
Ich danke schon im Voraus
Grüße,
Adrian
Ich habe ein Problem mit meinem Programm (beste Einleitung!)
Zuvor: JA ich habe gegoogelt. JA ich habe mir das Tutorial hier zur Registryanwendung durchgelesen. JA ich habe mein Buch "VB 2017" von Rheinwerk Computing zu Rate gezogen. JA ich habe meinen Lehrer gefragt. JA ich habe auf YouTube geguckt.
Hat mir das alles weitergeholfen? NEIN!
Na dann, das Programm!
Jenes ist für meinen Infokurs Klasse 11, wir alle müssen uns ein eigenes ausdenken, das ist dann die Kurshalbjahresnote. Ich habe mir ein illustres Programm zur Verwaltung von Noten der Oberstufe überlegt. Dabei kann man Noten eintragen und ausrechnen lassen, das alles aber in Tests gliedern sowie Schüler-, Test- und Notendaten anzeigen lassen. Dabei sind alle Daten in einer MySQL-Datenbank gespeichert. Soviel zu dem was ihr euch schon hättet denken können.
Kurz zum Ablauf: Man startet das Programm, es öffnet sich ein kleines Fensterchen in dem man zwei Konten auswählen kann: Administrator (Oberstufenkoordinatorin) und Lehrer. Bei letzterem muss dann zum PW noch ein BN eingegben werden. Um arbeiten zu können, habe ich hier die MySQL-Verbindung erstmal rausgelassen - da hat's auch schon nicht funktioniert. Ich schätze demzufolge mal, dass es ein allgemeines Problem ist und nicht spezifisch für den Programmteil.
Das Problem kann ich euch nicht weiter erörtern, sollte aber eigentlich auch klar sein. Schaut's euch an! Falls ihr noch Infos zur DB braucht, scheut ecuh nicht. Da weiß ich aber nicht ganz, wie ich das hier präsentieren könnte.
VB.NET-Quellcode
- Imports MySql.Data.MySqlClient
- Public Class notava_admin
- Dim con As New MySqlConnection ' Steuervariablen für MySQL
- Dim cmd As New MySqlCommand
- Dim reader As MySqlDataReader
- Dim id_Klasse As Integer
- Private Sub notava_admin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- cmb_KI_Jahrgang.Items.Add(11)
- cmb_KI_Jahrgang.Items.Add(13)
- cmb_KI_Klasse.Enabled = False
- btn_KI_Anzeigen.Enabled = False
- End Sub
- Private Sub cmb_KI_Jahrgang_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_KI_Jahrgang.SelectedIndexChanged
- btn_KI_Anzeigen.Enabled = False
- cmb_KI_Klasse.Enabled = True
- cmb_KI_Klasse.Items.Clear()
- If cmb_KI_Jahrgang.SelectedIndex = 0 Then
- cmb_KI_Klasse.Items.Add("a") : id_Klasse = 111
- cmb_KI_Klasse.Items.Add("b") : id_Klasse = 112
- cmb_KI_Klasse.Items.Add("c") : id_Klasse = 113
- cmb_KI_Klasse.Enabled = True
- ElseIf cmb_KI_Jahrgang.SelectedIndex = 1 Then
- cmb_KI_Klasse.Items.Add("a") : id_Klasse = 1
- End If
- End Sub
- Private Sub cmb_KI_Klasse_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_KI_Klasse.SelectedIndexChanged
- btn_KI_Anzeigen.Enabled = True
- End Sub
- Private Sub btn_KI_Anzeigen_Click(sender As Object, e As EventArgs) Handles btn_KI_Anzeigen.Click
- con.ConnectionString = "Data Source=localhost; Initial Catalog=notava; UID=root; password=yamaha910"
- con.Open()
- cmd.CommandText = "SELECT *, lehrer.name FROM klasse JOIN lehrer WHERE klasse.id_Klasse = " & id_Klasse & "AND WHERE klasse.id_tutor = lehrer.id_lehrer"
- reader = cmd.ExecuteReader
- lbl_KI_Klasseninfo.Text = "Klasse: " & cmb_KI_Jahrgang.SelectedItem & cmb_KI_Klasse.SelectedItem & vbCrLf &
- vbCrLf & "Anzahl Schüler: " & reader("klasse.Anzahl_Schueler") & vbCrLf &
- vbCrLf & "Tutor: " & reader("lehrer.name")
- reader.Close()
- con.Close()
- End Sub
- End Class
Wenn ihr mit Sachen wie "externer Zugriff" kommt, dann erklärt sie mir bitte detailliert! Ich weiß, mein Programmierstil ist schlampig, ich habe keine Kommentare drin und auch keine Try's. Ich hoffe trotzdem, dass ihr alles versteht!
Ich danke schon im Voraus
Grüße,
Adrian