在vb.net中,我把下面这段代码拷贝到webfom1.aspx中的html运行,他提示ADOCOnnection未定义,若在webfom1.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 '清除对象
Authors.DataSource = _
objDataset.Tables("Author Information").DefaultView
Authors.DataBind()%><HTML>
<BODY>
<asp:DataGrid id="Authors" runat="server"/>
</BODY>
</HTML>
<%@ 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 '清除对象
Authors.DataSource = _
objDataset.Tables("Author Information").DefaultView
Authors.DataBind()%><HTML>
<BODY>
<asp:DataGrid id="Authors" runat="server"/>
</BODY>
</HTML>
解决方案 »
- VS2005查找时为什么不能按文件夹查找了,非常不方便
- ASP.NET页面之间传值问题(急!!!)
- 一条sql语句,大家来帮帮。
- model 里的问题
- AspNetPager 6.0.0 for Visual Studio 2005 预览版发布
- DIV中有滚动条,怎么在刷新后回到先前的位置?
- 急!马上给分!动态生成的DIV为什么会被其他控件盖住?怎么样可以使DIV始终显示在最上层?
- ◆◆◆ 邮件列表 怎么做啊,苦不堪言,请教......◆◆◆
- 为什么SqlServer下输入项不能超过7项??
- iframe的问题
- 怎样将数据表中的记录输入到指定的Excel文件中
- 能不能通过第几周得到这周的日期范围
Dim objDSCommand as ADODatasetCommand
objDSCommand = New ADODatasetCommand(strSQL, objConn)
都应改为:
--------->sqlserver
Dim objDSCommand as sqlCommand
objDSCommand = New sqlCommand(strSQL, objConn)
-------->Access
Dim objDSCommand as oledbCommand
objDSCommand = New oledbCommand(strSQL, objConn)