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é

Visual Studio 2010 ;)

Jaja die gute alte Schulzeit, lang ist es her und dennoch kommt es einen manchmal so vor als würde die Zeit, die man damals in der Schule verbracht hat reichen fürs Leben *lach*.

Spaß beiseite, im Augenblick hab ich bei der GPB-Berlin, dass Modul Visual Basic 2010 und muss sagen das hat es mir irgendwie angetan..

Freue mich auch sehr auf Woche Zwei :P und nein ich möchte immer noch kein FIAN werden *lach*.
Programmieren macht mir zwar sehr viel Spaß, aber den ganzen Tag hätte ich auch keine Lust darauf.

Jedenfalls hier ein Beispiel Quellcode aus ner Übung die ich Zuhause mache :).

#Texteinbindung in VB

Dim Aus() As String
        Aus = System.IO.File.ReadAllLines("aus.txt")

#Eine Select Case Anwendung

 Select Case CheckAus
            Case chkAus.Checked = False
        txtAus.Text = Aus((Rnd() * UBound(Aus)) + LBound(Aus))
        If txtAus.Text = "-" Then
            txtZustandAus.Text = "-"
            txtAnz3.Text = "-"

        Else

            txtZustandAus.Text = Zustand((Rnd() * UBound(Zustand)) + LBound(Zustand))
            txtAnz3.Text = AnzahlAus((Rnd() * UBound(AnzahlAus)) + LBound(AnzahlAus))
        End If
        End select


#Auffangen von Fehlern
Try

Catch ex As InvalidCastException
            MessageBox.Show("Fehler: Bitte Tragen sie den richtigen Wert ein!" & ex.Message)

        End Try




Gruß
René