Imports System.Data
Imports System.Data.OleDb
 
Public Class Form1
 
    Private cn As New OleDbConnection
    Private da As New OleDbDataAdapter
    Private ds As New DataSet
    Dim pos As Integer
    Dim anz As Integer
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim erg As Integer
        erg = MessageBox.Show("Sollen Änderungen gespeichert werden?", _
          "Datenbankupdate", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If erg = Windows.Forms.DialogResult.Yes Then
 
            Dim cmdBld As New OleDbCommandBuilder
            cmdBld.DataAdapter = da
            da.UpdateCommand = cmdBld.GetUpdateCommand
            cn.Open()
            da.Update(ds, "MitarbeiterIntern")
            cn.Close()
 
 
        End If
 
    End Sub
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        With OpenFileDlg
            .Title = "Öffnen Firma-Datenbank"
            .InitialDirectory = "c:\temp"
            .Filter = "mdb-Datenbanken|*.mdb"
            .FileName = ""
            .ShowDialog()
 
 
        End With
 
        cn.ConnectionString = "Provider=Microsoft.Jet.OleDB.4.0; Data Source=" _
          & OpenFileDlg.FileName & ";"
        'cn.Open()
 
        Dim cmd As New OleDbCommand
        cmd.CommandText = "select * from mitarbeiter"
        cmd.Connection = cn
 
        da.SelectCommand = cmd
 
        cn.Open()
        anz = da.Fill(ds, "MitarbeiterIntern")
        cn.Close()
 
        textFelderFuellen()
    End Sub
 
    Private Sub TextFelderFuellen()
 
        With ds.Tables("MitarbeiterIntern").Rows(pos)
            txtVorname.Text = .Item("Vorname")
            txtNachname.Text = .Item("Nachname")
            txtGebDatum.Text = .Item("Geburtsdatum")
            chkTeilzeit.Checked = .Item("Teilzeit")
        End With
        txtAnzahl.Text = pos + 1 & " von " & anz
 
    End Sub
 
 
 
    Private Sub btnNachher_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnNachher.Click
 
        If pos < anz - 1 Then
            pos = pos + 1
            TextFelderFuellen()
        End If
 
    End Sub
 
    Private Sub btnErster_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnErster.Click
        pos = 0
        TextFelderFuellen()
    End Sub
 
    Private Sub btnLetzter_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnLetzter.Click
        pos = anz - 1
        TextFelderFuellen()
    End Sub
 
    Private Sub btnVorher_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnVorher.Click
        If pos > 0 Then
            pos = pos - 1
            TextFelderFuellen()
        End If
    End Sub
 
 
    Private Sub txtVorname_LostFocus(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles txtVorname.LostFocus, txtNachname.LostFocus, _
      txtGebDatum.LostFocus, txtAnzahl.LostFocus
 
        With ds.Tables("MitarbeiterIntern").Rows(pos)
            .Item("Vorname") = txtVorname.Text
            .Item("Nachname") = txtNachname.Text
            Try
                .Item("Geburtsdatum") = Date.Parse(txtGebDatum.Text)
            Catch exp As Exception
                MessageBox.Show("Datumsfehler: " & exp.Message)
            End Try
            .Item("Teilzeit") = chkTeilzeit.Checked
        End With
 
    End Sub
End Class