Imports System
Imports System.Data
Imports System.Data.SqlClient
Module app
    Private Cn As SqlConnection
    Private Cmd As SqlCommand
    Private Dr As SqlDataReader
    Sub main()
 
        Dim sCn As String = "Server=(local);Database=Kleinformate;Integrated" & _
          "Security=SSPI"
        Dim Cn As New SqlConnection(sCn)
        Try
        Cn.Open()
        Cmd = New SqlCommand("Select * from Angebote", Cn) ' Angebote = Tabelle
        Dr = Cmd.ExecuteReader()
 
        While Dr.Read()
            Console.WriteLine(Dr.Item("BSH"))
        End While
        Catch ex As SqlException
            Console.WriteLine(ex.Message)
        Finally
            Cn.Close()
        End Try
            End Sub
 
End Module

 
  Public Sub speichern2()
 
        Me.Validate()
        Me.AngeboteBindingSource.EndEdit()
 
        Dim deletedOrders As KleinformateDataSet.AngeboteDataTable = CType( _
               KleinformateDataSet.Angebote.GetChanges( _
               Data.DataRowState.Deleted), _
               KleinformateDataSet.AngeboteDataTable)
 
        Dim newOrders As KleinformateDataSet.AngeboteDataTable = CType( _
            KleinformateDataSet.Angebote.GetChanges(Data.DataRowState.Added), _
            KleinformateDataSet.AngeboteDataTable)
 
        Dim modifiedOrders As KleinformateDataSet.AngeboteDataTable = CType( _
            KleinformateDataSet.Angebote.GetChanges( _
            Data.DataRowState.Modified), KleinformateDataSet.AngeboteDataTable)
 
 
        Try
            ' Remove all deleted orders from the Orders table.
            If Not deletedOrders Is Nothing Then
                AngeboteTableAdapter.Update(deletedOrders)
                MsgBox("deled")
            End If
 
            ' Update the Customers table.
 
            ' Add new orders to the Orders table.
            If Not newOrders Is Nothing Then
                AngeboteTableAdapter.Update(newOrders)
                MsgBox("add")
            End If
 
            ' Update all modified Orders.
            If Not modifiedOrders Is Nothing Then
                AngeboteTableAdapter.Update(modifiedOrders)
                MsgBox("modi")
            End If
 
            KleinformateDataSet.AcceptChanges()
        Catch ex As Exception
            MsgBox("Update fehlgeschlagen")
 
        Finally
            If Not deletedOrders Is Nothing Then
                deletedOrders.Dispose()
            End If
 
            If Not newOrders Is Nothing Then
                newOrders.Dispose()
            End If
 
            If Not modifiedOrders Is Nothing Then
                modifiedOrders.Dispose()
            End If
        End Try
 
    End Sub