Imports System.Data.SqlClient
Public Class frmBenutzer
 
'---------------------------------------------------------------------------
  Dim strSQL As String = "SELECT Benutzer, Nachname, Vorname, EMail, Gruppe," & _
    "Niederlassung FROM Benutzer"
 
  Dim coConnection As New SqlConnection(mfrmHaupt.strConnStr)
  Dim daAdapter As SqlDataAdapter = Nothing
  Dim dsDataSet As DataSet = Nothing
 
'---------------------------------------------------------------------------
 
  Private Sub frmBenutzer_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
 
    Try
      Me.DataGridView1.DataSource = Nothing
      dsDataSet = getDaten()
      Me.DataGridView1.DataSource = dsDataSet
      Me.DataGridView1.DataMember = "Benutzer"
    Catch ex As Exception
      MsgBox(Me.Name & " - frmBenutzer_Load - " & ex.Message, _
        MsgBoxStyle.Exclamation)
      Exit Sub
    End Try
 
  End Sub
 
'---------------------------------------------------------------------------
 
  Public Function getDaten() As DataSet
 
    daAdapter = New SqlDataAdapter(strSQL, coConnection)
    daAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
 
    coConnection.Open()
    Dim dsDataSet As New DataSet()
    daAdapter.Fill(dsDataSet, "Benutzer")
    coConnection.Close()
    Return dsDataSet
 
  End Function
 
'---------------------------------------------------------------------------
 
  Private Sub SpeichernToolStripButton_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles SpeichernToolStripButton.Click
 
    Dim dsDataset1 As DataSet = dsDataSet.GetChanges()
    If dsDataset1 IsNot Nothing Then
      Try
        setDaten(dsDataset1)
        dsDataSet.Merge(dsDataset1)
        dsDataSet.AcceptChanges()
      Catch ex As Exception
        dsDataSet.RejectChanges()
        MessageBox.Show(ex.Message, "Fehler")
      End Try
    End If
 
  End Sub
 
'---------------------------------------------------------------------------
 
  Public Sub setDaten(ByRef dsDataset As DataSet)
 
    Dim cmdBuilder As New SqlCommandBuilder(daAdapter)
    coConnection.Open()
    daAdapter.Update(dsDataset, "Benutzer")
    coConnection.Close()
 
  End Sub