Dataset有一个缺省的 Dataview,下面我们就把它和 Datagrid绑定 My First Data Grid DataSource objDataset. Tables("Author Information"). DefaultView MyFirst Data Grid Databind( 324完整的代码 (code\122301. aspx) %( Import Namespace="System. Data"%> <% Import Namespace="System. Data ADO"%> 设置连接串 Dim str ConnString as String strConnString="Provider=SQLOLEDB; Data Source=(local); " lbs: User Id=sa 创建对象 ADOConnection Dim obj Conn as ADOConnection b j Conn= New AdOConnection 设置 ADOCOnnection对象的连接串 objConn. Connection String=strConnString obj Conn. Open("打开数据链路 创建SQL字符串 Dim strSQL as String="SELECT* FROM authors 创建对象 ADODataset Command和 Dataset Dim objDSCommand as ADODataset Command Dim ob Dataset as Dataset=New Dataset objDS Command= New ADODataset Command(strSQL, obj Conn) 填充数据到 Dataset 并将数据集合命名为" Author information" obj DS Command. Fill DataSet(objDataset, "Author Information") obj Conn. Close‘关闭数据链路 obj Conn= Nothing·清除对象Dataset 有一个缺省的 Dataview，下面我们就把它和 DataGrid 绑定： MyFirstDataGrid.DataSource = _ objDataset.Tables("Author Information").DefaultView MyFirstDataGrid.DataBind() 3.2.4 完整的代码 (code\122301.aspx) <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.ADO" %> <% '设置连接串... Dim strConnString as String strConnString = "Provider=SQLOLEDB; Data Source=(local); " & _ "Initial Catalog=pubs; User ID=sa" '创建对象 ADOConnection Dim objConn as ADOConnection objConn = New ADOConnection '设置 ADOCOnnection 对象的连接串 objConn.ConnectionString = strConnString objConn.Open() '打开数据链路 '创建 SQL 字符串 Dim strSQL as String = "SELECT * FROM authors" '创建对象 ADODatasetCommand 和 Dataset Dim objDSCommand as ADODatasetCommand Dim objDataset as Dataset = New Dataset objDSCommand = New ADODatasetCommand(strSQL, objConn) '填充数据到 Dataset '并将数据集合命名为 "Author Information" objDSCommand.FillDataSet(objDataset, "Author Information") objConn.Close() '关闭数据链路 objConn = Nothing '清除对象