Imports System.Data.OleDb
Public Class DB_Komplett_Prog
    Dim oMyCon As New OleDbConnection
    Dim oMyCom As New OleDbCommand
    Dim oMyAdap As New OleDbDataAdapter
    Dim oMyDS As New DataSet
    Dim oMyBing As New BindingSource
 
    Private Sub DB_Komplett_Prog_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim sSQL As String = "SELECT * FROM Lieferanten;"
        AddHandler oMyBing.PositionChanged, AddressOf oMyBing_PositionChanged
 
        oMyCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=" & Glob_DB_Pfad
        oMyCom.Connection = oMyCon
        oMyCom.CommandText = sSQL
        oMyAdap.SelectCommand = oMyCom
        oMyCon.Open()
        oMyAdap.Fill(oMyDS, "Lieferanten")
        oMyAdap.FillSchema(oMyDS, SchemaType.Source, "Lieferanten")
        oMyCon.Close()
        oMyBing.DataSource = oMyDS.Tables("Lieferanten")
 
        Me.txtLieferantennummer.DataBindings.Add("Text", oMyBing, _
          "Lieferanten-Nr", False, DataSourceUpdateMode.OnValidation)
        Me.txtFirma.DataBindings.Add("Text", oMyBing, "Firma", False, _
        DataSourceUpdateMode.OnValidation)
        Me.txtKontaktperson.DataBindings.Add("Text", oMyBing, "Kontaktperson", _
        False, DataSourceUpdateMode.OnValidation)
        Me.txtPosition.DataBindings.Add("Text", oMyBing, "Position", False, _
        DataSourceUpdateMode.OnValidation)
        Me.txtStraße.DataBindings.Add("Text", oMyBing, "Straße", False, _
        DataSourceUpdateMode.OnValidation)
        Me.txtOrt.DataBindings.Add("Text", oMyBing, "Ort", False, _
        DataSourceUpdateMode.OnValidation)
        Me.txtRegion.DataBindings.Add("Text", oMyBing, "Region", False, _
        DataSourceUpdateMode.OnValidation)
        Me.txtPLZ.DataBindings.Add("Text", oMyBing, "PLZ", False, _
        DataSourceUpdateMode.OnValidation)
        Me.txtLand.DataBindings.Add("Text", oMyBing, "Land", False, _
        DataSourceUpdateMode.OnValidation)
        Me.txtTelefon.DataBindings.Add("Text", oMyBing, "Telefon", False, _
        DataSourceUpdateMode.OnValidation)
        Me.txtTelefax.DataBindings.Add("Text", oMyBing, "Telefax", False, _
        DataSourceUpdateMode.OnValidation)
        Me.txtHomepage.DataBindings.Add("Text", oMyBing, "Homepage", False, _
        DataSourceUpdateMode.OnValidation)
 
    End Sub
 
 
    Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdSave.Click
        Dim oMyBuid As New OleDbCommandBuilder(oMyAdap)
        oMyAdap.Update(oMyDS, "Lieferanten")
    End Sub
End Class