初学ASP.NET,调试一个登陆模块时候出错,谢谢!

[jekinpq]

“/WebApplication3.2”应用程序中的服务器错误。
--------------------------------------------------------------------------------

未能找到存储过程 'pr_queryuser'。
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。

异常详细信息: System.Data.SqlClient.SqlException: 未能找到存储过程 'pr_queryuser'。

源错误:


行 75： '查询数据库中是否有相应的记录
行 76： Dim userid As Integer
行 77： userid = mycom.ExecuteScalar()
行 78： '返回结果集的记录流，判断结果集中是否有记录recn.hasrows
行 79： Dim recn As SqlDataReader


源文件: D:\我的文档\ASP.NET_test\Visual Studio Projects\WebApplication3.2\login.aspx.vb 行: 77

堆栈跟踪:


[SqlException: 未能找到存储过程 'pr_queryuser'。]
System.Data.SqlClient.SqlCommand.ExecuteReader(CommandBehavior cmdBehavior, RunBehavior runBehavior, Boolean returnStream)
System.Data.SqlClient.SqlCommand.ExecuteScalar()
WebApplication3._2.login.BLogin_click_Click(Object sender, EventArgs e) in D:\我的文档\ASP.NET_test\Visual Studio Projects\WebApplication3.2\login.aspx.vb:77
System.EventHandler.Invoke(Object sender, EventArgs e) +0
System.Web.UI.WebControls.Button.OnClick(EventArgs e)
System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument)
System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument)
System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData)
System.Web.UI.Page.ProcessRequestMain()




--------------------------------------------------------------------------------
版本信息: Microsoft .NET Framework 版本:1.1.4322.573; ASP.NET 版本:1.1.4322.573

[jawd2002]

你确定有 'pr_queryuser'　这个存储过程？

[jekinpq]

我都不知道这个是什么东东 'pr_queryuser'

[Haoye]

你是原版照抄别人的代码吧.此代码要求你的数据库要有名为'pr_queryuser'的存储过程

[jekinpq]

我是照着书做的

[vzxq]

错误报的很明显了，执行错误过程的时候没有找到这个存储过程

[jawd2002]

找个简单的学，要代码我可发给你

[jekinpq]

'要使用SQL SERVER 2000数据库中的表，必须导入以下两个名字空间
Imports System.Data
Imports System.Data.SqlClient
'要使用Cookie就要用到以下名字空间 Security(安全)
Imports System.Web.Security


Public Class login
Inherits System.Web.UI.Page
'声明一个cookie，记录数据库中是否保存有输入用户的信息
Dim acookie As New HttpCookie("register")
Dim i As Integer
Protected WithEvents LabelMessage As System.Web.UI.WebControls.Label
Dim lognumcookie As HttpCookie



#Region " Web 窗体设计器生成的代码 "

'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents Label2 As System.Web.UI.WebControls.Label
Protected WithEvents Label3 As System.Web.UI.WebControls.Label
Protected WithEvents tbusername As System.Web.UI.WebControls.TextBox
Protected WithEvents tbpassword As System.Web.UI.WebControls.TextBox
Protected WithEvents BLogin As System.Web.UI.WebControls.Button
Protected WithEvents breset As System.Web.UI.WebControls.Button
Protected WithEvents RFVusername As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents RFVpassword As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents REVuser As System.Web.UI.WebControls.RegularExpressionValidator

'注意: 以下占位符声明是 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
'在此处放置初始化页的用户代码
acookie.Value = "false"
Response.Cookies.Add(acookie)

End Sub

Private Sub BLogin_click_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BLogin.Click
'创建一个数据库对象
Dim mycon As New SqlConnection
mycon = New SqlConnection("server=localhost;uid=sa;pwd=jekin;database=users")

'创建一个SQLcommand对象 query(疑问)
Dim mycom As New SqlCommand
mycom = New SqlCommand("pr_queryuser", mycon)

'指明其命令类型为存储过程
mycom.CommandType = CommandType.StoredProcedure

'为上面的SqlCommand对象添加比较的参数(Parameter)
mycom.Parameters.Add(New SqlParameter("@username", SqlDbType.NVarChar, 4))
mycom.Parameters("@username").Value = tbusername.Text
mycom.Parameters.Add(New SqlParameter("@userpassword", SqlDbType.NVarChar, 50))
mycom.Parameters("@userpassword").Value = tbpassword.Text

'打开活动连接
mycon.Open()

'查询数据库中是否有相应的记录
Dim userid As Integer
userid = mycom.ExecuteScalar()
'返回结果集的记录流，判断结果集中是否有记录recn.hasrows
Dim recn As SqlDataReader
recn = mycom.ExecuteReader


'如果数据库中有记录，则登录成功，否则登录失败
If userid <> 0 Then

'若数据库中存在用户信息，就记录该用户成功登录的标记到cookies中
acookie.Value = "ture"
Response.Cookies.Add(acookie)

'登录成功则返回先前的页面
FormsAuthentication.RedirectFromLoginPage(tbusername.Text, False)

'找前页面地址
Dim strRedirect As String
If Not Request.Cookies("pageurl") Is Nothing Then
strRedirect = Request.Cookies("pageurl").Value
Else
strRedirect = Page.Request.Url.AbsolutePath
labelMessage.text = "NOW"

End If

'登录成功则返回先前的页面
Response.Redirect(strRedirect)

Else
'允许尝试登录三次，超过三次则无权访问受访问限制的页面
If Request.Cookies("lognumber") Is Nothing Then
lognumcookie = New HttpCookie("lognumber")

Else
lognumcookie = Request.Cookies("lognumber")

End If
i = CInt(lognumcookie.Value) + 1
lognumcookie.Value = i.ToString
'lognumcookie.expires= datetime.now.addDays(1)
Response.Cookies.Add(lognumcookie)
If i < 3 Then
'添加通知出错消息
LabelMessage.Text = "用户名或密码有错！请重填"
Else
Response.Redirect("sorry.aspx")

End If

End If
'关闭连接
mycon.Close()


End Sub

Private Sub breset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles breset.Click
'重置按钮
tbusername.Text = ""
tbpassword.Text = ""


End Sub

Private Sub BLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BLogin.Click

'自动产生表单验证cookie且将页面定向default.aspx
FormsAuthentication.RedirectFromLoginPage(tbusername.Text, False)


End Sub
End Class

[jekinpq]

代码如上

[jawd2002]

你数据库有没有pr_queryuser的存储过程？

[jekinpq]

我的数据库只是添加了个users的库...一个userinfo的表单,,

还有 uid username userpassword 其它什么也没做

[jawd2002]

那就难怪，你应该还有个叫pr_queryuser的存储过程

[erqie]

你找找你书上的那个叫pr_queryuser的存储过程吧。在数据库里把这个存储过程添加进去。具体的你的书上应该会讲怎么操作的。

[懒虫]

你从什么书搞来的?可以把光盘上的数据库附加或还原到你的数据库服务器上就都有了,自己建肯定缺东东,书上有这个存储过程吗?

[yyuehong]

在你建立的数据库中新建一个存储过程，名称为pr_queryuser，代码如下：
CREATE PROCEDURE dbo.pr_queryuser
@username varchar(4),
@userpassword varchar(50)
AS
select * from userinfo where uname=@username and upassword=@userpassword;
GO

[懒虫]

呵呵,告诉我书名我给你找

[懒虫]

^_^,楼上的也许可以

[jekinpq]

书上什么都没说

[雷雨后的彩虹]

毫无疑问，没有存储过程！

[sanlng]

你照书做的时候，书上没有给你这个存储过程吗？自己照书建立就可以了。