ASP.NET SQL Data Adapter 一次過 Fill 幾個 Table

 

   default.aspx.vb
 
   Private Sub Get_Multiple_Table()
 
      Dim connectionString1 As String = "Data Source=.\SqlExpress; Initial Catalog=Soccer; Integrated Security=SSPI"
      Dim con1 As SqlConnection = New SqlConnection(connectionString1)
      con1.Open()
 
      Dim sb As New StringBuilder
      sb.Append("SELECT * FROM Team;")
      sb.Append("SELECT * FROM Player;")
 
      Dim Adapter As New SqlDataAdapter(sb.ToString(), con1)
      Dim ds As New DataSet
 
      Adapter.Fill(ds)
 
      ds.Tables(0).TableName = "Team"
      ds.Tables(1).TableName = "Player"
 
      GridView1.DataSource = ds.Tables(0)
      GridView1.DataBind()
 
      GridView2.DataSource = ds.Tables(1)
      GridView2.DataBind()
 
      con1.Close()
      con1.Dispose()
 
   End Sub