| Forum: VB.NET |
Thema:
Re: DataGrid |
Von:
Armin Stockner (
05.04.2006 10:20) |
Hier ein gutes Beispiel. Es werden 3 Tabellen verwendet und dargestellt, gleichzeitig setzt man noch die Relations um Verbindungen zwischen den einzelnen Tabellen herzustellen.
Private mNorthwindDataSet As DataSet
Private mConn As SqlConnection
Private mCmdCust As SqlCommand
Private connString As String = "Server=(local)\sqlexpress;DataBase=Northwind;Integrated Security=true"
Private mDaCust As SqlDataAdapter
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
mConn = New SqlConnection(connString)
mCmdCust = New SqlCommand("Select * from Customers", mConn)
mDaCust = New SqlDataAdapter(mCmdCust)
Dim cmdOrders As New SqlCommand("Select * from orders", mConn)
Dim daOrders As New SqlDataAdapter(cmdOrders)
Dim cmdOrderDet As New SqlCommand("Select * from [Order Details]", mConn)
Dim daOrderDet As New SqlDataAdapter(cmdOrderDet)
mNorthwindDataSet = New DataSet("Northwind")
mDaCust.Fill(mNorthwindDataSet, "Kunden")
daOrders.Fill(mNorthwindDataSet, "Bestellungen")
daOrderDet.Fill(mNorthwindDataSet, "BestellDetails")
'Daten Relationen aufbauen
Dim drCustOrders As New DataRelation("KundenBestellungen", mNorthwindDataSet.Tables("Kunden").Columns("CustomerID"), mNorthwindDataSet.Tables("Bestellungen").Columns("CustomerId"))
mNorthwindDataSet.Relations.Add(drCustOrders)
Dim drOrderDetails As New DataRelation("BestellungsDetails", mNorthwindDataSet.Tables("Bestellungen").Columns("OrderId"), mNorthwindDataSet.Tables("BestellDetails").Columns("OrderId"))
mNorthwindDataSet.Relations.Add(drOrderDetails)
DataGrid1.DataSource = mNorthwindDataSet
Armin Stockner
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
