<%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.SqlClient" %><html> <script language="VB" runat="server"> Sub Page_Load(Src As Object, E As EventArgs) Dim DS As DataSet Dim MyConnection As SQLConnection Dim MyCommand As SQLCommand '同数据库进行连接,采用sql server数据库 MyConnection = New SQLConnection("server='QuitGame';uid=sa;pwd=sa;database=test") '执行SQL操作 MyCommand = New SQLCommand("select * from test_table",MyConnection) DS = New DataSet() MyCommand.FillDataSet(ds, "infor") MyDataGrid.DataSource=ds.Tables("infor").DefaultView MyDataGrid.DataBind() End Sub </script> <center> <body> <h3><font face="Verdana">Page_load事件演示</font></h3> <ASP:DataGrid id="MyDataGrid" runat="server" Width="600" BackColor="white" BorderColor="black" ShowFooter="false" CellPadding=3 CellSpacing="0" Font-Name="Verdana" Font-Size="8pt" HeaderStyle-BackColor="#aaaadd" MaintainState="false" /> /body> </center> </html>
<%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.SqlClient" %><html> <script language="VB" runat="server"> Sub Page_Load(Src As Object, E As EventArgs) Dim DS As DataSet Dim MyConnection As SQLConnection Dim objAdapter as SqlDataAdapter '同数据库进行连接,采用sql server数据库 MyConnection = New SQLConnection("server='QuitGame';uid=sa;pwd=sa;database=test") '执行SQL操作 MyConnection.open() string strSql ="select * from V_Student_TrvNodeGrade"; DS = New DataSet() dim objAdapter=new SqlDataAdapter(strSql,MyConnection); objAdapter.Fill(DS,"infor"); MyDataGrid.DataSource=ds.Tables("infor").DefaultView MyDataGrid.DataBind() End Sub </script> <center> <body> <h3><font face="Verdana">Page_load事件演示</font></h3> <ASP:DataGrid id="MyDataGrid" runat="server" Width="600" BackColor="white" BorderColor="black" ShowFooter="false" CellPadding=3 CellSpacing="0" Font-Name="Verdana" Font-Size="8pt" HeaderStyle-BackColor="#aaaadd" MaintainState="false" /> /body> </center> </html>
killer 写太多 C# 了,把 ; 放进去了。无论如何你可以试试这个:Sub Page_Load(Src As Object, E As EventArgs) Dim DS As DataSet Dim MyConnection As SQLConnection Dim objAdapter as SqlDataAdapter '同数据库进行连接,采用sql server数据库 MyConnection = New SQLConnection("server='QuitGame';uid=sa;pwd=sa;database=test") '执行SQL操作 MyConnection.open() DS = New DataSet() dim objAdapter=new SqlDataAdapter("select * from test_table",MyConnection) objAdapter.Fill(DS,"infor") MyDataGrid.DataSource=ds.Tables("infor").DefaultView MyDataGrid.DataBind() End Sub
改过后
未定义类型“SQLDataSetCommand”。
怎么办啊?
<%@ Import Namespace="System.Data.SqlClient" %><html>
<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
Dim DS As DataSet
Dim MyConnection As SQLConnection
Dim MyCommand As SQLCommand
'同数据库进行连接,采用sql server数据库
MyConnection = New SQLConnection("server='QuitGame';uid=sa;pwd=sa;database=test")
'执行SQL操作
MyCommand = New SQLCommand("select * from test_table",MyConnection)
DS = New DataSet()
MyCommand.FillDataSet(ds, "infor")
MyDataGrid.DataSource=ds.Tables("infor").DefaultView
MyDataGrid.DataBind()
End Sub
</script>
<center>
<body>
<h3><font face="Verdana">Page_load事件演示</font></h3>
<ASP:DataGrid id="MyDataGrid" runat="server"
Width="600"
BackColor="white"
BorderColor="black"
ShowFooter="false"
CellPadding=3
CellSpacing="0"
Font-Name="Verdana"
Font-Size="8pt"
HeaderStyle-BackColor="#aaaadd"
MaintainState="false"
/>
/body>
</center>
</html>
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<!--源文件:form\web页面简介\pagedata.aspx-->应该是这样了,手头没有.net环境
没法测试,呵呵
行 15: DS = New DataSet()
行 16: MyCommand.FillDataSet(ds, "infor")
行 17: MyDataGrid.DataSource=ds.Tables("infor").DefaultView
行 18: MyDataGrid.DataBind()
源文件: F:\Enter\myweb\NewWeb\testdb.aspx 行: 16
<%@ Import Namespace="System.Data.SqlClient" %><html>
<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
Dim DS As DataSet
Dim MyConnection As SQLConnection
Dim objAdapter as SqlDataAdapter
'同数据库进行连接,采用sql server数据库
MyConnection = New SQLConnection("server='QuitGame';uid=sa;pwd=sa;database=test")
'执行SQL操作
MyConnection.open()
string strSql ="select * from V_Student_TrvNodeGrade";
DS = New DataSet()
dim objAdapter=new SqlDataAdapter(strSql,MyConnection);
objAdapter.Fill(DS,"infor");
MyDataGrid.DataSource=ds.Tables("infor").DefaultView
MyDataGrid.DataBind()
End Sub
</script>
<center>
<body>
<h3><font face="Verdana">Page_load事件演示</font></h3>
<ASP:DataGrid id="MyDataGrid" runat="server"
Width="600"
BackColor="white"
BorderColor="black"
ShowFooter="false"
CellPadding=3
CellSpacing="0"
Font-Name="Verdana"
Font-Size="8pt"
HeaderStyle-BackColor="#aaaadd"
MaintainState="false"
/>
/body>
</center>
</html>
--------------------------------------------------------------------------------未将对象引用设置到对象的实例。
说明: 执行当前 Web 请求期间,出现未处理的异常。请检查堆栈跟踪信息,以了解有关该错误以及代码中导致错误的出处的详细信息。 异常详细信息: System.NullReferenceException: 未将对象引用设置到对象的实例。源错误: 生成此未处理异常的源代码只能在调试模式中进行编译时显示。若要启用该功能,请执行以下步骤之一,然后请求 URL:1. 在生成错误的文件的顶部添加一个“Debug=true”指令。示例: <%@ Page Language="C#" Debug="true" %>或者:2. 将以下节添加到应用程序的配置文件中:<configuration>
<system.web>
<compilation debug="true"/>
</system.web>
</configuration>请注意,第二种方法将使给定应用程序中的所有文件在调试模式下进行编译。第一种方法只使特定文件在调试模式下进行编译。重要事项:以调试模式运行应用程序肯定会引起内存/性能系统开销。在部署到产品方案中之前,应该确保应用程序已禁用调试。
Dim DS As DataSet
Dim MyConnection As SQLConnection
Dim objAdapter as SqlDataAdapter
'同数据库进行连接,采用sql server数据库
MyConnection = New SQLConnection("server='QuitGame';uid=sa;pwd=sa;database=test")
'执行SQL操作
MyConnection.open()
DS = New DataSet()
dim objAdapter=new SqlDataAdapter("select * from test_table",MyConnection)
objAdapter.Fill(DS,"infor")
MyDataGrid.DataSource=ds.Tables("infor").DefaultView
MyDataGrid.DataBind()
End Sub
异常详细信息: System.NullReferenceException
...是说明你可以在 aspx 页面的 @Page 里加上 debug="true",那将可以出示更详细的错误讯息。不过记得在测试完后去除 debug="true",以免影响 Performance。
我刚刚学这东西第一个程序联上了数据库,真的很有成就感啊!!!哈哈,解决了,baibai !