Imports System.Data.OleDb
Public Class ConForm
    'Diese Klasse stellt die Verbindung zur Datenbank her
 
    'Hier werden die globalen Variablen für die Connection angegeben
    Private con As New OleDb.OleDbConnection
    Private strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data" & _
      "Source=C:\Freibage\WatchGuard.mdb;"
 
    Private Sub ConForm_FormClosing(ByVal sender As Object, _
    ByVal e As FormClosingEventArgs) Handles MyBase.FormClosing
        'Diese Form öffnet ein Fenster,
        'wenn ein Button betätigt wird,
        'der das Programm schließt und
        'fragt nach, ob es wirklich geschlossen werden soll
        Dim dr As DialogResult = _
        MessageBox.Show("Wollen Sie die Anwendung beenden?", _
        "WatchGuard", _
        MessageBoxButtons.YesNo, _
        MessageBoxIcon.Question, _
        MessageBoxDefaultButton.Button2)
        ' wird im Meldungsfenster die Schaltflächen 'Nein'
        ' geklickt, wird der Schließvorgang abgebrochen
        If (dr = System.Windows.Forms.DialogResult.No) Then
            e.Cancel = True
        End If
    End Sub
 
    Private Sub BeendenToolStripMenuItem_Click _
    (ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles BeendenToolStripMenuItem.Click
        'Wird der Button "Beenden" betätigt,
        'wird die Subroutine Form1_FormClosing
        'aufgerufen, wenn in der Abfrage "Ja"
        'angeklickt wird, wird das Programm beendet
        Form1.Close()
        LoginForm1.Close()
        Me.Close()
    End Sub
 
    Private Sub LogoutToolStripMenuItem_Click _
    (ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles LogoutToolStripMenuItem.Click
        'Wird der Button "Logout" betätigt,
        'wird das Userinterface geschlossen
        'und die Routine LoginForm1 aufgerufen
        Me.Hide()
        LoginForm1.Show()
    End Sub
 
    Private Sub HauptmenüToolStripMenuItem_Click _
    (ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles HauptmenüToolStripMenuItem.Click
        'Wird der Button "Hauptmenü" betätigt,
        'wird das SQLAbfragefenster geschlossen
        'und die Routine Form1 aufgerufen
        Me.Hide()
        Form1.Show()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        'Hier wird die Verbindung zur Datenbank hergestellt
 
        Try
            Dim DS As New DataSet
 
            con.ConnectionString = strCon
 
            Dim oledbadapter As OleDb.OleDbDataAdapter
 
            oledbadapter = New OleDb.OleDbDataAdapter("SELECT * FROM Benutzer", _
              con)
 
            con.Open()
 
            oledbadapter.Fill(DS, "Benutzer")
            oledbadapter.FillSchema(DS, SchemaType.Mapped)
 
            MessageBox.Show("Verbindung erfolgreich hergestellt")
 
            'TextBox1.Text = 
 
        Catch ex As Exception
            MessageBox.Show(Me, "Fehler aufgetreten : " + ex.ToString)
        Finally
            If con IsNot Nothing Then
                con.Close()
            End If
        End Try
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox1.TextChanged
 
    End Sub
 
    Private Sub ConForm_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class