hemingsheng 发布留言 2008-6-17 16:36
有没有人遇见过此类问题?
此 SqlParameterCollection 中未包含带有 ParameterName“studentno”的 SqlParameter。
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。
异常详细信息: System.IndexOutOfRangeException: 此 SqlParameterCollection 中未包含带有 ParameterName“studentno”的 SqlParameter。
有谁遇见过类似的问题吗?
怎么解决??
小乌龟 发布留言 2008-6-17 16:45
说的很清楚了。 参数集里面缺少studentno这个东东
hemingsheng 发布留言 2008-6-17 17:10
回复 2# 小乌龟 的帖子
源码:
Imports System.Data
Imports System.Data.SqlClient
Public Class Insert
Inherits System.Web.UI.Page
#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。
Private Sub InitializeComponent()
Me.connstu = New System.Data.SqlClient.SqlConnection
Me.cmdstu = New System.Data.SqlClient.SqlCommand
Me.cmdstu1 = New System.Data.SqlClient.SqlCommand
'
'connstu
'
Me.connstu.ConnectionString = "workstation id=jf609;packet size=4096;integrated security=SSPI;data source=""."";pe" & _
"rsist security info=False;initial catalog=StudentsMS"
'
'cmdstu
'
Me.cmdstu.CommandText = "SELECT studentno FROM Rota WHERE (studentno = ?)"
Me.cmdstu.Connection = Me.connstu
Me.cmdstu.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.VarChar, 8, "studentno"))
'
'cmdstu1
'
Me.cmdstu1.CommandText = "INSERT INTO Rota (studentno, name, sex, birthdate, specialty) VALUES (?, ?, ?, ?," & _
" ?)"
Me.cmdstu1.Connection = Me.connstu
Me.cmdstu1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.VarChar, 8, "studentno"))
Me.cmdstu1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param2", System.Data.SqlDbType.VarChar, 6, "name"))
Me.cmdstu1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param3", System.Data.SqlDbType.VarChar, 2, "rthdate"))
Me.cmdstu1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param5", System.Data.SqlDbType.VarChar, 50, "specialtysex"))
Me.cmdstu1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param4", System.Data.SqlDbType.DateTime, 8, "bi"))
End Sub
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents HyperLink1 As System.Web.UI.WebControls.HyperLink
Protected WithEvents Label2 As System.Web.UI.WebControls.Label
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
Protected WithEvents RFV1 As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents Label3 As System.Web.UI.WebControls.Label
Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
Protected WithEvents Label4 As System.Web.UI.WebControls.Label
Protected WithEvents RadioButtonList1 As System.Web.UI.WebControls.RadioButtonList
Protected WithEvents Label5 As System.Web.UI.WebControls.Label
Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox
Protected WithEvents Label6 As System.Web.UI.WebControls.Label
Protected WithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents CompareValidator1 As System.Web.UI.WebControls.CompareValidator
Protected WithEvents Label7 As System.Web.UI.WebControls.Label
Protected WithEvents connstu As System.Data.SqlClient.SqlConnection
Protected WithEvents cmdstu As System.Data.SqlClient.SqlCommand
Protected WithEvents cmdstu1 As System.Data.SqlClient.SqlCommand
'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
HyperLink1.NavigateUrl = "Index.aspx"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
connstu.Open()
cmdstu.Parameters("studentno").Value = TextBox1.Text
Dim rdstu As System.Data.SqlClient.SqlDataReader = cmdstu.ExecuteReader
If rdstu.Read Then
Label7.Text = ""
rdstu.Close()
Else
rdstu.Close()
With cmdstu1
.Parameters("studentno").Value = TextBox1.Text
.Parameters("name").Value = TextBox2.Text
.Parameters("sex").Value = RadioButtonList1.SelectedValue
.Parameters("birthdate").Value = TextBox3.Text
.Parameters("speciality").Value = DropDownList1.SelectedValue
Dim n As Integer = .ExecuteNonQuery
If n > 0 Then
Label7.Text = ""
End If
End With
End If
End Sub
End Class
红色部分不是已经表示已经有了这个参数吗?????
[ 本帖最后由 hemingsheng 于 2008-6-17 17:12 编辑 [/it]]
页: [1]
