这错误怎么改？ 高分求教！

kld3000 2003-05-20 09:55:57
代码如下：
<%@ Import Namespace="System.Data.OLEDB" %>
<%@ Import Namespace="System.Data" %>
<%@ Page Language=VB Debug=true %>
<HTML>
<HEAD>
<TITLE>Editing Rows from a DataGrid Control</TITLE>
<script runat="server">

Dim DBConnectionString As String = ConfigurationSettings.AppSettings("OleDbConnectionString")
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Not IsPostBack Then
BuildDataList
End If
End Sub
Sub Edit_Grid(sender As Object, e As DataGridCommandEventArgs)
dgEmps.EditItemIndex = e.Item.ItemIndex
BuildDataList
End Sub

Sub Update_Grid(ByVal Sender as Object, ByVal E as DataGridCommandEventArgs)
Dim theID as String
Dim classname as string
Dim studentname as string
dim username as string
theID = E.Item.Cells(3).Text
userName = CType(e.Item.Cells(0).Controls(0), TextBox).Text
studentName = CType(e.Item.Cells(2).Controls(0), TextBox).Text
className = CType(e.Item.Cells(1).Controls(0), TextBox).Text
Dim DBConn as OleDbConnection
Dim DBUpdate As New OleDbCommand
DBConn = New OleDbConnection(DBConnectionString)
DBUpdate.CommandText = "Update stuclass " _
& "Set username = '" & username &"', " _
& "className = '" & className & "' " _
& "studentName = '" & studentName & "' " _
& "Where userID = " & theID
DBUpdate.Connection = DBConn
DBUpdate.Connection.Open
DBUpdate.ExecuteNonQuery()
DBConn.Close
dgEmps.EditItemIndex = -1
BuildDataList
End Sub
Sub BuildDataList ()
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection( DBConnectionString)
DBCommand = New OleDbDataAdapter _
("Select * From stuclassinfo where classid = " _
& "Request.QueryString("classid"), " _
& "Order By username", DBConn)
DBCommand.Fill(DSPageData, _
"stuandclass")
dgEmps.DataSource = _
DSPageData.Tables("stuandclass").DefaultView
dgEmps.DataBind()
End Sub

</script>
</HEAD>
<Body LEFTMARGIN="40">
<form runat="server" ID="Form1">
<FONT face="宋体"></FONT><FONT face="宋体"></FONT><FONT face="宋体"></FONT><FONT face="宋体">
</FONT><FONT face="宋体"></FONT>
<BR>
<BR>
<asp:Label id="lblMessage" runat="server" />
<BR>
<BR>
<asp:datagrid id="dgEmps" runat="server" autogeneratecolumns="False" oneditcommand="Edit_Grid" onupdatecommand="Update_Grid">
<Columns>
<asp:BoundColumn DataField="username" HeaderText="学号"></asp:BoundColumn>
<asp:BoundColumn DataField="classname" HeaderText="班级"></asp:BoundColumn>
<asp:BoundColumn DataField="studentname" HeaderText="姓名"></asp:BoundColumn>
<asp:BoundColumn DataField="userid" visible="False"></asp:BoundColumn>
<asp:EditCommandColumn ButtonType="LinkButton" UpdateText="Update" HeaderText="Edit" itemstyle-wrap="false" headerStyle-wrap="false" EditText="Edit" />
</Columns>
</asp:datagrid>
</form>
</Body>
</HTML>





错误信息：

编译错误
说明: 在编译向该请求提供服务所需资源的过程中出现错误。请检查下列特定错误详细信息并适当地修改源代码。

编译器错误信息: BC30004: 字符常数必须正好包含一个字符。

源错误:



行 49： DBCommand = New OleDbDataAdapter _
行 50： ("Select * From stuclassinfo where classid = " _
行 51： & "Request.QueryString("classid"), " _
行 52： & "Order By username", DBConn)
行 53： DBCommand.Fill(DSPageData, _


源文件: C:\Inetpub\wwwroot\newnewos\stuinfomanage\qwe.aspx 行: 51

...全文
125 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
qiangsheng 2003-05-21
  • 打赏
  • 举报
 回复
天啊？还要我再等20天？
kld3000 2003-05-20
  • 打赏
  • 举报
 回复
已经解决了

五百个小时之后结贴
yinson 2003-05-20
  • 打赏
  • 举报
 回复
可 SQL语句出错
DBCommand = New OleDbDataAdapter("Select * From stuclassinfo where classid = " & Request.QueryString("classid") & " Order By username", DBConn)
cmsoft 2003-05-20
  • 打赏
  • 举报
 回复
DBCommand = New OleDbDataAdapter("Select * From stuclassinfo where classid ="&Request.QueryString("classid")&" Order By username", DBConn)
chsfly 2003-05-20
  • 打赏
  • 举报
 回复
DBCommand = New OleDbDataAdapter _
行 50： (" Select * From stuclassinfo where classid = " _
行 51： & "Request.QueryString("classid"),+ " _
行 52： & " Order By username ", DBConn)
暗石绿 2003-05-20
  • 打赏
  • 举报
 回复
("Select * From stuclassinfo where classid = ' "&Request.QueryString("classid")&"' _
& "Order By username", DBConn)
qiangsheng 2003-05-20
  • 打赏
  • 举报
 回复
行 51： & "Request.QueryString("classid"), " _
多了一个逗号吧---------------------------------------^
xrll 2003-05-20
  • 打赏
  • 举报
 回复
在c#中：
("Select * From stuclassinfo where classid = "+Request.QueryString["classid"]+ "Order By username", DBConn）
AI算力时代的先进封装：Chiplet、HBM与异构集成的产业机会.docx
AI算力时代的先进封装：Chiplet、HBM与异构集成的产业机会
JavaWeb程序设计作业答案.rar
源码下载地址： https://pan.quark.cn/s/8d2c461c797c JavaWeb程序设计构成了掌握Web交互式应用程序开发的核心领域，对于初学者来说，精通这一技术具有决定性意义。在“JavaWeb程序设计（第三版）作业答案”中，我们可以预期获得针对该教材习题的一系列深入解析，从而协助学习者强化知识体系。 JavaWeb所包含的技术组件涵盖了Servlet、JSP（JavaServer Pages）、JDBC（Java Database Connectivity）以及各类框架如Spring MVC、Struts等。Servlet是Java平台提供的一种扩展服务器功能的接口，能够处理HTTP请求并生成相应的反馈。JSP则是一种用于构建动态网页的工具，它支持开发者将HTML代码与Java代码进行整合编写，从而简化了Web应用程序的开发流程。 作业答案通常会涉及以下几个核心内容： 1. **Servlet基础**：可能包含Servlet生命周期、init(), service(), destroy()方法的应用，以及如何在web.xml文件中设定Servlet的映射关系。 2. **JSP基础**：JSP的九大内置对象，如request、response、session、application等的使用，以及EL（Expression Language）和JSTL（JavaServer Pages Standard Tag Library）的实际操作。 3. **HTTP协议理解**：GET和POST请求方法的差异，请求头与响应头的应用，以及会话管理的概念阐释。 4. **JDBC数据库操作**：与数据库建立连接，执行SQL指令，处理查询结果集，以及...
斐讯K2固件合集-下载即用.zip
源码链接： https://pan.quark.cn/s/a4b39357ea24 斐讯K2是一款广受用户青睐的无线路由器，其运行表现稳定且具备较高的可操作性，在DIY爱好者群体中拥有极高的声誉。本资料将系统性地阐述斐讯K2的固件刷机方法及其关联的技术要点。固件升级是路由器爱好者改善设备性能、扩展功能的一种普遍手段，经由替换出厂固件，能够达成更加个性化的网络配置、增强安全防护等目标。斐讯K2固件资源库涵盖了多种知名的非官方固件，诸如Tomato Pheonix 不死鸟、高恪、PandoraBox 潘多拉等，这些固件均具备独特的优势，能够适配不同用户的需求。 1. Tomato Pheonix 不死鸟：Tomato是一款立足于Linux的开源固件，以其精巧、高效而备受推崇。不死鸟版本是专门为华硕及斐讯路由器优化的分支，提供了卓越的QoS（服务质量）配置、详尽的图表监控以及便捷的固件升级途径。对于那些需要精准调控带宽和监测网络状态的用户而言，这是一个理想的选项。 2. 高恪：高恪固件是OpenWrt的定制化版本，着重于操作的便捷性和运行的可靠性，特别适合对路由器操作不甚熟悉的用户群体。它提供了一些实用的功能，例如内置的广告屏蔽、快速测速工具等，同时保留了OpenWrt的适应性。 3. PandoraBox 潘多拉：潘多拉盒是另一款基于OpenWrt的固件，它以丰富的插件库和强大的自定义潜力而闻名。用户能够依据个人需求安装各类插件，实现更多功能，如远程接入、DDNS（动态域名解析服务）等。 4. 官方固件的纯净版本与定制版本：官方固件通常更侧重于稳定性，纯净版意味着未预置额外的应用或服务，适合注重稳定性的用户。定制版则可能包含了制造商的特色功能或优...
docker use CMD or ENTRYPOINT to start multiple services simultaneously
源码下载地址： https://pan.quark.cn/s/a4b39357ea24 在django框架中集成了celery功能，针对在启动django应用程序时如何使celery服务同步运行的问题，可通过ENTRYPOINT指令来实现启动。具体步骤如下：一、创建Dockerfile文件，基础镜像选用centos:7版本，执行localedef命令配置中文语言环境，设置环境变量LC_ALL为zh_CN.UTF-8，将项目代码复制到指定目录，并赋予运行脚本执行权限，最后安装项目所需依赖包。$ FROM centos:7 $ RUN localedef -c -f UTF-8 -i zh_CN zh_CN.utf8 $ ENV LC_ALL zh_CN.UTF-8 $ COPY ./hrms $CODE_DIR/hrms/ $ COPY ./run $CODE_DIR/run/ $ RUN chmod a+x $CODE_DIR/run/* $ RUN pip3 install -r $CODE_DIR/hrms/requirements.txt
资料辅助存档助手v1.3.1
1. 分组解析不再生成.txt文件，Excel文件复用性提升； 2. 汇总表生成自动过滤理论成绩与质量实训成绩，变更次日签到状态； 3. 收费表支持后续签到人员信息增量追加，保留已手动补充人员的信息； 4. 输入框均保留上一次输入过的历史记录，统一按钮样式； 5. 右键菜单支持多种配色风格自由切换。
.NET社区

62,269

社区成员

668,981

社区内容

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见，支持健康理性的辩论和互动，反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧

+ 用AI写文章