VB Access Datenbank Tabelle leeren

Imports System.Data.OleDb

Public Class Form1
    Dim con As New OleDbConnection
    Dim cmd As New OleDbCommand
    Dim reader As OleDbDataReader
    Dim pnummer As New ArrayList



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con.ConnectionString =
            "Provider=Microsoft.Jet.OLEDB.4.0;" &  
            "Data Source=C:\Temp\firma.mdb"  
        cmd.Connection = con
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AlleSehen()
    End Sub

    Private Sub AlleSehen()
        Try
            con.Open()
            cmd.CommandText = "select * from personen"  
            Ausgabe()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        con.Close()

        nachname.Text = ""  
        vorname.Text = ""  
        id.Text = ""  
        gehalt.Text = ""  
        geburtstag.Text = ""  
    End Sub

    Private Sub Ausgabe()
        reader = cmd.ExecuteReader()
        ListBox1.Items.Clear()
        pnummer.Clear()
        Do While reader.Read()
            ListBox1.Items.Add(reader("name") & " # " &  
                reader("vorname") & " # " &  
                reader("personalnummer") & " # " &  
                reader("gehalt") & " # " &  
                reader("geburtstag"))  
            pnummer.Add(reader("personalnummer"))  
        Loop
        reader.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim anzahl As Integer

        Try
            con.Open()
            cmd.CommandText =
                "insert into personen " &  
               "(name, vorname, personalnummer, " &  
               "gehalt, geburtstag, bild) values ('" &  
               nachname.Text & "', '" &  
              vorname.Text & "', " &  
               id.Text & ", " &  
               gehalt.Text.Replace(",", ".") &  
               ", '" & geburtstag.Text & "', '" & bildpfad.Text & "')"  
            MessageBox.Show(cmd.CommandText)

            anzahl = cmd.ExecuteNonQuery()
            If anzahl > 0 Then
                MessageBox.Show(
                    "Ein Datensatz eingefügt")  

            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            MessageBox.Show("Bitte mindestens einen" &  
                " Namen, eine eindeutige Personal" &  
                "nummer und ein gültiges Geburts" &  
                "datum eintragen")  
        End Try
        con.Close()



       




    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click


        Dim anzahl As Integer

        Try
            con.Open()
            cmd.CommandText =
                "update personen set " &  
               "name = '" & nachname.Text & "', " &  
               "vorname = '" & vorname.Text &  
               "', " & "personalnummer = " &  
               id.Text & ", " &  
               "gehalt = " &  
               gehalt.Text.Replace(",", ".") &  
               ", " & "geburtstag = '" &  
               geburtstag.Text & "' " &  
               "where personalnummer = " &  
               pnummer(ListBox1.SelectedIndex)


            anzahl = cmd.ExecuteNonQuery()
            If anzahl > 0 Then
                MessageBox.Show("Datensatz geändert")  
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            MessageBox.Show("Bitte einen Datensatz" &  
                " auswählen und mindestens einen" &  
                " Namen, eine eindeutige ID" &  
                "und ein gültiges Geburts" &  
                "datum eintragen")  
        End Try
        con.Close()

        AlleSehen()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click


        Dim anzahl As Integer
        If id.Text = "" Then  
            MessageBox.Show(
                "Bitte einen Datensatz auswählen")  
            Exit Sub
        End If

        If MessageBox.Show("Wollen Sie den ausge" &  
               "wählten Datensatz wirklich löschen?",  
               "Löschen", MessageBoxButtons.YesNo) =  
                    DialogResult.No Then
            Exit Sub
        End If

        Try
            con.Open()
            cmd.CommandText = "delete from personen " &  
                "where personalnummer = " &  
                pnummer(ListBox1.SelectedIndex)


            anzahl = cmd.ExecuteNonQuery()
            If anzahl > 0 Then
                MessageBox.Show("Datensatz gelöscht")  
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        con.Close()

        AlleSehen()


    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click


        Try
            con.Open()
            cmd.CommandText =
                "select * from personen where" &  
                " name like '%" & nachname.Text & "%'"  
            Ausgabe()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        con.Close()


    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Try

            con.Open()
            cmd.CommandText = "select * from personen" &  
                " where personalnummer = " &  
                pnummer(ListBox1.SelectedIndex)

            reader = cmd.ExecuteReader()
            reader.Read()

            nachname.Text = reader("name")  
            vorname.Text = reader("vorname")  
            id.Text =
                reader("personalnummer")  
            gehalt.Text = reader("gehalt")  
            geburtstag.Text = reader("geburtstag")  

            reader.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        con.Close()

    End Sub


    
' button 6 soll die datenbank leeren  

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click



      

       
            con.Open()
        cmd.CommandText = "delete from personen"  

            con.Close()
            
      






    End Sub

   


    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        OpenFileDialog1.Filter = "Images Files (*.bmp, *.gif, *.jpg)|*.bmp;*.gif;*.jpg"  

        If OpenFileDialog1.ShowDialog = DialogResult.OK Then

            bildpfad.Text = OpenFileDialog1.FileName
        Else
            Exit Sub
        End If

    End Sub


End Class