Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Windows.Forms
Imports System.IO
 
Partial Public Class Form5
    Inherits Form
    Private CustomersDataGridView As New DataGridView()
    Private OrdersDataGridView As New DataGridView()
    Private orderDetailsDatagridview As New DataGridView()
    Private customersBindingSource As New BindingSource()
    Private ordersBindingSource As New BindingSource()
    Private orderDetailsBindingSource As New BindingSource()
    <STAThreadAttribute()> _
Public Shared Sub Main()
        Application.Run(New Form5())
    End Sub
 
    Public Sub New()
        InitializeComponent()
    End Sub
    Private Sub Form5_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle "NWDS.Orders". Sie 
        ' können sie bei Bedarf verschieben oder entfernen.
        Me.OrdersTableAdapter.Fill(Me.NWDS.Orders)
        'TODO: Diese Codezeile lädt Daten in die Tabelle "NWDS.Order_Details". 
        ' Sie können sie bei Bedarf verschieben oder entfernen.
        Me.Order_DetailsTableAdapter.Fill(Me.NWDS.Order_Details)
        'TODO: Diese Codezeile lädt Daten in die Tabelle "NWDS.Customers". Sie 
        ' können sie bei Bedarf verschieben oder entfernen.
        Me.CustomersTableAdapter.Fill(Me.NWDS.Customers)
 
        GetData()
        CustomersDataGridView.DataSource = customersBindingSource
        OrdersDataGridView.DataSource = ordersBindingSource
        orderDetailsDatagridview.DataSource = orderDetailsBindingSource
    End Sub
    Private Sub GetData()
        ''Dim reader As New StreamReader("data.xml")
        ''data.ReadXml(reader)
        'CustomersTableAdapter.Fill(Me.NWDS.Customers)
 
        ' '' Add data from the Orders table to the DataSet.
        ''Dim OrdersDataAdapter As New SqlDataAdapter("select * from Orders", _
          connection)
        'OrdersTableAdapter.Fill(Me.NWDS.Orders)
 
        ' '' Add data from the Orders table to the DataSet.
        ''Dim DetailsDataAdapter As New SqlDataAdapter("select * from [Order" & _
          "Details]", connection)
        'Order_DetailsTableAdapter.Fill(Me.NWDS.Order_Details)
        ' Establish a relationship between the Customers and the Orders table. 
        Dim customersOrdersRelation As New DataRelation("CustomersOrders", _
        Me.NWDS.Tables("Customers").Columns("CustomerID"), _
       Me.NWDS.Tables("Orders").Columns("CustomerID"))
        'AUCH HIER DAS PROBLEM AN DER GLEICHEN STELLE
        Me.NWDS.Relations.Add(customersOrdersRelation)
        ' Establish a reltaionship between the Orders and Order Details table. 
        Dim ordersProductsRelation As New DataRelation("OrdersOrderDetails", _
        Me.NWDS.Tables("Orders").Columns("OrderID"), _
        Me.NWDS.Tables("Order Details").Columns("OrderID"))
        Me.NWDS.Relations.Add(ordersProductsRelation)
        ' Bind the master data connector to the Customers table. 
        customersBindingSource.DataSource = Me.NWDS
        customersBindingSource.DataMember = "Customers"
        ' Bind the details data connector to the master data connector, 
        ' using the DataRelation name to filter the information in the 
        ' details table based on the current row in the master table. 
        ordersBindingSource.DataSource = customersBindingSource
        ordersBindingSource.DataMember = "CustomersOrders"
        orderDetailsBindingSource.DataSource = ordersBindingSource
        orderDetailsBindingSource.DataMember = "OrdersOrderDetails"
    End Sub
 
    Private Sub CustomersBindingSource1BindingNavigatorSaveItem_Click(ByVal _
      sender As System.Object, ByVal e As System.EventArgs) Handles _
      CustomersBindingSource1BindingNavigatorSaveItem.Click
        Me.Validate()
        Me.CustomersBindingSource1.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.NWDS)
 
    End Sub
End Class