<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.ADO" %><html>
<head></head><body>
<asp:datagrid id="DataGrid1" runat="server"/>
</body>
<html>
<Script Language="VB" RunAt="Server">
Sub Page_Load(Sender As Object,E As EventArgs)
Dim myConnection As ADOConnection
Dim myDSCommand As ADODataSetCommand
Dim myDataSet As New DataSet
Dim myConnStr As String="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" & _Server.MapPath("BookStore.mdb")
myDSCommand.FillDataSet(myDataSet,"Book")
DataGrid1.DataSource=myDataSet.Tables("Books").DefaultView
DataGrid1.DataBind()
End Sub
</Script>
<%@ Import NameSpace="System.Data.ADO" %><html>
<head></head><body>
<asp:datagrid id="DataGrid1" runat="server"/>
</body>
<html>
<Script Language="VB" RunAt="Server">
Sub Page_Load(Sender As Object,E As EventArgs)
Dim myConnection As ADOConnection
Dim myDSCommand As ADODataSetCommand
Dim myDataSet As New DataSet
Dim myConnStr As String="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" & _Server.MapPath("BookStore.mdb")
myDSCommand.FillDataSet(myDataSet,"Book")
DataGrid1.DataSource=myDataSet.Tables("Books").DefaultView
DataGrid1.DataBind()
End Sub
</Script>
改为<%@ Import NameSpace="System.Data.SqlClient" %>
命名空间中没有ADO;Dim myConnection As ADOConnection//看看这里!
改为Dim myConnection As sqlConnection
Dim myConnStr As String="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" &
_Server.MapPath("BookStore.mdb")
dim myDataSet As New DataSet
Dim myConnection As OleDbConnection = New OleDbConnection(myConnStr)
Dim adapter As New OleDbDataAdapter()
adapter.SelectCommand = new OleDbCommand("select * from....", myConnection )
adapter.Fill(myDataSet )
Dim myDSCommand As ADODataSetCommand
改成:
Dim myConnection As New ADOConnection
Dim myDSCommand As New ADODataSetCommand
因为代码中需要实例化