在 System.ArgumentException 中第一次偶然出现的“System.Data.dll”类型的异常

[believebowps]

Dim strcnn As String = "sever=192.168.0.66;database=zjc_netconfer;user id=maverickjj;password=zsjyc;"
Dim myconnection As New SqlConnection(strcnn)
Dim mycommand As New SqlCommand("sp_sd_career_news", myconnection)

'使用存储过程
mycommand.CommandType = CommandType.StoredProcedure

' 向存储过程添加参数
Dim prmUnit_title As New SqlParameter("@title", SqlDbType.VarChar, 250)
prmUnit_title.Value = unit_title
mycommand.Parameters.Add(prmUnit_title) '信息标题

Dim prmusername As New SqlParameter("@username", SqlDbType.VarChar, 250)
prmusername.Value = username
mycommand.Parameters.Add(prmusername) '信息发布人

Try
myconnection.Open()
mycommand.ExecuteNonQuery()
myconnection.Close()
Catch SQLexc As SqlException
MessageBox.Show("添加失败，原因：" & SQLexc.ToString())
End Try




-----------------------------存储过程

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go




ALTER procedure [dbo].[sp_sd_career_news]
@title varchar(250),
@username varchar(250)


as
begin
insert into sd_career_news(unit_title,username)
values(@title,@username)
end




------------
以上是我的代码，我看了很多遍，应该没有错吧
但为什么一运行就会提示 在 System.ArgumentException 中第一次偶然出现的“System.Data.dll”类型的异常

谢谢各位

[重典]

是不是username/unit_title在第一次是NULL啊？

[shan1119]

code:


Private Sub procedure()
Dim con As New OracleClient.OracleConnection("Data Source=kokusan;User Id=mtp;Password=totax;Integrated Security=no;")
Dim mycommand As New OracleClient.OracleCommand("SP_KEY_ADD", con)

mycommand.CommandType = CommandType.StoredProcedure

Dim prmUnit_title As New OracleClient.OracleParameter("v_KEY_INDEX", OracleClient.OracleType.VarChar, 250)
prmUnit_title.Value = Now.Hour & ""
mycommand.Parameters.Add(prmUnit_title)

Dim prmusername As New OracleClient.OracleParameter("v_KEY_ID", OracleClient.OracleType.VarChar, 250)
prmusername.Value = Now.Minute & ":" & Now.Second
mycommand.Parameters.Add(prmusername)

Dim rtn As New OracleClient.OracleParameter("v_result", OracleClient.OracleType.Int16)
mycommand.Parameters.Add(rtn)
mycommand.Parameters("v_result").Direction = ParameterDirection.Output

Try
con.Open()
mycommand.ExecuteNonQuery()
con.Close()
Catch SQLexc As OracleClient.OracleException
MessageBox.Show("reason：" & SQLexc.ToString())
End Try
End Sub

procedure:


create or replace procedure SP_KEY_ADD(
v_KEY_INDEX VARCHAR,
v_KEY_ID VARCHAR,
v_result out int
) is
begin
insert into key(KEY_INDEX,KEY_ID)values(v_KEY_INDEX,v_KEY_ID);
v_result := 0;
commit;
return;
exception when others then
rollback;
v_result := 1;
return;
end SP_KEY_ADD;