d:/pegasus/e-books/compilers/studio.net/database/
http://www.nyvej.dk/mortensen
/
d:/pegasus/e-books/compilers/studio.net/database/

Filliste (Detail Page)

Use this page to view a single document on this web site.

d:\pegasus\e-books\compilers\studio.net\database\ado bindings.txt
http://www.nyvej.dk/mortensen/karaoke/d:/pegasus/e-books/compilers/studio.net/database/ado bindings.txt

    file size:  1.375 characters
 file created:  13. januar 2013  14:28:26
last modified:  1. oktober 2002  15:24:06

DOCUMENT CONTENTS

Example 8-8. Creating a DataSet and binding it to a Windows Forms
DataGrid
' Open a database connection.
Dim strConnection As String ="Data Source=localhost;Initial Catalog=Northwind;" & "Integrated Security=True"

Dim cn As SqlConnection = New SqlConnection(strConnection)
cn.Open( )

' Set up a data adapter object.
Dim strSql As String ="SELECT CustomerID, CompanyName, ContactName, Phone FROM Customers" _
& " WHERE City = 'Buenos Aires' AND Country = 'Argentina'"
Dim da As SqlDataAdapter = New SqlDataAdapter(strSql, cn)

' Load a data set.
Dim ds As DataSet = New DataSet( )
da.Fill(ds, "Customers")

' Set up a new data adapter object.
strSql = "SELECT Orders.OrderID, Orders.CustomerID, Orders.OrderDate," _
& " Orders.ShippedDate" _
& " FROM Customers, Orders" _
& " WHERE (Customers.CustomerID = Orders.CustomerID)" _
& " AND (Customers.City = 'Buenos Aires')" _
& " AND (Customers.Country = 'Argentina')"
da = New SqlDataAdapter(strSql, cn)
' Load the data set.
da.Fill(ds, "Orders")
' Close the database connection.
cn.Close( )

' Create a relation.
ds.Relations.Add("CustomerOrders", _
ds.Tables("Customers").Columns("CustomerID"), _
ds.Tables("Orders").Columns("CustomerID"))
' Bind the data set to a grid.
' Assumes that grid contains a reference to a
' System.WinForms.DataGrid object.
grd.SetDataBinding(ds, "Customers")

Erik Mortensen
21. december 2025 07:28:47