Dim myConnection As SqlConnection
Dim myDataAdapter As SqlDataAdapter
Dim myDataSet As DataSet
Dim myDataTable As DataTable
Dim Publisher As DataRow
Dim Title As DataRow
myConnection = New SqlConnection( "server=localhost;uid=sa;pwd=secret;database=P ubs" )
myDataSet = New DataSet()
myDataAdapter = New SQLDataAdapter( "Select * From Publishers", myConnection )
myDataAdapter.Fill( myDataSet, "Publishers" )
myDataAdapter.SelectCommand = New SqlCommand( "Select * From Titles", myConnection )
myDataAdapter.Fill( myDataSet, "Titles" )
myDataSet.Relations.Add( "PubTitles", myDataSet.Tables( "Publishers" ).Columns( "pub_id" ), myDataSet.Tables( "Titles" ).Columns( "pub_id" ) )
For Each Publisher in myDataSet.Tables( "Publishers" ).Rows
Response.Write( "<p>" & Publisher( "pub_name" ) & ":" )
For Each Title In Publisher.GetChildRows( "PubTitles" )
Response.Write("<li>" & Title( "title" ) )
Next
Next
|