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

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

...全文

66 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