Imports System.Data.SqlClient ’引用SqlClient命名空间 Public Class Form1 Const Connection String As String = "integrated security=sspi;initial catalog=Pubs; data source=(local)" ’定义连接字符串 Private Sub Button1_Click(By Val sender As Object, By Val e As System.EventArgs) Handles Button1.Click Dim cn As New SqlConnection (Connection String) Cn. Open() ’建立同数据库的连接 Dim ds As New Dataset("Book Sales") ’创建Dataset对象 Dim Titles Table As New Data Table("Titles") ds.Tables.Add(Titles Table) ’创建Data Table对象(Titles表),加入Dataset Dim GetTitlesString As String = "Select * From Titles" Dim da As New SqlDataAdapter(GetTitlesString, cn) da.Fill(Titles Table) ’填充Data Table da.Dispose() Dim Sales Table As New Data Table("Sales") ds.Tables.Add(Sales Table) Dim GetSalesString As String = "Select * From Sales" da = New SqlDataAdapter(GetSalesString, cn) da.Fill(Sales Table) ’创建并填充Sales表 da.Dispose() cn.Close() Dim relation As New Data Relation("Title Sales", TitlesTable.Columns("title_id"),SalesTable.Columns("title_id")) ds.Relations.Add(relation) 根据title_id列建立两个表的关联 DataGrid1.DataSource = ds 将DataGrid1绑定到Dataset对象(即ds) End Sub End Class |