Visual Basic 2011 Part

Heio ich bins mal wieder,

diese Woche haben wir den zweiten Zeil des VB 2010 Moduls, was morgen in einer Klausur enden wird.
Bin gespannt um was für ein Themeninhalt sich die Fragen drehen werden.

Bsp. Quellcode zu Datenbanken

Imports System.Data.OleDb
Public Class Form1

    Private Sub btnAlleAnzeigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAlleAnzeigen.Click

        Dim con As New OleDbConnection
        Dim cmd As New OleDbCommand
        Dim reader As OleDbDataReader



        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &
            "Data Source=c:\\db\firma.mdb"
        cmd.Connection = con
        cmd.CommandText = "Select * From personen"

        Try

            con.Open()
            reader = cmd.ExecuteReader()
            lstBox1.Items.Clear()

            Do While reader.Read()
                lstBox1.Items.Add(
                    reader("name") & "  " &
                       reader("vorname") & "  " &
                           reader("personalnummer") & "  " &
                           reader("gehalt") & "  " &
                           reader("geburtstag"))
               
            Loop


            reader.Close()
            con.Close()

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


    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

        Dim con As New OleDbConnection
        Dim cmd As New OleDbCommand
        Dim anzahl As Integer


        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &
            "Data Source=c:\\db\firma.mdb"
        cmd.Connection = con
        cmd.CommandText = "insert into personen values('" &
        txtName.Text & "','" & txtVorname.Text & "','" & txtPersNr.Text & "','" &
        txtGehalt.Text & "','" & txtBday.Text & "')"

        Try

            con.Open()

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

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

Dies wars auch schon wieder, leider mal ein kurzer Post.

Viele Grüße
René