Datenbank Programmierung mit Visual Basic

Datenbank Programmierung mit Visual Basic

Author D.Selzer-McKenzie

Video: http://youtu.be/7BMuZLcAKIE

Heute zeige ich Ihnen, wie Sie ganz einfach eine Datenbank mit einzelnen Abfragen, Datensatzänderungen und einsetzen von neuen Datensätzen programmieren können.

Den Source-Code können Sie kostenlos im Forum

http://Outbackbrumby.Blogspot.com

herunterladen.

 

Hier der SourceCode:

Imports System.Data.OleDb

Class Form1

    Dim FürFussballDatenbankVerbindung As New OleDbConnection

    Dim FürFussballDatenbankKommando As New OleDbCommand

    Dim FürFussballDatenbankEinlesen As OleDbDataReader

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        FürFussballDatenbankVerbindung.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\1\Fussball.mdb"

        FürFussballDatenbankKommando.Connection = FürFussballDatenbankVerbindung

    End Sub

 

    Private Sub ButtonFussballAlleDatensätzeAnzeigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFussballAlleDatensätzeAnzeigen.Click

        AlleDatensätzeSehen()

    End Sub

    Private Sub ButtonFussballDatensatzEinfügen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFussballDatensatzEinfügen.Click

        Dim anzahl As Integer

 

        Try

            FürFussballDatenbankVerbindung.Open()

            FürFussballDatenbankKommando.CommandText =

           "insert into FussballResultat " &

           "(Spieltag,SpielDatum, HeimTeam, AuswärtsTeam, " &

           "HeimTor, AuswärtsTor, Resultat, Liga) values ('" &

            TextBoxFussballSpieltag.Text & "', '" &

            TextBoxFussballSpielDatum.Text & "', " &

            TextBoxFussballHeimTeam.Text & ", " &

            TextBoxFussballAuswärtsTeam.Text & "', '" &

            TextBoxFussballHeimTor.Text & "', " &

            TextBoxFussballAuswärtsTor.Text & ", " &

            TextBoxFussballErgebnis.Text & ", " &

            TextBoxFussballLiga.Text & ", "

 

            MessageBox.Show(FürFussballDatenbankKommando.CommandText)

 

            anzahl = FürFussballDatenbankKommando.ExecuteNonQuery()

            If anzahl > 0 Then

                MessageBox.Show(

                    "Ein Datensatz eingefügt")

            End If

        Catch ex As Exception

            MessageBox.Show(ex.Message)

            MessageBox.Show("In mindestens einer" &

                " Spalte, einen eindeutigen Namen" &

                " und ein gültiges Format eintragen")

        End Try

        FürFussballDatenbankVerbindung.Close()

        AlleDatensätzeSehen()

    End Sub

    Private Sub ButtonFussballÄndern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFussballÄndern.Click

        Dim anzahl As Integer

 

        Try

            FürFussballDatenbankVerbindung.Open()

            FürFussballDatenbankKommando.CommandText =

                "update FussballResultat set " &

               "Spieltag = '" & TextBoxFussballSpieltag.Text & "', " &

               "SpielDatum = '" & TextBoxFussballSpielDatum.Text & "', " &

               "HeimTeam = " & TextBoxFussballHeimTeam.Text & ", " &

               "AuswärtsTeam = " & TextBoxFussballAuswärtsTeam.Text & ", " &

               "HeimTor = '" & TextBoxFussballHeimTor.Text & "', " &

               "AuswärtsTor = '" & TextBoxFussballAuswärtsTor.Text & "', " &

               "Ergebnis = " & TextBoxFussballErgebnis.Text & ", " &

               "Liga = " & TextBoxFussballLiga.Text & ", "

 

            MessageBox.Show(FürFussballDatenbankKommando.CommandText)

 

            anzahl = FürFussballDatenbankKommando.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 Personal" &

                "nummer und ein gültiges Geburts" &

                "datum eintragen")

        End Try

        FürFussballDatenbankVerbindung.Close()

 

        AlleDatensätzeSehen()

    End Sub

    Private Sub AlleDatensätzeSehen()

        Try

            FürFussballDatenbankVerbindung.Open()

            FürFussballDatenbankKommando.CommandText = "select * from FussballResultat"

            Ausgabe()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

        FürFussballDatenbankVerbindung.Close()

 

        TextBoxFussballSpieltag.Text = ""

        TextBoxFussballSpielDatum.Text = ""

        TextBoxFussballHeimTeam.Text = ""

        TextBoxFussballAuswärtsTeam.Text = ""

        TextBoxFussballHeimTor.Text = ""

        TextBoxFussballAuswärtsTor.Text = ""

        TextBoxFussballErgebnis.Text = ""

        TextBoxFussballLiga.Text = ""

 

    End Sub

    Private Sub Ausgabe()

        FürFussballDatenbankEinlesen = FürFussballDatenbankKommando.ExecuteReader()

        DatenAusgabeFläche.Items.Clear()

 

        Do While FürFussballDatenbankEinlesen.Read()

            DatenAusgabeFläche.Items.Add(FürFussballDatenbankEinlesen("Spieltag") & ".Spieltag = " &

                FürFussballDatenbankEinlesen("SpielDatum") & " " &

                FürFussballDatenbankEinlesen("HeimTeam") & "./." &

                FürFussballDatenbankEinlesen("AuswärtsTeam") & "    " &

                FürFussballDatenbankEinlesen("HeimTor") & ":" &

                FürFussballDatenbankEinlesen("AuswärtsTor") & "    " &

                FürFussballDatenbankEinlesen("Ergebnis") & "  " &

                FürFussballDatenbankEinlesen("Liga"))

        Loop

        FürFussballDatenbankEinlesen.Close()

    End Sub

 

    Private Sub DatenAusgabeFläche_SelectedIndexChanged(

            ByVal sender As System.Object,

            ByVal e As System.EventArgs

            ) Handles DatenAusgabeFläche.SelectedIndexChanged

        Try

            FürFussballDatenbankVerbindung.Open()

            FürFussballDatenbankKommando.CommandText = "select * from FussballResultate"

            FürFussballDatenbankEinlesen = FürFussballDatenbankKommando.ExecuteReader()

            FürFussballDatenbankEinlesen.Read()

 

            TextBoxFussballSpieltag.Text = FürFussballDatenbankEinlesen("Spieltag")

            TextBoxFussballSpielDatum.Text = FürFussballDatenbankEinlesen("Liga")

            TextBoxFussballHeimTeam.Text = FürFussballDatenbankEinlesen("HeimTeam")

            TextBoxFussballAuswärtsTeam.Text = FürFussballDatenbankEinlesen("AuswärtsTeam")

            TextBoxFussballHeimTor.Text = FürFussballDatenbankEinlesen("Tore1")

            TextBoxFussballAuswärtsTor.Text = FürFussballDatenbankEinlesen("Tore2")

            TextBoxFussballErgebnis.Text = FürFussballDatenbankEinlesen("Ergebnis")

            TextBoxFussballLiga.Text = FürFussballDatenbankEinlesen("Liga")

            FürFussballDatenbankEinlesen.Close()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

        FürFussballDatenbankVerbindung.Close()

    End Sub

 

    Private Sub ButtonFussballSuchenSpieltag_Click(sender As Object, e As EventArgs) Handles ButtonFussballSuchenSpieltag.Click

        Try

            FürFussballDatenbankVerbindung.Open()

            FürFussballDatenbankKommando.CommandText =

                "select * from FussballResultat where" &

                " Spieltag like '%" & TextBoxFussballSpieltag.Text & "%'"

            MessageBox.Show(FürFussballDatenbankKommando.CommandText)

            Ausgabe()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

        FürFussballDatenbankVerbindung.Close()

    End Sub

 

    Private Sub ButtonFussballSuchenSpielDatum_Click(sender As Object, e As EventArgs) Handles ButtonFussballSuchenSpielDatum.Click

        Try

            FürFussballDatenbankVerbindung.Open()

            FürFussballDatenbankKommando.CommandText =

                "select * from FussballResultat where" &

                " SpielDatum like '%" & TextBoxFussballSpielDatum.Text & "%'"

            MessageBox.Show(FürFussballDatenbankKommando.CommandText)

            Ausgabe()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

        FürFussballDatenbankVerbindung.Close()

    End Sub

 

    Private Sub ButtonFussballSuchenHeimTeam_Click(sender As Object, e As EventArgs) Handles ButtonFussballSuchenHeimTeam.Click

        Try

            FürFussballDatenbankVerbindung.Open()

            FürFussballDatenbankKommando.CommandText =

                "select * from FussballResultat where" &

                " HeimTeam like '%" & TextBoxFussballHeimTeam.Text & "%'"

            MessageBox.Show(FürFussballDatenbankKommando.CommandText)

            Ausgabe()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

        FürFussballDatenbankVerbindung.Close()

    End Sub

 

    Private Sub ButtonFussballSuchenAuswärtsTeam_Click(sender As Object, e As EventArgs) Handles ButtonFussballSuchenAuswärtsTeam.Click

        Try

            FürFussballDatenbankVerbindung.Open()

            FürFussballDatenbankKommando.CommandText =

                "select * from FussballResultat where" &

                " AuswärtsTeam like '%" & TextBoxFussballAuswärtsTeam.Text & "%'"

            MessageBox.Show(FürFussballDatenbankKommando.CommandText)

            Ausgabe()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

        FürFussballDatenbankVerbindung.Close()

    End Sub

 

    Private Sub ButtenFussballSuchenHeimTor_Click(sender As Object, e As EventArgs) Handles ButtenFussballSuchenHeimTor.Click

        Try

            FürFussballDatenbankVerbindung.Open()

            FürFussballDatenbankKommando.CommandText =

                "select * from FussballResultat where" &

                " HeimTor like '%" & TextBoxFussballHeimTor.Text & "%'"

            MessageBox.Show(FürFussballDatenbankKommando.CommandText)

            Ausgabe()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

        FürFussballDatenbankVerbindung.Close()

    End Sub

 

    Private Sub ButtonFussballSuchenAuswärtsTor_Click(sender As Object, e As EventArgs) Handles ButtonFussballSuchenAuswärtsTor.Click

        Try

            FürFussballDatenbankVerbindung.Open()

            FürFussballDatenbankKommando.CommandText =

                "select * from FussballResultat where" &

                " AuswärtsTor like '%" & TextBoxFussballAuswärtsTor.Text & "%'"

            MessageBox.Show(FürFussballDatenbankKommando.CommandText)

            Ausgabe()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

        FürFussballDatenbankVerbindung.Close()

    End Sub

 

    Private Sub ButtonFussballSuchenErgebnis_Click(sender As Object, e As EventArgs) Handles ButtonFussballSuchenErgebnis.Click

        Try

            FürFussballDatenbankVerbindung.Open()

            FürFussballDatenbankKommando.CommandText =

                "select * from FussballResultat where" &

                " Ergebnis like '%" & TextBoxFussballErgebnis.Text & "%'"

            MessageBox.Show(FürFussballDatenbankKommando.CommandText)

            Ausgabe()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

        FürFussballDatenbankVerbindung.Close()

    End Sub

 

    Private Sub ButtonFussballSuchenLiga_Click(sender As Object, e As EventArgs) Handles ButtonFussballSuchenLiga.Click

        Try

            FürFussballDatenbankVerbindung.Open()

            FürFussballDatenbankKommando.CommandText =

                "select * from FussballResultat where" &

                " Liga like '%" & TextBoxFussballLiga.Text & "%'"

            MessageBox.Show(FürFussballDatenbankKommando.CommandText)

            Ausgabe()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

        FürFussballDatenbankVerbindung.Close()

    End Sub

End Class