Imports System.Data.OleDb
Imports System.NullReferenceException
 
Public Class Schüler
    Inherits System.Windows.Forms.Form
 
 
    Private dbpath As String = System.IO.Path.Combine(Application.StartupPath, _
      "Datenbank.mdb")
    Private conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
    "Source=" & dbpath & ";")
    Private sql As String = "SELECT * FROM Schüler;"
    Private cmd As New OleDbCommand(Sql, conn)
    Private da As New OleDbDataAdapter(cmd)
    Private SE As New NullReferenceException()
 
    Private ds As New DataSet()
 
 
 
    Private Sub LOAD_Table()
        Dim iCount As Integer
 
        Try
 
            conn.Open()
 
            ds.Clear()
 
 
        Catch ex As OleDbException
            MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
              MessageBoxIcon.Exclamation)
            'Finally
 
            'conn.Close()
        End Try
 
 
    End Sub
 
 
 
 
    Private Sub Daten(ByVal strKlasse As String, ByVal strKlvst As String, _
        ByVal strVorname As String, ByVal strName As String, ByVal strgebtag As _
        String, _
        ByVal strPLZ As String, ByVal strOrt As String, ByVal strTelefon As _
        String, _
        ByVal strBemerkung As String, ByVal strGeschlecht As String, ByVal _
        strGebort As String, _
        ByVal strKonfession As String, ByVal strStaat As String, ByVal _
        strMuttersprache As String, _
        ByVal strgebmonat As String, ByVal strGebjahr As String, ByVal _
        strStraße As String, _
        ByVal strSchulbesuch As String, ByVal strSbj As String, ByVal _
        strEinstufungD As String, _
        ByVal strEinstufungE As String, ByVal strEinstufungM As String, ByVal _
        strSchulpflicht As String)
        Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)
 
 
        Try
            conn.Open()
 
            'Im DataSet einen neuen Datensatz hinzufügen
            'Der Tabelle eine neue DataRow hinzufügen
 
 
 
 
 
            Dim row As DataRow = ds.Tables("Schüler").NewRow()
 
 
            'Werte übergeben
            row("Klasse") = strKlasse
            row("Klvst") = strKlvst
            row("Name") = strName
            row("Vorname") = strVorname
            row("GebTAG") = strgebtag
            row("GebMonat") = strgebmonat
            row("GebJahr") = strGebjahr
            row("Straße") = strStraße
            row("PLZ") = strPLZ
            row("Ort") = strOrt
            row("Telefon") = strTelefon
            row("Bemerkung") = strBemerkung
            row("Geschlecht") = strGeschlecht
            row("Geburtsort") = strGebort
            row("Konfession") = strKonfession
            row("Staatsangehörikgeit") = strStaat
            row("Muttersprache") = strMuttersprache
            row("Schulbesuchsjahr") = strSchulbesuch
            row("Sbj in Österreich") = strSbj
            row("Einstufung deutsch") = strEinstufungD
            row("Einstufung englisch") = strEinstufungE
            row("Einstufung mathematik") = strEinstufungM
            row("Schulpflichtig") = strSchulpflicht
 
 
            ds.Tables("Schüler").Rows.Add(row)
 
            'Datenbank updaten
            da.Update(ds, "Schüler")
 
            MessageBox.Show("Neuer Datensatz Username " & strName & "" & _
              "hinzugefügt!", _
                        "Neuer Datensatz", MessageBoxButtons.OK, _
                        MessageBoxIcon.Information)
        Catch ex As OleDbException
            MessageBox.Show(ex.Message, "Fehler", _
              MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Exclamation)
        Finally
            conn.Close()
        End Try
 
        LOAD_Table()
    End Sub
    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
        Me.Close()
 
    End Sub
 
    Private Sub SichernToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles SichernToolStripMenuItem.Click
        Daten(Klasse.Text, Klvst.Text, Vorname.Text, TextBox2.Text, _
        ComboBox5.Text, ComboBox8.Text, TextBox3.Text, Telefon.Text, _
        Bemerkung.Text, ComboBox1.Text, TextBox3.Text, ComboBox9.Text, _
        ComboBox10.Text, ComboBox11.Text, ComboBox7.Text, ComboBox6.Text, _
        Strasse.Text, ComboBox12.Text, ComboBox13.Text, deutsch.Text, _
        ComboBox4.Text, ComboBox3.Text, ComboBox14.Text)
 
    End Sub
 
End Class