在VB.NET中调用存储过程,获取返回值时遇到问题,高分紧急求助!!

[sg163]

存储过程:
create or replace procedure login
(v_personcode in t_otms_user.personcode%type,v_password in t_otms_user.password%type,returnvalue out boolean)
as
num number(1);
begin
select count(*) into num from t_otms_user
where t_otms_user.personcode = v_personcode and t_otms_user.password = v_password;
if num = 0 then
returnvalue := false;
dbms_output.put_line(num);
else
returnvalue := true;
dbms_output.put_line(num);
end if;
end login;


VB.NET调用语句:
Dim con As OleDbConnection = New OleDbConnection("Provider=MSDAORA.1;Password=otms;User ID=otms;Data Source=orcl")
con.Open()

Dim cmd As OleDbCommand = New OleDbCommand("login", con)
cmd.CommandType = CommandType.StoredProcedure

cmd.Parameters.Add("v_personcode", SqlDbType.Int).Value = TextBox1.Text
cmd.Parameters.Add("v_password", SqlDbType.Int).Value = TextBox2.Text

cmd.Parameters.Add("returnvalue", SqlDbType.Int)
cmd.Parameters("returnvalue").Direction = ParameterDirection.Output

Dim valueend As Boolean
valueend = cmd.Parameters("returnvalue").Value

If valueend = True Then
Dim MainFrm As New MainFrm
MainFrm.Show()
Me.Hide()
Else
MsgBox("用户名或密码错误，请重试。", MsgBoxStyle.Exclamation, "错误信息")
End If

con.Close()

现在问题是我不管怎么输用户名和密码,返回的值都是TRUE,请问各位高手哪里出问题了?

[cjhxajh]

Dim con As OleDbConnection = New OleDbConnection("Provider=MSDAORA.1;Password=otms;User ID=otms;Data Source=orcl")
con.Open()

Dim cmd As OleDbCommand = New OleDbCommand("login", con)
cmd.CommandType = CommandType.StoredProcedure

cmd.Parameters.Add("v_personcode", SqlDbType.Int).Value = TextBox1.Text
cmd.Parameters.Add("v_password", SqlDbType.Int).Value = TextBox2.Text

cmd.Parameters.Add("returnvalue", SqlDbType.Int)
cmd.Parameters("returnvalue").Direction = ParameterDirection.Output

cmd.ExecuteNonQuery() '没执行存储过程
Dim valueend As Boolean
valueend = cmd.Parameters("returnvalue").Value

If valueend = True Then
Dim MainFrm As New MainFrm
MainFrm.Show()
Me.Hide()
Else
MsgBox("用户名或密码错误，请重试。", MsgBoxStyle.Exclamation, "错误信息")
End If

con.Close()

[shadowno]

没太看懂，觉得是不是类型转换有问题，returnvalue 存储过程出来可能为null,

cmd.Parameters.Add("v_personcode", SqlDbType.Int).Value = TextBox1.Text ....数据库、存储过程定义的是int?
cmd.Parameters.Add("v_password", SqlDbType.Int).Value = TextBox2.Text ....数据库、存储过程定义的是int?

[honey52570]

确实是少了一句

[boblaw]

暈LZ,使用command不用執行有啥用？cmd.ExecuteNonQuery

[sg163]

确实是少了一句

现在我加了cmd.ExecuteNonQuery() ,执行到这步的时候出现了错误了.

"未处理的“System.Data.OleDb.OleDbException”类型的异常出现在 system.data.dll 中。"

[wb80222]

看看这段代码，或许对你有帮助：
Dim pam As New OleDb.OleDbParameter
.................
OleDbConnection1.Open()
OleDbCommand1.Connection = OleDbConnection1
OleDbCommand1.CommandType = CommandType.StoredProcedure
OleDbCommand1.CommandText = "product_id"
pam.Direction = ParameterDirection.Output
pam.DbType = DbType.String
pam.Size = 10
OleDbCommand1.Parameters.Add(pam)
OleDbCommand1.ExecuteNonQuery()
TextBox1.Text = pam.Value
.................

检查一下数据类型。

[wb80222]

别忘了使用完参数一定要清除

[足球中国]

类型库引用的问题.删掉一些东西.比如一些类或控件之类的再重新试.
应该能解决问题.

[wdzr_826]

在SQL分析器里走存储过程，如果能走通的话。
程序里时不时参数没给全，或是类型问题。

[pfcszp]

我们也在用ORA的数据库但是我还闹不清学习下

[wb80222]

使用完参数要删除。 cmd.Parameters.clear() ，要么会产生很多参数，导致异常。

[shepherd_cw]

少了一句在“valueend = cmd.Parameters("returnvalue").Value ”
上加cmd.ExecuteNonQuery() 试试

[Terran5]

LZ首先是没有执行存储过程，如果出现了异常，那么你就要检查
cmd.Parameters.Add("v_personcode", SqlDbType.Int).Value = TextBox1.Text
cmd.Parameters.Add("v_password", SqlDbType.Int).Value = TextBox2.Text
你的数据类型是否和数据库匹配。

[TomatoZhang]

向各位大虾学习，并帮lz顶了