使用dataset读取数据库pubs中sales表中的所有行显示到datagrid表格中 1个DataGrid、1个ButtonImports System.Data.SqlClient Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cnstring As String = "server=itwang;database=pubs;trusted_connection=true" Dim cnpubs As New SqlConnection(cnstring) Dim cmdsales As New SqlDataAdapter("select * from sales", cnpubs) Dim dssales As New DataSet cmdsales.Fill(dssales, "sales") DataGrid1.DataSource = dssales.Tables("sales")End Sub