Dim strSQL as String = "SELECT * FROM authors" Dim strConnString as String strConnString = "Provider=SQLOLEDB; Data Source=(local); database=pubs; User ID=sa;pwd=" '创建对象ADOConnection Dim objConn as ADOConnection objConn = New ADOConnection '设置ADOCOnnection对象的连接串 objConn.ConnectionString = strConnString objConn.Open() '打开数据链路 '创建对象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") MyFirstDataGrid.DataSource = _ objDataset.Tables("Author Information").DefaultView MyFirstDataGrid.DataBind()
Dim strConnString as String
strConnString = "Provider=SQLOLEDB; Data Source=(local); database=pubs;
User ID=sa;pwd=" '创建对象ADOConnection
Dim objConn as ADOConnection
objConn = New ADOConnection '设置ADOCOnnection对象的连接串
objConn.ConnectionString = strConnString objConn.Open() '打开数据链路 '创建对象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")
MyFirstDataGrid.DataSource = _
objDataset.Tables("Author Information").DefaultView
MyFirstDataGrid.DataBind()